Discussion :

[niamo]

Bonjour tout le monde, j'ai une macro a réaliser sous excel et mon problème est le suivant :

Je doit créer dans un Userform un combobox qui prend comme différentes valeurs ( ou choix possibles ) les valeurs d'une colonne (en l'occurrence la colonne C).

J'ai réaliser le code suivant, mais rien ne s'affiche comme choix dans ma combobox :

Code :

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

1
2
3
4
5
6
7
8
Dim LigneActive As Long 
    Dim opt As String
 
    While ActiveCell.Value <> Empty
        LigneActive = ActiveCell.Row 
        opt = Cells(LigneActive, 3).Value
        ComboBox1.AddItem opt
    Wend

Est-ce que quelqu'un aurait une solution svp ? :p

[rvtoulon]

bonjour,
essaye ceci :

Code :

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

1
2
3
4
derlign = Sheets("feuil1").Range("C65536").End(xlUp).Row
For i = 2 To derlign
Me.combobox1.AddItem (Sheets("feuil1").Range("C" & i))
Next i

remplace feuil1 par le nom de ta feuille et éventuellement i si tu veux commencer à remplir ta combo a partir d'une autre ligne

[niamo]

merci pour ta réponse rvtoulon,

Je suis un peu nouveau sous VBA et je ne sais pas trop quoi mettre a la place de feuil1, c'est le nom de ma fenêtre a traiter c'est bien cela? si c'est ça lors de l'exécution, j'ai le code d'erreur suivant :

Run-time error '9'

Subscript out of range

[niamo]

autant pour moi, tout marche très très bien je voudrais juste savoir comment faire pour traiter les doublons..

[niamo]

résolu avec ce code :

Code :

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

1
2
3
4
5
6
Dim i As Integer
    derlign = Sheets("feuil1").Range("C65536").End(xlUp).Row
    For i = 14 To derlign
      ComboBox1 = Sheets("feuil1").Range("C" & i)
      If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("feuil1").Range("C" & i)
    Next i