Pb de création de liste dans VBE excel 2003
roub
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
Je suis débutant en VBE,
J'essaye de crée des listes de choix dans une feuille excel.
Dans le cadre d'un inventaire logiciel je souhaiterai que la liste des logiciels renseignée dans les cellules excel soit imposé par une liste de choix qui s'ouvre quand on clique sur la cellule.
si qq'un peut m'aider merci d'avance.
roub.
Je suis débutant en VBE,
J'essaye de crée des listes de choix dans une feuille excel.
Dans le cadre d'un inventaire logiciel je souhaiterai que la liste des logiciels renseignée dans les cellules excel soit imposé par une liste de choix qui s'ouvre quand on clique sur la cellule.
si qq'un peut m'aider merci d'avance.
roub.
A voir également:
- Pb de création de liste dans VBE excel 2003
- Liste déroulante excel - Guide
- Excel liste déroulante en cascade - Guide
- Creation de compte google - Guide
- Creation de site web - Guide
- Word et excel gratuit - Guide
5 réponses
Bonjour,
Exemple de base à placer derrière la feuille.
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
Exemple de base à placer derrière la feuille.
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
bonjour
il faut travailler avec une liste effectivement :
après sélection de la cellule concernée
menu "données" puis "validation"
onglet "options" "autoriser" : choisir "liste"
il faut sélectionner une plage de cellules contenant la liste
ou saisir la liste séparée par des virgules
il faut cocher "liste déroulante"
ne pas cocher "ignorer si vide" pour rendre obligatoire
les onglets
"message de saisie" permet d'afficher une aide
"alerte d'erreur" permet de bloquer la saisie si "style" arrêt choisi
bon courage, ça va fonctionner !
il faut travailler avec une liste effectivement :
après sélection de la cellule concernée
menu "données" puis "validation"
onglet "options" "autoriser" : choisir "liste"
il faut sélectionner une plage de cellules contenant la liste
ou saisir la liste séparée par des virgules
il faut cocher "liste déroulante"
ne pas cocher "ignorer si vide" pour rendre obligatoire
les onglets
"message de saisie" permet d'afficher une aide
"alerte d'erreur" permet de bloquer la saisie si "style" arrêt choisi
bon courage, ça va fonctionner !
Merci à tous les 2 pour le coup e main.
Ca marche en VB et aussi directement sous excel.
Seule correction on ne peut pas mettre la liste sous une autre Feuille ( via l'editeur de Excel ). du moins j'ai pas trouvé.
Cdlt.
Roub
Ca marche en VB et aussi directement sous excel.
Seule correction on ne peut pas mettre la liste sous une autre Feuille ( via l'editeur de Excel ). du moins j'ai pas trouvé.
Cdlt.
Roub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question