VBA : comment exécuter une macro lorsque la valeur d’une cellule change

Vous pouvez utiliser la syntaxe suivante dans VBA pour exécuter une macro lorsqu’une valeur de cellule spécifique change :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Call MultiplyMacro
    End If
End Sub

Cet exemple particulier entraînera l’exécution de la macro appelée MultiplyMacro lorsque la valeur de la cellule A1 change.

L’exemple suivant montre comment utiliser cette syntaxe dans la pratique.

Exemple : exécuter une macro lorsque la valeur d’une cellule change à l’aide de VBA

Supposons que nous créions la macro suivante appelée MultiplyMacro qui multiplie les valeurs des cellules A1 et B1 et affiche les résultats dans la cellule C1 :

Sub MultiplyMacro()
    Range("C1") = Range("A1") * Range("B1")
End Sub

Par exemple, supposons que nous ayons la valeur 12 dans la cellule A1 et la valeur 3 dans la cellule B1 .

Si nous exécutons cette macro, nous recevrons le résultat suivant :

Supposons maintenant que nous souhaitions exécuter automatiquement cette macro chaque fois que la valeur de la cellule A1 change.

Pour ce faire, nous pouvons faire un clic droit sur le nom de la feuille puis cliquer sur Afficher le code :

Dans la fenêtre d’édition de code qui apparaît, on peut coller le code suivant :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Call MultiplyMacro
    End If
End Sub

La capture d’écran suivante montre comment procéder en pratique :

Nous pouvons ensuite fermer l’éditeur VB.

Désormais, chaque fois que nous modifions la valeur dans la cellule A1 , la macro appelée MultiplyMacro s’exécutera automatiquement et effectuera une multiplication en utilisant la nouvelle valeur dans la cellule A1 .

Par exemple, supposons que nous modifions la valeur de la cellule A1 en 10 . Dès que nous modifions la valeur et appuyons sur Entrée , la macro s’exécutera :

La macro multiplie 10 par 3 et affiche le résultat dans la cellule C2 .

Remarque : Si vous souhaitez exécuter la macro lorsqu’une cellule d’une plage spécifique change, vous pouvez utiliser la syntaxe suivante :

Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
        Call MultiplyMacro
    End If
End Sub

Cela entraînera l’exécution de la macro appelée MultiplyMacro si une cellule de la plage A1: B1 change.

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

VBA : Comment compter le nombre de feuilles dans un classeur
VBA : Comment extraire des données d’un autre classeur
VBA : Comment ajouter de nouvelles feuilles