Démarrage de macro par un chiffre

[guy72]

Bonjour,

Peut-on faire démarrer une macro avec les chiffres d'une liste déroulante.

Exemple d'une des macros de 4 à 12
Sub Huit()
Range("Z2:Z16").Copy Destination:=Range("F10")
End Sub

Fichier exemple joint

http://cjoint.com/?kck5rwmEZx

Merci de votre aide

 

[tototiti2008]

Re : Démarrage de macro par un chiffre

Bonjour guy72,

un essai :

 

[bqtr]

Re : Démarrage de macro par un chiffre

Bonjour guy72, tototiti2008

Je te propose ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zone As Range
Set Zone = Range("F10:F32")
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
    Select Case Target.Value
      Case Is = 4
        Zone = ""
        Range("Z2:Z8").Copy Range("F10")
      Case Is = 5
        Zone = ""
        Range("Z2:Z10").Copy Range("F10")
      Case Is = 6
        Zone = ""
        Range("Z2:Z12").Copy Range("F10")
      Case Is = 7
        Zone = ""
        Range("Z2:Z14").Copy Range("F10")
      Case Is = 8
        Zone = ""
        Range("Z2:Z16").Copy Range("F10")
      Case Is = 9
        Zone = ""
        Range("Z2:Z18").Copy Range("F10")
      Case Is = 10
        Zone = ""
        Range("Z2:Z20").Copy Range("F10")
      Case Is = 11
        Zone = ""
        Range("Z2:Z22").Copy Range("F10")
      Case Is = 12
        Zone = ""
        Range("Z2:Z24").Copy Range("F10")
      Case Else
        Exit Sub
    End Select
End If
End Sub

Bonne journée

 

[guy72]

Re : Démarrage de macro par un chiffre

Bonjour à vous

Merci, impeccable 😉

Est-il possible d'avoir la liste déroulante en la Feuil1 et avoir les codes en Feuil2 ?

 

[tototiti2008]

Re : Démarrage de macro par un chiffre

Bonjour bqtr,
RE,

Oui, il faut simplement nommer la plage des codes sur la feuil2 pour pouvoir alimenter la liste déroulante à partir du nom.
J'ai un peu changé le code aussi (plus simple) :

 

[guy72]

Re : Démarrage de macro par un chiffre

Bonjour tititoto2008,
C'est pas ce que je voulais dire, je devrais mieux préciser.
C'est parce-que avec la ligne 😛rivate Sub Worksheet_Change(ByVal Target As Range)
Ça me pose un problème, car j'ai déjà cette ligne pour un autre code.
Donc je demandais, si c'était possible de pouvoir avoir la cellule de la liste déroulante dans la Feuil1 et les codes dans la Feuil2 ?
A moins qu'il y ait une autre solution pour ne pas avoir d'incompatibilité ?

 

[tototiti2008]

Re : Démarrage de macro par un chiffre

ah, ben non, les codes évènementiels comme Worksheet_Change sont propres à la feuille, tu ne peux pas les placer autre part. Il faut que tu mixes tes 2 macros à mettre dans Worksheet_Change

 

[guy72]

Re : Démarrage de macro par un chiffre

ah, ben non, les codes évènementiels comme Worksheet_Change sont propres à la feuille, tu ne peux pas les placer autre part. Il faut que tu mixes tes 2 macros à mettre dans Worksheet_Change

D'accord, je vais vois ça.
Merci encore

 

[guy72]

Re : Démarrage de macro par un chiffre

Bonjour,
Comment fait-on pour signaler que le problème est résolu ?

 

[Pierrot93]

Re : Démarrage de macro par un chiffre

Bonjour Guy, Tototiti

cette option n'existe pas sur ce forum, tu le dis dans un post et c'est bien, le fil reste ouvert et d'autres peuvent ainsi donner encore d'autres solutions.

bionne journée
@+