XL 2019 Liste déroulante et modification par vba

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Tableau123

XLDnaute Nouveau
Bonjour,
J'ai besoin de votre aide pour créer une liste déroulante par vba. J'ai pas mal cherché sur internet mais je n'ai pas réussi à trouver ce je voudrais.
Ci-joint un fichier TEST pour vous aider à comprendre ma demande.
Dans l'onglet TEST, je souhaiterais créer une liste déroulante par vba dans la cellule G7. Quand je sélectionne une référence, je voudrais que le nom apparaît dans la cellule G9 et le prénom G11. Puis, si je modifie le nom ou le prénom, je voudrais que la modification apparaît dans la bonne cellule de l'onglet BASE.
D'avance, mille mercis!!!!
 

Pièces jointes

Trier par date Trier par votes
Tableau123 à dit:
Bonjour,
J'ai besoin de votre aide pour créer une liste déroulante par vba. J'ai pas mal cherché sur internet mais je n'ai pas réussi à trouver ce je voudrais.
Ci-joint un fichier TEST pour vous aider à comprendre ma demande.
Dans l'onglet TEST, je souhaiterais créer une liste déroulante par vba dans la cellule G7. Quand je sélectionne une référence, je voudrais que le nom apparaît dans la cellule G9 et le prénom G11. Puis, si je modifie le nom ou le prénom, je voudrais que la modification apparaît dans la bonne cellule de l'onglet BASE.
D'avance, mille mercis!!!!
Cliquez pour agrandir...
Bonjour,
Une proposition avec ces codes en PJ
VB: 
Private Sub Worksheet_Activate()
    With Feuil2
        ActiveWorkbook.Names.Add Name:="Référence", RefersTo:=.Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
    End With
    With [g7].Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="=Référence"
    End With
End Sub
'************************************************
Private Sub Worksheet_Deactivate()
    [g7:g11].ClearContents
End Sub
'************************************************
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$G$7" Then
        If Target <> "" Then
            [g9] = Feuil2.Cells(Application.Match([g7], [Référence], 0) + 1, 2)
            [g11] = Feuil2.Cells(Application.Match([g7], [Référence], 0) + 1, 3)
        End If
    End If

    If Target.Address = "$G$9" Or Target.Address = "$G$11" Then
        If [g7] <> "" Then
            Feuil2.Cells(Application.Match([g7], [Référence], 0) + 1, 2) = [g9]
            Feuil2.Cells(Application.Match([g7], [Référence], 0) + 1, 3) = [g11]
        Else
            MsgBox "Référence Manquante", vbInformation, "Information": [g7].Activate
        End If
    End If
    Application.EnableEvents = True
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour Jacky,
Merci pour votre aide.
J'ai essayé de transposer votre code, en l'adaptant bien-entendu à mon cas, mais, malheureusement ça ne fonctionne pas.
Je n'arrive pas à télécharger le fichier, il est trop volumineux. J'ai pourtant supprimé pas mal de choses mais il est toujours aussi volumineux. Je ne comprends pas.
Pourrais-je vous envoyer le fichier en MP ?
 
Vote positif 0 Vote négatif
Tableau123 à dit:
Bonjour Jacky,
Merci pour votre aide.
J'ai essayé de transposer votre code, en l'adaptant bien-entendu à mon cas, mais, malheureusement ça ne fonctionne pas.
Je n'arrive pas à télécharger le fichier, il est trop volumineux. J'ai pourtant supprimé pas mal de choses mais il est toujours aussi volumineux. Je ne comprends pas.
Pourrais-je vous envoyer le fichier en MP ?
Cliquez pour agrandir...
Re..
Quel est le message d'erreur ?
Le codes sont à placer dans le module de la feuille (test dans l'exemple)
Il suffit d'un classeur avec les 2 feuilles concernées et une vingtaine de données
Cela ne devrait pas peser très lourd 🙄
**Attention toutefois..
Dans mon code les noms de feuille sont appelés par leurs CodeName
"Feuil2" peut-être remplacé par ===> Sheets("Base")
Dans le cas ou la feuille "Base" dans le classeur réel n'est pas "Feuil2"
 
Dernière édition:
Vote positif 0 Vote négatif
Après avoir adapté votre code à mon fichier, il bug dans la partie en gras ci-dessous.
Je ne sais pas si vous arrivez à comprendre sans le fichier.

Application.EnableEvents = False
If Target.Address = "$D$4" Then
If Target <> "" Then
[D6] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 1)
[D8] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 2)
[D10] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 3)
[D12] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 5)
[D14] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 6)
[D16] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 7)
[D18] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 8)
[D20] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 9)
[D22] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 12)
[D24] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 15)
[D26] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 16)
[D28] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 20)
[D30] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 23)
[G20] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 10)
End If
End If

