Doublon combobox

Fermé
vince_nus - 10 avril 2012 à 15:56
 Vincb9 - 26 avril 2012 à 14:39
bonjour à tous

question simple. j'ai les Item de ma ComboBox dans le code du UserForm. Mais les items apparaissent en double ??!! comment faire

voici le code :

Private Sub UserForm_Initialize()

ComboBox1.AddItem ("1-Prévision")
ComboBox1.AddItem ("3-En cours")
ComboBox1.AddItem ("6-A valider client")
ComboBox1.AddItem ("8-BL à emettre")
ComboBox1.AddItem ("3-En cours")
ComboBox1.AddItem ("9-En sign BL")

End Sub


Mercid de votre aide

Excel 2007, VBA, Windows XP Pro

6 réponses

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
10 avril 2012 à 16:55
Bonjour,
Heuuu...
ComboBox1.AddItem ("3-En cours") 

Est mis deux fois ??
A+
0
tous y sont 2 fois
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
11 avril 2012 à 12:40
Comme ça pas possible de comprendre, tu peu mettre ton classeur sur Cjoint.com et mettre le lien dans un poste suivant ?
0
impossible données secret défense ^^
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
11 avril 2012 à 18:57
:DD
Et bien tu fais un classeur fictif avec des donnés elles aussi fictives mais qui reprend les mêmes fonctions.
0
Re bonjour

bon tout fonctionne bien mais je veux mette à jour les données de mes combobox mais les nouvelles valeurs n'apparaissent
voilà le code dans UserForm_initialize

Dim a As Long
For a = 10 To 25
ComboBox1.AddItem Sheets("Feuil2").Cells(a, 12)
Next


j'ai des valeurs en colonne 12 (L) en partant de la ligne 10. si je rajoute une valeur dans cette plage de donnée dans la feuille excel (par exemple en ligne 25) en fin de plage, un coup la valeur apparaît dans la Combo, un coup non !! et je voudrai aussi remettre à jour la combo si je supprime des valeurs car elle garde des donnée supprimées.

merci
0
Voilà, j'espère que ça t'aideras !

Private Sub UserForm_Initialize()
    Dim i As Integer
           For i = 1 To Range("A65536").End(xlUp).Row
           ComboBox1 = Range("A" & i)
              If ComboBox1.ListIndex = -1 And Range("A" & i) <> "" Then _
            ComboBox1.AddItem Range("A" & i)
    Next i
End Sub
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Ah nan désolé j'avais pas vu que tu entrais les item manuelement.

Private Sub Userform_initialize()
Combobox1.Clear
ComboBox1.AddItem ("1-Prévision") 
ComboBox1.AddItem ("3-En cours") 
ComboBox1.AddItem ("6-A valider client") 
ComboBox1.AddItem ("8-BL à emettre") 
ComboBox1.AddItem ("3-En cours") 
ComboBox1.AddItem ("9-En sign BL") 
End Sub 
0
au début oui manuellement mais comme ils bougent tout le temps je vais le faire en auto
0
j'ai remplacé i=1 par i=10 (pour commencer en ligne 10) et "A" par "L" mais la Combo reste vide !!
0
T'as pensé à tout changer ??

Private Sub UserForm_Initialize()
    Dim i As Integer
           For i = 10 To Range("L65536").End(xlUp).Row
           ComboBox1 = Range("L" & i)
              If ComboBox1.ListIndex = -1 And Range("L" & i) <> "" Then _
            ComboBox1.AddItem Range("L" & i)
    Next i
End Sub


Parce que moi ça fonctionne quand je met sa !

T'as bien mis Userform_initialize
0
oui c au bon endroit
pour l'instant j'ai des valeurs de L10 à L15
je viens de mettre 2 valeurs au pif en L16 et 17 et en affichant le User, les 2 nouvelles valeurs n'apparaissent pas dans la Combo ??!!
0
Ba essaye ça mais ça gère pas les doublons :

Private Sub Userform_initialize()

no_ligne = Sheets("nom_de_ta_feuille").Range("L65536").end(xlup).row

ComboBox1.clear

ComboBox1.List = Sheets("nom_de_ta_feuille").Range("L10:L" & no_ligne).Value

End Sub
0
:-( toujours pareil
0
Tu veux pas copier ton fichier et viré tout les données et le mettre sur Cjoint.com
Je pense que je peux trouver ce qui cloche
0
et voilà
http://cjoint.com/?BDAnL7GXX4d


j'ai retiré toutes les données juste laisser des fausses infos en colonne L

merci
0