Incrémentation nom combobox

Bonsoir tao.tix et le forum,

Essaye ceci :

Private Sub UserForm_Initialize()

For i = 1 To 10
Me.Controls("eqdom" & i).AddItem "MaValeur"
Me.Controls("eqext" & i).AddItem "MaValeur"
Next i

End Sub


Slts

wally

Merci,

Je testerai ce soir...

Question bête ;-)

mais que signifie "Me"?

Merci

Hello Tao.Tix, Wally

Me est un mot clef utile dans les Private Modules, bien que, d'après l'aide il est surtout utile dans les modules de Classe...

Pour exemple, dans un Private Module de UserForm, en développant, on découvre très vite l'utilité de ce "Me" quand on y adjoint un "."

Immédiatement, un petit menu déroulant contextuel te proposera tous les Controls ActiveX dispo dans ton UserForm...

Disons qu'on pourrait dire que "Me' c'est "Moi" car par exemple l'instruction de Unload peut s'écrire dans le Private Module du UserForm1 :
Unload Me
ou
Unload UserForm1

Sinon une autre méthode que celle de Wally pour boucler sur les Controls sans en Connaitre le nombre :

Private Sub UserForm_Initialize()
Dim CTRL As Control

For Each CTRL In Me.Controls
If Left(CTRL.Name, 5) = "eqdom" Then
CTRL.AddItem "Toto"
ElseIf Left(CTRL.Name, 5) = "eqext" Then
CTRL.AddItem "Zaza"
End If
Next
End Sub


Bonne Soirée
@+Thierry

Merci de votre aide à tous les 2, cela marche super bien.

A bientôt