If Target.Address = "$D$6" Or Target.Address = "$D$8" Or Target.Address = "$D$10" Or Target.Address = "$D$12" Or Target.Address = "$D$14" Or Target.Address = "$D$16" Or Target.Address = "$D$18" Or Target.Address = "$D$20" Or Target.Address = "$D$22" Or Target.Address = "$D24" Or Target.Address = "$D$26" Or Target.Address = "$D$28" Or Target.Address = "$D$30" Or Target.Address = "$G$20" Then
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 1) = [D6]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 2) = [D8]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 3) = [D10]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 5) = [D12]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 6) = [D14]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 7) = [D16]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 8) = [D18]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 9) = [D20]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 12) = [D22]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 15) = [D24]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 16) = [D26]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 20) = [D28]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 23) = [D30]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 10) = [G20]
End If
Application.EnableEvents = True
 
Vote positif 0 Vote négatif
Tableau123 à dit:
Après avoir adapté votre code à mon fichier, il bug dans la partie en gras ci-dessous.
Je ne sais pas si vous arrivez à comprendre sans le fichier.

Application.EnableEvents = False
If Target.Address = "$D$4" Then
If Target <> "" Then
[D6] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 1)
[D8] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 2)
[D10] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 3)
[D12] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 5)
[D14] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 6)
[D16] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 7)
[D18] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 8)
[D20] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 9)
[D22] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 12)
[D24] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 15)
[D26] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 16)
[D28] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 20)
[D30] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 23)
[G20] = Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 10)
End If
End If

If Target.Address = "$D$6" Or Target.Address = "$D$8" Or Target.Address = "$D$10" Or Target.Address = "$D$12" Or Target.Address = "$D$14" Or Target.Address = "$D$16" Or Target.Address = "$D$18" Or Target.Address = "$D$20" Or Target.Address = "$D$22" Or Target.Address = "$D24" Or Target.Address = "$D$26" Or Target.Address = "$D$28" Or Target.Address = "$D$30" Or Target.Address = "$G$20" Then
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 1) = [D6]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 2) = [D8]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 3) = [D10]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 5) = [D12]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 6) = [D14]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 7) = [D16]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 8) = [D18]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 9) = [D20]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 12) = [D22]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 15) = [D24]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 16) = [D26]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 20) = [D28]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 23) = [D30]
Feuil12.Cells(Application.Match([D4], [Dossier], 0) + 4, 10) = [G20]
End If
Application.EnableEvents = True
Cliquez pour agrandir...
Re..
Vérifier ce qu'il y a en D4 au moment du plantage
Un classeur s'impose.....
 
Vote positif 0 Vote négatif
Je pense que tu as sûrement raison de me proposer de faire un userform mais, n'étant pas une spécialiste de vba, je ne voudrais pas m'aventurer vers quelque chose que je ne maitrise pas.
J'ai adapté ton code à mon cas et ça fonctionne ! Je suis trop contente 🙂 .
Cependant, j'ai deux questions à te poser :
1/ La base de données de mon classeur fait plusieurs centaines de lignes. Si le D4 reprend exactement la liste des dossiers de la feuil12, il n'y a aucun problème. Mais si on trie cette liste par ordre alphabétique, le D4 ne reprend plus les bonnes lignes. Peut-on corriger ce problème ?
2/ J'ai créé un bouton sur un autre onglet qui, si l'on clique dessus, nous emmène directement vers la bonne feuille, soit la feuil3. Or il m'emmène à chaque fois vers une mauvaise feuille. Et pourtant, dans vba, en cliquant sur le triangle vert, il m'emmène vers la bonne feuille. Comment cela est-il possible ? Je n'ai pas réussi à trouver la réponse sur internet.
Si je peux encore abuser de ta gentillesse… 😀
 
