Combobox additem
Bonjour,
J'ai un souci avec la création de donnée dans des combobox.
Donc j'ai par exemple deux combobox (combobox1 et combobox2)
Je souhaite renseigner ces deux combo avec les memes infos
combobox1.additem "Premier"
combobox1.additem "Second"
combobox2.additem "Premier"
combobox2.additem "Second"
Par contre je souhaiterais pourvoir ne pas répéter deux fois les mêmes additem pour le 1er et 2eme combo
je voudrais faire deux tour dans une boucle et avoir en paramètre ou dans une donnée le numéro du combo
au tour 1 il y aura 1 et au tour 2 il y aura 2.
J'espère avoir bien expliqué mon problème
S'il y a une solution merci d'avance et est ce que cela fonctionne aussi avec des textbox.
Par avance merci de vos réponses
Lionel
Bonsoir Lionel96
Une solution :
Liste déroulante sans doublon issue d'une feuille de votre fichier :
Tout d'abord il faut créer une liste dans une feuille et ensuite insérer le code suivant :
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets("Nom de la feuille source").Range("A65536").End(xlUp).Row
ComboBox1 = Sheets("Nom de la feuille source").Range("A" & i)
If ComboBox1.ListIndex = - 1 Then ComboBox1.AddItem Sheets("Nom de la feuille source").Range("A" & i)
Next i
End Sub PS : Changer dans le code Nom de la feuille source par le nom de votre feuille.
La liste déroulante apparaîtra dans votre formulaire sans les doublons.
Valable aussi pour la Combobox2 avec la même programmation
A consulter éventuellement :
Bonjour et1000lio
Je viens de tester ce matin ta solution avec 5 combobox qui doivent avoir tous les mêmes infos ca marche il y a juste une seule ligne à ajouter ce qui me convient car chaque combo a 21 choix possible.
Je ne voyais pas la solution comme cela, mais je dois avouer qu'elle offre la possibilité de ne pas modifier le code si je doit ajouter un nouveau choix à mes combo.
Merci de ton aide
Lionel