Liste déroulante excel vba
Résolu
Lilou
-
bouket Messages postés 143 Date d'inscription Statut Membre Dernière intervention -
bouket Messages postés 143 Date d'inscription Statut Membre Dernière intervention -
Salut a tous
je suis en train de faire un petit programme sous excel avec des macros.
je souhaite créer une liste déroulante sur ma feuille excel, ajouter des données présentes dans un tableau que je crée en vba et choisir dans ma liste sur ma feuille la donnée dont j'ai besoin et récupérer cette donnée par la suite.
j'ai essayé plein de choses mais rien n'apparait dans ma liste sur ma feuille ou alors des erreurs apparaissent!!!
merci bcp
je suis en train de faire un petit programme sous excel avec des macros.
je souhaite créer une liste déroulante sur ma feuille excel, ajouter des données présentes dans un tableau que je crée en vba et choisir dans ma liste sur ma feuille la donnée dont j'ai besoin et récupérer cette donnée par la suite.
j'ai essayé plein de choses mais rien n'apparait dans ma liste sur ma feuille ou alors des erreurs apparaissent!!!
merci bcp
A voir également:
- Liste déroulante excel vba
- Liste déroulante excel - Guide
- Excel liste déroulante en cascade - Guide
- Word et excel gratuit - Guide
- Liste déroulante google sheet - Accueil - Guide bureautique
- Déplacer colonne excel - Guide
3 réponses
Bonjour,
Voici un petit exemple :
(a placer derrière la feuille)
En supossant que :
A5=1,B5=Premier
A6=2,B6=Second
A7=3,B7=Troisième
A8=4,B8=Quatrième
Option Explicit
'
Sub EmplirListe()
...ComboBox1.ListFillRange = "A5:B8"
End Sub
Private Sub ComboBox1_Change()
...Dim Valeur As Variant
...Valeur = ComboBox1.Column(0)
...Select Case (Valeur)
......Case 1: XfrCel (Valeur)
......Case 2: XfrCel (Valeur)
......Case 3: XfrCel (Valeur)
......Case 4: XfrCel (Valeur)
...End Select
End Sub
'
Sub XfrCel(Valeur As Variant)
...MsgBox Valeur
End Sub
'
Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~
Voici un petit exemple :
(a placer derrière la feuille)
En supossant que :
A5=1,B5=Premier
A6=2,B6=Second
A7=3,B7=Troisième
A8=4,B8=Quatrième
Option Explicit
'
Sub EmplirListe()
...ComboBox1.ListFillRange = "A5:B8"
End Sub
Private Sub ComboBox1_Change()
...Dim Valeur As Variant
...Valeur = ComboBox1.Column(0)
...Select Case (Valeur)
......Case 1: XfrCel (Valeur)
......Case 2: XfrCel (Valeur)
......Case 3: XfrCel (Valeur)
......Case 4: XfrCel (Valeur)
...End Select
End Sub
'
Sub XfrCel(Valeur As Variant)
...MsgBox Valeur
End Sub
'
Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~
Salut,
pour remplir la liste, tu peux utiliser la fonction liste d'excel. Dans insertion/nom, il me semble...
tu selectionne plusieurs cellule d'une même colonne, et tu leur donne un nom.
Ensuite, dans l'userform que tu as crée, tu vas sur la liste et tu regarde les paramètres.
Tu vas dans Rowsource et tu met le nom de la liste, alors apparait la liste que tu as crée au préalable... ;)
++
pour remplir la liste, tu peux utiliser la fonction liste d'excel. Dans insertion/nom, il me semble...
tu selectionne plusieurs cellule d'une même colonne, et tu leur donne un nom.
Ensuite, dans l'userform que tu as crée, tu vas sur la liste et tu regarde les paramètres.
Tu vas dans Rowsource et tu met le nom de la liste, alors apparait la liste que tu as crée au préalable... ;)
++