Discussion :

[gringo69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[SilkyRoad]

bonjour

tu peux tester cette adaptation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Cell As Range, Matchs As Range
 
Set Matchs = Range("Z30:Z" & Range("Z30").End(xlDown).Row)
    For Each Cell In Matchs
        If Cell.Value <> "" Then
    Match.AddItem Cell
    End If
Next Cell

bonne soiree
michel