Bonjour le forum
Comment executer la macro dont le nom est en A1 ?
Merci
Carlos
Comment executer la macro dont le nom est en A1 ?
Merci
Carlos
A+Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Valeur As String
Valeur = Range("A1").Value
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then Application.Run Valeur
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Valeur As String
Valeur = Range("A1").Value
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Application.Run (Valeur)
End If
End Sub