Démarrage de macro par un chiffre

tototiti2008

XLDnaute Barbatruc

• 2 Octobre 2008

• #2

Re : Démarrage de macro par un chiffre

Bonjour guy72,

un essai :

 

Pièces jointes

• Classeur2.xls

  29 KB · Affichages: 46
• Classeur2.xls

  29 KB · Affichages: 43
• Classeur2.xls

  29 KB · Affichages: 48

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 2 Octobre 2008

• #3

Re : Démarrage de macro par un chiffre

Bonjour guy72, tototiti2008

Je te propose ceci :

Code:

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

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 2 Octobre 2008

• #4

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 ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Octobre 2008

• #5

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) :

 

Pièces jointes

• Classeur2.xls

  29 KB · Affichages: 44
• Classeur2.xls

  29 KB · Affichages: 48
• Classeur2.xls

  29 KB · Affichages: 46

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 2 Octobre 2008

• #6

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é ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Octobre 2008

• #7

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

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 2 Octobre 2008

• #8

Re : Démarrage de macro par un chiffre

tototiti2008 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 3 Octobre 2008

• #9

Re : Démarrage de macro par un chiffre

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Octobre 2008

• #10

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
@+

 

Vote positif 0 Vote négatif