Autre methode que "Worksheet_Change(ByVal Target As Range)

Bonjour,

Habituellement j'utilise cette méthode pour lancer des macros

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("K21:K22")) Is Nothing Then Call oppriskact End If

---

Mais, corrigez moi si je me trompe; cette méthode ne marche que si il y a "une action" sur la cellule ?

Donc, est il possible de lancer une macro dès la modification "automatique" de cellule ? Si la valeur de la cellule est actualisée j'aimerai que ma macro se déclenche.

Merci

Bonjour.

De mon expérience (limitée) il m'est apparu que sauf si tu as désactivé les événements si tu modifies une cellule, cela déclenche les macros associées.

La désactivation des événements se fait par :

Code:

---

Application.EnableEvents=false

---

A+

Bonjour,
Si tu lconsultes 'aide sur la méthode Intersect tu verras qu'elle renvoie un objet Range représentant l'intersection rectangulaire de deux ou plusieurs plages et si une ou plusieurs plages d'une feuille de calcul différente sont spécifiées, une erreur est renvoyée.
Donc .

Code:

---

Intersect(Range("A1:A2"), Range("A1:A3"))

---

renverra l'objet Range des cellules A1:A2
alors que

Code:

---

Intersect(Range("B1"), Range("A1:A3"))

---

ne renverra rien soit Nothing

et de fait on utilise cette méthode bien souvent au sein d'une procédure événementielle pour vérifier si l'"action" (on parlera plutôt d'événement puisque l'action est effectuée par une méthode) pour vérifier si la cellule ou plage de cellules où a eu lieu cet événement se situe à un endroit précis de la feuille.
Mais rien ne t'empêche d'utiliser cette même méthode par exemple dans une boucle.

@marot_r De mon expérience ( très limité ); non :lol:

Mais les explications détaillées de @philippe me font surtout prendre conscient que je dois mal utiliser/comprendre cette méthode. Je retourne bucher/expérimenter. Merci de votre réactivité!

Bonjour,
Voici un cas très concret de l'utilisation de la méthode Intersect que j'utilise régulièrement.
Afin de pouvoir sélectionner une ou plusieurs listes l'utilisateur peut faire un double clic qui provoquera l'apparition d'une croix ou sa disparition.
Donc pour éviter des erreurs je dois vérifier si l'utilisateur effectue bien son double clic dans la bonne colonne (ici la colonne Selected)

Pièce jointe 491436

Le code dans la procédure événementielle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' Déclaration Dim oListManager As ListObject ' Affectation Set oListManager = Me.ListObjects(1) With Application If Target.Count = 1 Then If Not Application.Intersect(Target, oListManager.ListColumns("Selected").DataBodyRange) Is Nothing Then Target = IIf(LCase(Target) = "X", "", "X") Cancel = True End If End If End With Set oListManager = Nothing End Sub

---

Bonjour,

Citation:

---

Donc, est il possible de lancer une macro dès la modification "automatique" de cellule ? Si la valeur de la cellule est actualisée j'aimerai que ma macro se déclenche.

---

Une remarque :
L’événement Worksheet.change se produit quand l'utilisateur (ou un lien externe) modifie des cellules de la feuille de calcul. Cet événement ne se produit pas lorsque les cellules sont modifiées pendant un recalcul.
Pour reprendre ton exemple, si la cible K1 contient la formule =C1, la modification de la valeur de C1 va modifier la valeur de K1 mais ne va pas lancer la procédure évènementielle Worksheet.change.

Cordialement.

Bonjour

@Philippe : ton exemple (très peu optimisé*) est une autre façon de procéder.
Pour en revenir à l’évènement Change, je rejoins totalement gFTZ82 en ajoutant que si, avec la macro appelée, la cellule Target est modifiée, il y a récursivité source de blocage intempestif (définitif pour certaines versions) !

* Je ne vois pas l‘utilité de With Application … End With.
Je ne comprends pas le LCase. Pour un effet bascule, je pencherais plutôt pour UCase.

Si par inadvertance un titre visé est modifié (Selected avec un espace final invisible) …

Il est toujours très intéressant de passer par des noms !

Si ton Tableau (ListObjects) est nommé Tb (par exemple), le code suivant, pour basculer, suffit :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [Tb].Columns(1)) Is Nothing Then Target = IIf(UCase(Target) = "X", "", "X") ‘ si X : vide, si vide : X Cancel = True End If End Sub

---

Nota : le DoubleClick ne concerne toujours qu’une cellule donc le test If Target.Count= 1 … est superflu.