Discussion :

[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.
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 :

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

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

[SfJ5Rpw8]

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..

[AlainTech]

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.

[zoumzoum59]

Non AlainTech

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.
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:





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 :

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

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 :

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

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 :

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

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

Merci