Liste déroulante en VBA

litelsousa · 18 Décembre 2015

Bonjour,

Comment fait-on en VBA pour qu'une liste déroulante contienne les différents noms d'une plage (se nommant en l'occurrence "Liste_instrument")?

Pour l'instant, j'utilise ça:

Private Sub UserForm_Initialize()
Me.Nom_instrument.RowSource = "Feuil1!A49:A56"
End Sub

Mais quand je rajoute des lignes plus haut que cette plage, ma liste déroulante ne contient plus ce que je veux.

J'aimerais changer "Feuil1!A49:A56" par "liste_instrument"

En espérant être compréhensible, je vous remercie pour votre aide.

JBARBE · 18 Décembre 2015

Re : Liste déroulante en VBA

Bonjour à tous,

J'avoue que j'ai beaucoup de mal à comprendre !

Ce qui est sûr, c'est que si l'on nome une plage "Feuil1!A49:A56" en "liste_instrument", si cette plage doit être modifiée (exemple :"Feuil1!A10:A56"), il faut également faire la modification de "liste_instrument" en "Feuil1!A10:A56" qui est restée "Feuil1!A49:A56" !!!

De la logique en quelque sorte !

bonne journée !

JBARBE · 18 Décembre 2015

Re : Liste déroulante en VBA

Re : Bonjour,

Peut-être comme ceci si j'ai bien compris :

Sub Action ()
Dim vCellule As Object
Load UserForm1

For Each vCellule In Sheets("Types").Range("liste_instrument")
If vCellule.value="" Then Exit For
UserForm1.CmbListeTypes.AddItem vCellule.value
Next

UserForm1.CmbListeTypes.ListIndex =0
UserForm1.Show
End Sub

A adapter aux différentes nominations du fichier !
voir fichier !
La Range("liste_instrument") a été sélectionnée de L9 à L19 ( pas de cellule vide en haut de la 1ere cellule )

@+

litelsousa · 18 Décembre 2015

Re : Liste déroulante en VBA

Je sais j'ai du mal à expliquer, c'est toujours mon soucis

Le truc, c'est que ma plage "Liste instrument" passe automatiquement de "Feuil1!A49:A56" en "Feuil1!A50:A57" si j'insère une ligne, par exemple après la ligne 10.

C'est pour cela que j'aimerais utiliser le nom "Liste_instrument" à la place de "Feuil1!A49:A56" dans le VBA.

JBARBE · 18 Décembre 2015

Re : Liste déroulante en VBA

litelsousa à dit:
Je sais j'ai du mal à expliquer, c'est toujours mon soucis

Le truc, c'est que ma plage "Liste instrument" passe automatiquement de "Feuil1!A49:A56" en "Feuil1!A50:A57" si j'insère une ligne, par exemple après la ligne 10.

C'est pour cela que j'aimerais utiliser le nom "Liste_instrument" à la place de "Feuil1!A49:A56" dans le VBA.

Essai ceci !

voir fichier !

litelsousa · 18 Décembre 2015

Re : Liste déroulante en VBA

Oups, tu m'as devancé...

J'ai donc mis comme çac'est ma feuille User2Form)

Sub Action()
Dim vCellule As Object
Load UserForm1

For Each vCellule In Sheets("Types").Range("liste_instrument")
If vCellule.Value = "Feuil1!A49:A56" Then Exit For
UserForm2.CmbListeTypes.AddItem vCellule.Value
Next

UserForm2.CmbListeTypes.ListIndex = 0
UserForm2.Show
End Sub

mais ça ne donne rien

litelsousa · 18 Décembre 2015

Re : Liste déroulante en VBA

Non, je n'arrive pas.

Voilà ce que j'ai mis:

Private Sub CommandButton1_Click()
ActiveCell.Offset(0, 0).Range("A1").Value = Nom_instrument
ActiveCell.Offset(0, 1).Range("A1").Value = Nom_membre
ActiveCell.Offset(0, 2).Range("A1").Value = Prénom_membre
ActiveCell.Offset(0, 3).Range("A1").Value = surnom_membre
ActiveCell.Offset(0, 4).Range("A1").Value = Adresse_membre
ActiveCell.Offset(0, 5).Range("A1").Value = Localité_membre
ActiveCell.Offset(0, 6).Range("A1").Value = Portable_membre
ActiveCell.Offset(0, 7).Range("A1").Value = Email_membre
ActiveCell.Offset(0, 8).Range("A1").Value = Date_Anniversaire
Unload Me '
End Sub

