Discussion :

[pesti]

Bonjour,

Je souhaite exécuter une macro lorsqu'une cellule de ma feuille excel est modifiée. Rien de sorcier me direz vous, mais avant de me lancer dans l'implémentation de mon idée je souhaite faire quelques tests basiques sur la gestion des événements et leur fonctionnement car c'est la première fois que j'y touche.

Sauf que mes tests basiques ne fonctionnent pas, et j'ai bien l'impression qu'Excel de détecte aucun événement. Tenez par exemple ce code simpliste de fonctionne pas quand je change la valeur de la cellule A1 :



Et j'ai bien vérifié que je changais bien la cellule A1 de la Feuil 1.

J'ai le même problème avec les autres fonctions applicable au worksheet ou au workbook, rien ne se passe.

Il n'y a rien de plus basique, du coup je me demande si je n'ai pas raté une étape quelque part... Pouvez vous m'aider à comprendre pourquoi je ne détecte aucun événement ?

Merci beaucoup

[clementmarcotte]

Bonjour,

target c'est un objet range, qui a toutes les propriétés d'un objet range, incluant une adresse.

Essaie avec cela:

Code :

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

1
2
3
if target.address = "a1" then
     msgbox ("La cellule A1 a été modifiée")
end if

[Theze]

Bonjour,

Tu as peut être sans le vouloir désactivé les évènements !
Exécute cette petite sub :

Code :

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

1
2
3
4
 
Sub Activer()
Application.EnableEvents = True
End Sub

ceci te donne l'adresse de la cellule qui vient d'avoir une modif :

Code :

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

1
2
3
4
 
Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox Target.Address(0, 0)
End Sub

attention tout de même, la gestion des évènements "Change" et autres ne concerne que la feuille où elles se trouvent.

[HopPopPop]

Bonsoir à tous,
Si tu es sur Feuil1, alors utiliser la procédure dans le module de cette feuille. A essayer avec :

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
... y insérer le code de condition
End Sub