Inputbox et liste déroulanteRésolu/Fermé

Question

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

julia Namor · Accepted Answer

....
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

julia Namor · Answer

Bonjour 
Dans l'évenement worsheets  de  la feuille "temp" colle le code 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)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") = nomEnd IfEnd Sub

cordialement

Matthias · Answer

Merci pour votre réponse mais cela ne fonctionne pas totalement : au lieu de se déclencher lors du changement dans ma liste déroulante la macro se lance dès que je clique dans n'importe quelle cellule de la feuille...

julia Namor · Answer

Bonjour
Oups!!! Autant pour moi 
voilà le code corrigé 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Sheets("Temp").ActivateIf Not Intersect(Target, Range("AC7")) Is Nothing Thennom = InputBox("Indiquez le numéro de facture affilié à l'avoir : ")If Range("AC7").Value = "ZG2" ThenCall InputBox("numéro de facture")If nom = "" Then Exit SubRange("Y7") = nomEnd IfEnd IfEnd Sub

cordialement

julia Namor · Answer

Voilà le fichier modifié 
dis moi si tout OK.
par contre je vois que AC7 remplacé par Z7!!!

https://mon-partage.fr/f/sIjfUwA3/

cdlt

Inputbox et liste déroulante

5 réponses

Discussions similaires

Newsletters