(VBA-E) Problème combobox dans userform
Bonjour forum,
J'ai un problème avec mon combobox. Je ne suis pas capable de le remplir.
J'ai un bouton de commande dans ma Feuil2 qui ouvre mon userform qui se nomme Entrerpointage. Mon combobox se nomme Match. Les données que je veux avoir dans mon combobox vont de la cellule Z30 et leur nombre ne sera jamais constant, d'où la nécessité de définir mon range. Dans mon userform, j'ai le code suivant:
Code:
1
2
3
4
5
6
7
8
9
| Private Sub Entrerpointage_Initialize()
Dim cell As String, Matchs As Range
Set Matchs = Range("Z30", Range("Z30").End(xlDown))
For Each cell In Matchs
If cell.Value <> "" Then
Match.AddItem cell
End If
Next cell
End Sub |
Pourtant, ca ne marche pas. Est-ce que j'ai mis le code à la bonne place? Je suis plutôt débutant en VBA et j'ai fouillé dans les messages du forum, d'où j'ai pu tirer beaucoup d'informations mais je bloque présentement.
Merci pour votre aide!
gringo69
[Edit] bbil : priére de penser au balise de code voir bouton http://www.developpez.net/forums/images/editor/code.gif
Rebonjour forum,
J'ai trouvé, au lieu de mettre Private sub Entrerpointage_Initialize, je mets simplement Private sub Userform_Initialize et ca marche. Est-ce que quelqu'un pourrait m'expliquer pourquoi quand je nomme le userform ca ne marche pas?
Merci
gringo69
