OVH Cloud OVH Cloud

ComboBox

4 réponses
Avatar
Pat59
Bonjour,

J'aimerais utiliser une liste déroulante sur une feuille Excel qui irais
chercher ses données (liste d'employés) sur une autre feuille du même
classeur.

J'aimerais par la suite excécuter une macro suite à la sélection d'un
employé de la liste déroulante.

Je suis un habitué VBA mais dans Access.

Merci

4 réponses

Avatar
papou
Bonjour
Tu créés un contrôle zone de liste déroulante à partir de la boîte à outils
contrôles.
1°) Pour définir les éléments de la liste :
Clic droit, Propriétés
tu définis la propriété ListFillRange de la manière suivante (par exemple
maais tu peux utiliser des noms définis aussi) :
Feuil1!A1:A10
Tu fermes la fenêtre
2°) Pour l'action suite à la sélection :
Clic droit, visualiser le code et utiliser l'évènement Change du combobox1 :
Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then
'nom d'une macro ou autres actions souhaitées directement ici
End If
End Sub
Pour tester :
Tu annules le mode création (clic sur le bouton avec un crayon et une sorte
d'équerre bleue dans la BO contrôles)
Tu sélectionnes un élément de ta liste.

Cordialement
Pascal


"Pat59" a écrit dans le message de
news:
Bonjour,

J'aimerais utiliser une liste déroulante sur une feuille Excel qui irais
chercher ses données (liste d'employés) sur une autre feuille du même
classeur.

J'aimerais par la suite excécuter une macro suite à la sélection d'un
employé de la liste déroulante.

Je suis un habitué VBA mais dans Access.

Merci


Avatar
Jacky
Et zouuuuuuu
Record battu.....moins de 7 minutes
:o))
JJ

"papou" a écrit dans le message de
news:
Bonjour
Tu créés un contrôle zone de liste déroulante à partir de la boîte à
outils

contrôles.
1°) Pour définir les éléments de la liste :
Clic droit, Propriétés
tu définis la propriété ListFillRange de la manière suivante (par exemple
maais tu peux utiliser des noms définis aussi) :
Feuil1!A1:A10
Tu fermes la fenêtre
2°) Pour l'action suite à la sélection :
Clic droit, visualiser le code et utiliser l'évènement Change du combobox1
:

Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then
'nom d'une macro ou autres actions souhaitées directement ici
End If
End Sub
Pour tester :
Tu annules le mode création (clic sur le bouton avec un crayon et une
sorte

d'équerre bleue dans la BO contrôles)
Tu sélectionnes un élément de ta liste.

Cordialement
Pascal


"Pat59" a écrit dans le message de
news:
Bonjour,

J'aimerais utiliser une liste déroulante sur une feuille Excel qui irais
chercher ses données (liste d'employés) sur une autre feuille du même
classeur.

J'aimerais par la suite excécuter une macro suite à la sélection d'un
employé de la liste déroulante.

Je suis un habitué VBA mais dans Access.

Merci






Avatar
Pat59
Merci Papou,

Ça fonctionne.

Patrice


Bonjour
Tu créés un contrôle zone de liste déroulante à partir de la boîte à outils
contrôles.
1°) Pour définir les éléments de la liste :
Clic droit, Propriétés
tu définis la propriété ListFillRange de la manière suivante (par exemple
maais tu peux utiliser des noms définis aussi) :
Feuil1!A1:A10
Tu fermes la fenêtre
2°) Pour l'action suite à la sélection :
Clic droit, visualiser le code et utiliser l'évènement Change du combobox1 :
Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then
'nom d'une macro ou autres actions souhaitées directement ici
End If
End Sub
Pour tester :
Tu annules le mode création (clic sur le bouton avec un crayon et une sorte
d'équerre bleue dans la BO contrôles)
Tu sélectionnes un élément de ta liste.

Cordialement
Pascal


"Pat59" a écrit dans le message de
news:
Bonjour,

J'aimerais utiliser une liste déroulante sur une feuille Excel qui irais
chercher ses données (liste d'employés) sur une autre feuille du même
classeur.

J'aimerais par la suite excécuter une macro suite à la sélection d'un
employé de la liste déroulante.

Je suis un habitué VBA mais dans Access.

Merci







Avatar
AV
Aussi...
Tu pourrais simplement utiliser une liste de validation
Avec la plage source nommée "laListe" et située dans une autre feuille ça ferait
ça :
Données > validation > personnalisée > formule > =laListe
Il faut saisir le signe Pour utiliser les changements de valeurs de la cellule active, utiliser
l'évènement "Worksheet_Change" de la feuille
Si précisions souhaitées...demander

AV