Private Sub Date_Anniversaire_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub

Private Sub UserForm_Initialize()
Me.Nom_instrument.RowSource = "Feuil1!A49:A56"
End Sub

Private Sub Anniversaire_membre_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub

Sub Action()
Dim vCellule As Object
Load UserForm1

For Each vCellule In Sheets("Types").Range("liste_instrument")
If vCellule.Value = "" Then Exit For
UserForm1.CmbListeTypes.AddItem vCellule.Value
Next

UserForm2.CmbListeTypes.ListIndex = 0
UserForm2.Show
End Sub

Je suis désolé, c'est mon premier essais avec le VBA

JBARBE · 18 Décembre 2015

Re : Liste déroulante en VBA

litelsousa à dit:
Oups, tu m'as devancé...

J'ai donc mis comme çac'est ma feuille User2Form)

Sub Action()
Dim vCellule As Object
Load UserForm1

For Each vCellule In Sheets("Types").Range("liste_instrument")
If vCellule.Value = "Feuil1!A49:A56" Then Exit For
UserForm2.CmbListeTypes.AddItem vCellule.Value
Next

UserForm2.CmbListeTypes.ListIndex = 0
UserForm2.Show
End Sub

mais ça ne donne rien

Erreur : If vCellule.Value = "Feuil1!A49:A56" Then Exit For il faut >> If vCellule.Value = " " Then Exit For

Et puis il faut suivre l'exemple du fichier en renommant la feuille et la liste déroulante s'il le faut !

JBARBE · 18 Décembre 2015

Re : Liste déroulante en VBA

Le mieux c'est que tu nous mets ton fichier en supprimant ce qui est confidentiel !

litelsousa · 18 Décembre 2015

Re : Liste déroulante en VBA

Voilà,

C'est donc quand je clique sur "nouveau membre" et qu'il y a déjà une ligne de rajoutée... (pour l'instant je suis obligé de me mettre là ou j'insère les donné... Ce sera ma prochaine étape)

JBARBE · 18 Décembre 2015

Re : Liste déroulante en VBA

La ligne à rajouter ce fait automatiquement !

La référence des instruments est faite !

A tester !

@+

litelsousa · 18 Décembre 2015

Re : Liste déroulante en VBA

C'est parfait, Merci!!!!

Je l'ai remis sur la même feuille car le chef veut voir direct le nombre de présent...

JBARBE · 18 Décembre 2015

Re : Liste déroulante en VBA

litelsousa à dit:
C'est parfait, Merci!!!!

Je l'ai remis sur la même feuille car le chef veut voir direct le nombre de présent...

En effet, je me suis permit de mettre le résultat en feuille 2 compte tenu que celle-ci allait gêner la saisie de la feuille 1

Néanmoins, Il convient de modifier ce qui est en gras !

Sub Nouveau_membre()
Dim vCellule As Object
Load UserForm2

For Each vCellule In Sheets("Feuil2").Range("liste_instrument")
If vCellule.Value = "" Then Exit For
UserForm2.Nom_instrument.AddItem vCellule.Value
Next

UserForm2.Nom_instrument.ListIndex = 0
UserForm2.Show
End Sub

Et d'adapter la référence : liste_instrument

bonne journée à tous !

Liste déroulante en VBA

litelsousa

XLDnaute Occasionnel

JBARBE

XLDnaute Barbatruc

JBARBE

XLDnaute Barbatruc

Pièces jointes

litelsousa

XLDnaute Occasionnel

JBARBE

XLDnaute Barbatruc

Pièces jointes

litelsousa

XLDnaute Occasionnel

litelsousa

XLDnaute Occasionnel

JBARBE

XLDnaute Barbatruc

JBARBE

XLDnaute Barbatruc

litelsousa

XLDnaute Occasionnel

Pièces jointes

JBARBE

XLDnaute Barbatruc

Pièces jointes

litelsousa

XLDnaute Occasionnel

JBARBE

XLDnaute Barbatruc

Discussions similaires