Doublon combobox
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
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
-
ContributeurBonjour,
Heuuu...ComboBox1.AddItem ("3-En cours")
Est mis deux fois ??
A+ -
ContributeurComme ça pas possible de comprendre, tu peu mettre ton classeur sur Cjoint.com et mettre le lien dans un poste suivant ?
-
Contributeur:DD
Et bien tu fais un classeur fictif avec des donnés elles aussi fictives mais qui reprend les mêmes fonctions.-
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
-
-
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 -
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 -
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
