ComboBox

[Harold]

Bonjour à tous,

Voilà mon problème, j'ai une ComboBox dans une UserForm. Je voudrais récupérer les données qui seront affichées dans la ComboBox à partir de ma feuil1, mais je n'y arrive pas.

Pourriez vous m'aider, svp

 

[lacorse33]

Re : ComboBox

Bonsoir Harold,

Tu trouveras la solution dans le fichier.

A+

 

[Harold]

La corse,

Pardonne moi, mais ça ne fonctionne pas (en tout cas sur mon ordinateur)
j'ai réussi à afficher quelque chose dans une combobox, mais ça n'affiche pas se que je veux, ça va prendre des données dans une autre feuille et mon adresse est bonne, je ne comprend pas pourquoi

 

[porcinet82]

Re : ComboBox

Salut,

Juste pour dre que chez moi le code de LaCorse fonctionne. Je te propose cependant une alternative a son code qui me parait plus simple (i commence a 2 a cause de ta ligne d'intitulé. Tu peux egalement changer le nom de la feuille ou de la/des colonnes) :

Private Sub UserForm_Activate()
    
ComboBox1.Clear
For i = 2 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
    ComboBox1.AddItem Range("A" & i) & " " & Range("B" & i)
Next i
End Sub

@+

 

[Harold]

Salut,

J'ai réussi à créer une ComboBox, mais le problème est qu'il ne veut prendre que les données où est situé le bouton donnant accés à la UserForm.

J'ai réussi une autre fois, mais là, le problème est que la ComboBox, prend les données sur une autres feuille que celle que je lui indique dans le code, je ne comprend pas pourquoi.

Pourtant, j'ai bien suivi toute vos indications, mais ça s'obstine à ne pas vouloir fonctionner

J'ai remis un fichier exemple où se sera peut être plus clair.

Merci

 

[Hervé]

Re : ComboBox

bonjour

peut etre comme ceci :

Private Sub UserForm_Activate()

ComboBox1.Clear

For i = 2 To Sheets("Code").Range("A65536").End(xlUp).Row
    ComboBox1.AddItem Sheets("Code").Range("A" & i)
Next i

ComboBox2.Clear
For i = 2 To Sheets("Code").Range("B65536").End(xlUp).Row
    ComboBox2.AddItem Sheets("Code").Range("B" & i)
Next i

ComboBox3.Clear
For i = 2 To Sheets("Données").Range("B65536").End(xlUp).Row
    ComboBox3.AddItem Sheets("Données").Range("B" & i)
Next i

End Sub

salut

 

[Bebere]

Re : ComboBox

bonjour le fil

à partir du code de Hervé
ne pas oublier les points devant les range

Private Sub UserForm_Activate()
With Sheets("Code")
ComboBox1.Clear

For i = 2 To .Range("A65536").End(xlUp).Row
ComboBox1.AddItem .Range("A" & i)
Next i

ComboBox2.Clear
For i = 2 To .Range("B65536").End(xlUp).Row
ComboBox2.AddItem .Range("B" & i)
Next i

ComboBox3.Clear
For i = 2 To .Range("B65536").End(xlUp).Row
ComboBox3.AddItem .Range("B" & i)
Next i
End With
End Sub

à bientôt

 

[Harold]

Merci à tous pour votre aide, le petit bout de code que Hervé m'a suggéré fonctionne à merveille
encore une fois merci à tous