Inputbox et liste déroulante

Résolu/Fermé
Matthias - 28 mai 2018 à 16:05
julia Namor
Messages postés
493
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
26 décembre 2020
- 29 mai 2018 à 18:51
Bonjour,

J'ai un fichier dans lequel en cellule AC7 j'ai une liste déroulante de choix (ZC, ZG2, ZAB, ZYC.....) et j'aimerais que lorsque je choisi "ZG2" une boite de dialogue de type inputbox apparaisse automatiquement et que le résultat donné dans la inputbox soit retranscrit en cellule Y7. Je pense ne pas être trop loin de la solution mon seul problème c'est que la macro ne se lance pas automatiquement lorsque je fais ma sélection dans la liste déroulante :

Sheets("Temp").Activate

    nom = InputBox("Indiquez le numéro de facture affilié à l'avoir : ")

    If Range("AC7").Value = "ZG2" Then

        Call InputBox("numéro de facture")

    If nom = "" Then Exit Sub

    Range("Y7") = nom

End If

End Sub
A voir également:

5 réponses

julia Namor
Messages postés
493
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
26 décembre 2020
32
29 mai 2018 à 10:32
....
Pas de soucis , on a tous commencé un jour
je te joins un fichier avec le code pour exemple

https://mon-partage.fr/f/1IRGn5XO/

cdlt
2
Merci le code marche désormais sauf que la macro se déclenche lorsque je clique sur la cellule or j'aurais voulu qu'elle ne se déclenche que lorsque je choisis dans ma liste déroulante le code "ZG2" si un autre choix que ce code est fait dans la liste la macro ne doit pas se déclencher... Je ne sais pas si c'est faisable?
0
Vici le fichier exemple peut-être que ce sera plus facile pour vous de voir ce que je désire. En tout cas merci encore pour votre aide.

https://mon-partage.fr/f/1o32P07Q/
0