voila je veut faire un module qui va gerer un tableau dynamique de string (ajout d element par exemple).
Voici le code :
 
Public msg() As String
 
Public Sub addMsg(str As String)
     ReDim Preserve msg(UBound(msg) + 1)
     msg(UBound(msg) - 1) = str
End Sub
 
Ca plante sur ubound je comprends pas pkoi.
Quand je met ca dans un formulaire ca marche
 
Des idees ?

 
tu pourrais être plus précis ?

En fait c est simple je veut faire un module qui va gerer un tableau dynamique de string
donc pour ajouer un string a ce tableau dynamique il faudra faire addmsg("rere" ) par exemple.
 
Le probleme c est que  ca plante : subscript ou of range
au niveau du Redim
 
je ne vois pas comment etre plus precis

tout simple: ton tableau n'est pas initialisé, il a besoin d'un premier redim histoire qu'il compte au moins un élément.

ok merci beaucoup

y a t il une fonction comme load mais pour les modules ???
qui se fait tout au debut
 
merci bcp

dans les modules, non.
 
Dans les forms: Initialize (avant chargement de la partie visuelle) et Load (après chargement de la partie visuelle)
 
Pour les usercontrols et classes: Initialize.

merci beaucoup mon pb est resolut

J'ai le meme problème.
 
J'ai des macro dans lesquelles je scan des tableaux mais si le tableau n'existe pas Ubound plante.
 
Hors je ne peux pas faire un redim avant car si mon tableaux existe je vais l'ecraser ...
 
Existe t'il une fonction permettant de savoir si le tableau existe ou pas ?
 
Merci d'avance.
 
 
 

tu dois gérer l'erreur renvoyer par ubound qd ton tableau à une dim=0.
sinon pour ne pas ecrser ton tableau mets preserve après redim.
voici du code pecher ailleurs:
 
Private Function TailleTab(Tableau() As String) As Integer
 
On Error GoTo vide
TailleTab = UBound(Tableau)
Exit Function
 
vide:
TailleTab = 0
 
End Function
 
ou
 
Public Function ContientElements(ByVal tableau As Variant) As Boolean
 
Dim indice As Long
 
On Error goto vide
indice = UBound(tableau)
ContientElements = True
Exit Function
 
vide:
 
End Function
 

Bonjour Acrosomia
 
Merci pour ton aide, j'avais trouvé cette fonction en cherchant un peu =)
 
Mais ca me renvois un message d'erreur. si tu as une idée >  
http://forum.hardware.fr/hardwaref [...] 6078-1.htm