Démarrage d'une macro avec un chiffre
Résolu
Guy72
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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
https://www.cjoint.com/?kclbNqgjQl
Merci de votre aide
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
https://www.cjoint.com/?kclbNqgjQl
Merci de votre aide
Configuration: Windows XP - Excel 2003 Internet Explorer 7.0
3 réponses
-
Bonjour,
Oui et d'ailleur ce que tu as fait fonctionne ... je ne vois pas le problème !
Je conseillerai simplement d'utiliser un Select Case plutôt qu'une suite de If ... Then
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then 'On efface le contenu des cellules Range("F10:F33").ClearContents Select Case Target Case 4 Quatre Case 5 Cinq Case 6 Six Case 7 Sept Case 8 Huit Case 9 Neuf Case 10 Dix Case 11 Onze Case 12 Douze End Select End If End Sub
;o) -
-
Bonjour,
Il faut demander à un modérateur puisque tu n'es pas inscrit.
Tu peux le signaler en utilisant le triangle jaune à gauche du dernier post.
Bon courage
;o)
