[VBA E] ajout conditionnel dans la liste d'une combobox

Bonjour à tous

J'ai le code suivant qui ajoute la valeur actuel de la combobox Cb_client à une liste en feuil2 qui comporte 10 valeurs.
Tout fonctionne bien mais je voudrais que l'ajout ne ce fasse que si la veur n'existe pas dans la liste et que si elle existe deja qu'el la place en debut de liste.

J'espere avoir été clair.

Voila le code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Terminate() Dim i As Byte With Sheets("feuil2")   For i = 0 To cb_Client.ListCount - 1 .Cells(i + 1, 1) = cb_Client.List(i) Next i End With End Sub

---

Merci d'avance

Citation:

---

Envoyé par zoumzoum59

Bonjour à tous

J'ai le code suivant qui ajoute la valeur actuel de la combobox Cb_client à une liste en feuil2 qui comporte 10 valeurs.

---

je comprends pas ton code actuel ne rajoute pas la valeur sélectionné dans la combobox.. mais il met toutes les valeurs du combo dans ta feuille..

Je ne vois pas, non plus, de recherche de l'existance d'une référence dans ta feuille.

Il serait temps que tu arrêtes de tout attendre du forum.

Non AlainTech

Citation:

---

Il serait temps que tu arrêtes de tout attendre du forum.

---

Je n'attends pas tout du forum mais qu'en j'ai un problème je pose une question peut etre pas toujours abilement.:oops:
Le forum n'est pas là pour donner un coup de pouce quand on n'a pas de solution de son coté ?:?




Oui bbil c'est exactement ça c'est à dire qu'il actualise la liste qui est chargé dans ma combo qui se trouve dans la feuil2 de la cellule A1 à A10.

Mais si j'utilise 10 fois la même valeur dans ma combo ma liste et alors composé de 10fois la même valeur.

Exemple en dessous:


Pièce jointe 3602


Je voudrais eviter les doublons dans la liste et que la derniere valeur selectionné qui etait par exemple en milieu de liste apparaisse au debut.

voici le code complet au niveau de ma combo:
initialise la combo avec les données de la feuille 2

Code:

---

1 2 3 4 5 6

Private Sub UserForm_Initialize() Dim d As Range For Each d In Sheets("feuil2").Range("a1:a10") If Not d = "" Then cb_Client.AddItem d Next d

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub cb_Client_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Byte With cb_Client 'ajoute l'élément saisie dans la combobox   .AddItem cb_Client, 0 .ListIndex = 0   'supprime les items au-dela du 10ème For i = 0 To .ListCount - 1 If i > 9 Then .RemoveItem (i) Next i End With End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_Terminate() Dim i As Byte   'rajoute la derniere valeur selectionné dans la liste de la feuil2 With Sheets("feuil2")   For i = 0 To cb_Client.ListCount - 1 .Cells(i + 1, 1) = cb_Client.List(i) Next i End With End Sub

---

Voila j'espere que c'est plus clair 8O

Merci