Vote positif 0 Vote négatif
Tableau123 à dit:
Je pense que tu as sûrement raison de me proposer de faire un userform mais, n'étant pas une spécialiste de vba, je ne voudrais pas m'aventurer vers quelque chose que je ne maitrise pas.
J'ai adapté ton code à mon cas et ça fonctionne ! Je suis trop contente 🙂 .
Cependant, j'ai deux questions à te poser :
1/ La base de données de mon classeur fait plusieurs centaines de lignes. Si le D4 reprend exactement la liste des dossiers de la feuil12, il n'y a aucun problème. Mais si on trie cette liste par ordre alphabétique, le D4 ne reprend plus les bonnes lignes. Peut-on corriger ce problème ?
2/ J'ai créé un bouton sur un autre onglet qui, si l'on clique dessus, nous emmène directement vers la bonne feuille, soit la feuil3. Or il m'emmène à chaque fois vers une mauvaise feuille. Et pourtant, dans vba, en cliquant sur le triangle vert, il m'emmène vers la bonne feuille. Comment cela est-il possible ? Je n'ai pas réussi à trouver la réponse sur internet.
Si je peux encore abuser de ta gentillesse… 😀
Cliquez pour agrandir...
RE..
1/ Je n'observe pas ce qui est d'écrit. La seule chose qui change en cas de tri de la BD, c'est l'ordre d'affichage de la liste de validation. La recherche se fait par un equiv() (Match).
Il ne peut y avoir erreur que si le tri est fait sur une seule colonne.
2/Je n'ai pas compris......
Dans l'exemple en PJ
1-J'ai fait un tri dans la BD, j'obtiens bien les bons résultats
2-J'ai mis un bouton pour afficher la feuil3
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Pour le bouton, j'ai enfin compris d'où venait le problème : certaines feuilles du classeur sont protégées par un mot de passe. J'ai donc déprotégé ces feuilles dans le module de la feuil3 pour que les modifications puissent y être reportées, puis replacé la protection à la fin. Aujourd'hui, j'ai enlevé ces déprotection/protection et ça marche enfin !

Je tenais à te remercier pour ton aide, ta patience et ta disponibilité. Tu as très vite compris ma demande et as su apporter toutes les solutions nécessaires.
Bravo ! 😉
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 carte choroplèthe et conditionner la couleur selon une liste déroulante de choix
Réponses
8
Affichages
399
Daniel200666
D
N
  • Résolu(e)
XL 2021 liste déroulante en cascade
Réponses
11
Affichages
475
natadom
N
M
  • Résolu(e)
XL 2016 Créer liste déroulante avec autocomplétion sous excel 2016
Réponses
8
Affichages
266
Dranreb
Dranreb
E
  • Question Question
XL 2016 Liste déroulante "pré-chargée"
Réponses
10
Affichages
346
sylvanu
sylvanu
L
  • Question Question
Microsoft 365 grossir liste déroulante
Réponses
8
Affichages
211
mapomme
mapomme
R
  • Résolu(e)
Microsoft 365 Champ recherche ou liste déroulante...
Réponses
3
Affichages
281
vgendron
vgendron
N
  • Question Question
Microsoft 365 Sélectionner cellule en fonction d'une liste déroulante
Réponses
9
Affichages
283
Dranreb
Dranreb
K
  • Question Question
XL 2016 Coup de main pour créer un fichier Excel qui gère le suivi des visites médicales du personnel.
Réponses
4
Affichages
355
dysorthographie
dysorthographie
L
  • Résolu(e)
XL 2019 Fonction INDIRECT sur champs tableau structuré
Réponses
3
Affichages
213
Lolote83
L
bcharef
  • Question Question
Microsoft 365 Liaison dynamique entre liste déroulante Excel et fichiers PDF
2
Réponses
27
Affichages
614
Alain 79
A
C
  • Question Question
XL 2021 Liste déroulante sur plusieurs colonnes
Réponses
3
Affichages
349
Jean-Eric
Jean-Eric
M
  • Question Question
XL 2016 liste déroulante formulaire vba excel
2
Réponses
20
Affichages
717
fanch55
fanch55
M
  • Résolu(e)
XL pour MAC Création d'une liste (non déroulante)
Réponses
3
Affichages
201
Blackfwolf
B
raelle76
  • Résolu(e)
Microsoft 365 Formule entre 2 feuilles
Réponses
7
Affichages
187
TooFatBoy
TooFatBoy
JJ68
  • Question Question
Microsoft 365 Classeur xlsm en partage
Réponses
4
Affichages
195
JJ68
JJ68
T
  • Résolu(e)
XL 2021 Liste déroulante conditionnée
Réponses
6
Affichages
422
Gégé-45550
Gégé-45550
S
  • Question Question
XL 2016 formule de calcul en fonction du choix de la liste déroulante
2
Réponses
18
Affichages
1 K
Silent
S
R
  • Question Question
XL 2010 Problème avec liste déroulante sur des cellule déjà rempli
Réponses
6
Affichages
739
rider
R
M
  • Résolu(e)
Autres Liste déroulante et cellule vide
Réponses
13
Affichages
428
Marjo2809
M
B
  • Résolu(e)
XL 2013 Regrouper des listes de noms et prénoms
Réponses
7
Affichages
686
Birobi
B
Retour