Lancer macro Résolu

Question

Bonjour,
J'ai maintenant trop de macros pour les mettre toutes dans le bandeau pour lancement sur clic. 
J'ai saisi mes macro sur une liste Excel.
J'aimerai pouvoir les exécuter directement par Lien Hypertexte ou de quelque façon directe en cliquant sur la cellule voulue.
Merci pour votre aide!
Dmaestro

lermite222 · Answer

Bonjour,
Supposons ta liste dans la colonne A et commencant à la ligne 1
Une solution parmis d'autre...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        Select Case Target.Address
        Case "$A$1"
            NomMacro1
        Case "$A$2"
            NomMacro2
        Case "$A$3"
            NomMacro3
        Case "$A$4"
            NomMacro4
        Case "$A$5"
            NomMacro5
        End Select
    End If
End Sub
A+

lermite222 · Answer

Ou plus simple
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        Select Case Target.Row
        Case 1
            NomMacro1
        Case 2
            NomMacro2
        Case 3
            NomMacro3
        Case 4
            NomMacro4
        Case 5
            NomMacro5
        End Select
    End If
End Sub

Lancer macro

2 réponses

Discussions similaires

Newsletters