Doublon combobox
vince_nus
-
Vincb9 -
Vincb9 -
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
A voir également:
- Doublon combobox
- Doublon photo - Guide
- Supprimer doublon excel - Guide
- Logiciel doublon photo gratuit - Télécharger - Nettoyage
- Tirage au sort excel aléatoire sans doublon - Forum LibreOffice / OpenOffice
- Tirage aléatoire sans doublon : de plus en plus fort ... ! ✓ - Forum Excel
6 réponses
Bonjour,
Heuuu...
Est mis deux fois ??
A+
Heuuu...
ComboBox1.AddItem ("3-En cours")
Est mis deux fois ??
A+
vince_nus
tous y sont 2 fois
Comme ça pas possible de comprendre, tu peu mettre ton classeur sur Cjoint.com et mettre le lien dans un poste suivant ?
:DD
Et bien tu fais un classeur fictif avec des donnés elles aussi fictives mais qui reprend les mêmes fonctions.
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
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
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
T'as pensé à tout changer ??
Parce que moi ça fonctionne quand je met sa !
T'as bien mis Userform_initialize
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
