treza88
XLDnaute Occasionnel
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 :
Merci d'avance
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:
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