Lancer une macro dès qu'un cellule est activé

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Cliquez pour agrandir...

CB60 à dit:

Bonsoir
en voici une,
si D1 change on lance la macro " Visu"

HTML:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Plage As Range
    Dim Intersection As Range
    
     Application.ScreenUpdating = False
    Set Plage = Range("D1")
    Set Intersection = Intersect(Target, Plage)
    If Not (Intersection Is Nothing) Then
        Visu
    End If
    Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

CB60 à dit:

re
Pour faire fonctionner cette macro, il faut obligatoirement la mettre dans le vba de la feuille, donc elle sera active que pour cette feuille, pour cela
selectionner la feuille
faire un click droit sur l'onglet
visualiser le code
et coller la macro sur la feuille vba

Cliquez pour agrandir...