Vba - liste box- colonnes non consécutives
Tehani_t
Messages postés
245
Statut
Membre
-
Tehani_t Messages postés 245 Statut Membre -
Tehani_t Messages postés 245 Statut Membre -
Bonjour à tous ,
le sujet : dans une feuille excel, j'ai 3 colonnes renseignées : A, B, C
est il possible d'afficher uniquement les colonnes A et C dans un listbox ??
En vous remerciant par avance !!
le sujet : dans une feuille excel, j'ai 3 colonnes renseignées : A, B, C
est il possible d'afficher uniquement les colonnes A et C dans un listbox ??
En vous remerciant par avance !!
A voir également:
- Vba - liste box- colonnes non consécutives
- Liste déroulante excel - Guide
- Comment faire des colonnes sur word - Guide
- Comment faire la somme de plusieurs cellules non consécutives sur excel - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Liste déroulante en cascade - Guide
2 réponses
Bonjour,
tout dépend de la manière dont tu as fais ta listbox.
Si c'est pas données, validation : la réponse est non.
Si c'est par la boite à outils de controle : la réponse est oui.
tout dépend de la manière dont tu as fais ta listbox.
Si c'est pas données, validation : la réponse est non.
Si c'est par la boite à outils de controle : la réponse est oui.
Bonjour,
E création, tu fais un clic droit sur ta liste déroulante.
Tu fais visualiser le code.
A la place du texte écrit, tu colles ce texte :
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.Clear
i = 1 'je considère que tes données sont en ligne 1 si ca commence en ligne 2 mets i = 2
Do While Sheets("Feuil1").Cells(i, 1) <> "" ' a la place de Feuil1, mets le nom de feuille qui contient ta colonne A
ComboBox1.AddItem (Sheets("Feuil1").Cells(i, 1)) 'idem pour Feuil1
i = i + 1
Loop
i = 1
Do While Sheets("Feuil1").Cells(i, 3) <> "" 'idem pour Feuil1
ComboBox1.AddItem (Sheets("Feuil1").Cells(i, 3)) 'idem pour feuil1
i = i + 1
Loop
End Sub
Fais les modifications nécessaires.
A chaque fois que tu fais un double clic sur ta liste, ca la réinitialise.
E création, tu fais un clic droit sur ta liste déroulante.
Tu fais visualiser le code.
A la place du texte écrit, tu colles ce texte :
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.Clear
i = 1 'je considère que tes données sont en ligne 1 si ca commence en ligne 2 mets i = 2
Do While Sheets("Feuil1").Cells(i, 1) <> "" ' a la place de Feuil1, mets le nom de feuille qui contient ta colonne A
ComboBox1.AddItem (Sheets("Feuil1").Cells(i, 1)) 'idem pour Feuil1
i = i + 1
Loop
i = 1
Do While Sheets("Feuil1").Cells(i, 3) <> "" 'idem pour Feuil1
ComboBox1.AddItem (Sheets("Feuil1").Cells(i, 3)) 'idem pour feuil1
i = i + 1
Loop
End Sub
Fais les modifications nécessaires.
A chaque fois que tu fais un double clic sur ta liste, ca la réinitialise.
Je l'ai fait par la boite à outils.