Passage de paramètre dans Sub

[iperkut]

Bonjour,
Voici le petit problème qui m'amène ici.
Je suis entrain de développer une petite application et je souhaite réaliser une fonction qui prend un paramètre.
Ce paramètre est de type string et représente le nom d'un listbox.
J'écris donc ceci :

Sub toto()
tata "ListBox1"
End Sub

Sub tata(v As String)
If StrComp(v, "ListBox1") = 0 Then
       MsgBox "OK"
    End If
    
End Sub

Nous sommes d'accord, cela m'affiche "OK", jusque la pas de soucis, le problème est que après je voudrais pouvoir utiliser la variable "v" pour par exemple faire ceci : (en ayant bien sur créer un listbox avant)

i = v.ListCount - 1

Et la problème, il y a une incompatibilité de type.

Alors que si je déclare comme ceci :

Sub toto()
tata ListBox1
End Sub

Sub tata(v)
If StrComp(v, "ListBox1") = 0 Then
       MsgBox "OK"
    End If
   i = v.ListCount - 1
End Sub

Le "i" "marche bien" mais je ne peux pas faire de test de comparaison sur le paramètre "v".

Comment y remédier ?

En espérant avoir été clair..
Cordialement

 

[Guest]

Re : Passage de paramètre dans Sub

Bonjour,

Si la listbox est sur un userform:

i= me.controls(v).listCount -1

Petit détail de sémantique:

je souhaite réaliser une fonction

Toto et Tata ne sont pas des fonctions (ne renvoient pas de valeur ou objet) mais des procédures.

A+

 

[iperkut]

Re : Passage de paramètre dans Sub

merci beaucoup !