Discussion :

[jeremiegrenoble]

Bonjour,

La question est dans le titre. Je voudrais savoir si c'est possible de lancer automatiquement une macro sur le changement d'une valeur de cellule et comment on fait.
Je sais qu'avec la commande "Worksheet_Change(ByVal Target As Range)" je peux peut-être me démerder mais j'aimerais que la macro se lance sur le changement d'une cellule bien déterminée.

Merci pour toute aide

[Pierre Fauconnier]

Bonjour

Il te suffit de tester l'adresse de Target, qui représente la cellule modifiée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address="$A$1" Then
    ...
    End If
End Sub

Tu peux évidemment tester la ligne, la colonne, ou l'appartenance de Target à une place donnée, avec les lignes suivantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    If Target.Row = ...
    If Target.Column = ...
    If Not Intersect(Target, Range("A1:B10")) Is Nothing then ...

Ok?

[jeremiegrenoble]

En faite, à chaque fois qu'une truc se modifie, il va faire le test ?

[Pierre Fauconnier]

Oui, il est évident que l'évènement surgit à chaque modification dans une cellule de la feuille, sinon, quand veux-tu tester la cellule qui est modifiée :
Si, à l'intérieur de la macro évènementielle, tu dois modifier des cellules de la feuille, tu peux utiliser ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub Worksheet_Change(Target as Range)
    On Error Goto Erreurs
    If Target.Address = "$A$1" Then
        Application.EnableEvents = False
        ...
        Application.EnableEvents = True
    End If
 Erreurs:
    If Err<>0 then Application.EnableEvents = True
End Sub

Avec ce code, tu désactives la gestion des évènements le temps tu traitement de ta procédure. Il faut le réactiver après et prévoir la gestion d'erreurs pour le remettre à True lorsque qu'une erreur survient.