Lancer macro

Résolu
dmaestro Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   -  
dmaestro Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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+
1
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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

0
dmaestro Messages postés 73 Date d'inscription   Statut Membre Dernière intervention  
 
MERCI!!!!!!!!!
Je ne connaissais pas tu tout cette syntaxe auusi sommaire pour lancer une macro!
C'est super!
Bonne journée!
0