Exécution d'une macro lors de la modification d'une plage de cellules

Bonjour à tous,

Je cherche à exécuter une macro lorsqu'une certaine plage de cellules est modifiée, et je n'ai pas réussi à trouver comment on fait. J'ai essayé des combinaisons avec Worksheet_Change, mais je n'ai pas réussi. Quelqu'un saurait-il comment faire ? A priori ce serait quelque chose dans ce genre-là :

Code:

---

1 2 3

Private Sub Machin_qui_s'exécute_quand_ma_plage_est_modifiée Ma_macro_à_exécuter End Sub

---

Merci d'avance !

Martin

slt,
peux-être quelque chose du genre:

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Pour une plage de cellule ici A1:B10 dans la feuille If Not Intersect(Target, [A1:B10]) Is Nothing Then ' ici ton code ou ta macro a appeler End if   End Sub

---

a mettre directement dans la feuille
A+

Bonjour

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, taplage) Is Nothing Then tamakro End Sub

---

Attention quand même, si ta macro permet de changer des cellule dans ta même taplage il faut ajouter; avec une gestion d'erreur adéquate

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, taplage) Is Nothing Then application.enableevents=false tamakro application.enableevents=true endif End Sub

---

Edit: pour rvtoulon...
sur les évènement _Change!

Autant pour moi merci Mercatog

OK, ça marche si je change le contenu des cellules, le problème c'est que certaines contiennent des formules. J'aimerais exécuter ma macro lorsque le résultat de ces formules changent, même si la formule elle-même ne change pas... C'est possible ?

Sinon, pour être sûr d'avoir bien compris le fonctionnement de Worksheet_Change : si une cellule de la feuille est modifiée, la macro Worksheet_Change est exécutée, et dans Target il met la cellule qui vient d'être modifiée, c'est bien ça ?

Pour ta deuxième question

Citation:

---

pour être sûr d'avoir bien compris le fonctionnement de Worksheet_Change : si une cellule de la feuille est modifiée, la macro Worksheet_Change est exécutée, et dans Target il met la cellule qui vient d'être modifiée, c'est bien ça ?

---

oui c'est ça, Target est le range modifié par l'utilisateur

Citation:

---

Envoyé par mercatog

Pour ta deuxième question
oui c'est ça, Target est le range modifié par l'utilisateur

---

Merci ! Et pour le fait de modifier le résultat de la formule, quelqu'un a une idée ?

Le résultat de la formule change par le changement des cellules prises comme "variables" dans cette formule! à cet endroit il faudrait intervenir! non?

Ca marcherait effectivement, mais il y a pas mal de variables utilisées dans les formules de mon range, et elles sont disséminées dans tout le classeur... Alors que le range est seulement un morceau de colonne, donc beaucoup plus simple.

Par ailleurs, pour les données qui ne sont plus sur la même feuille, je dois utiliser un autre Worksheet_change sur chaque feuille concernée, ou dans le classeur, mais ça oblige à aller chercher chaque petite cellule une par une.

Et enfin, les formules cellules de ma plage seront probablement modifiées, et alors il faudra que j'aille rechanger le(s) Worksheet_change...

Bref, tu l'as compris, ce serait cool s'il y avait moyen de détecter le changement de résultat d'une formule ! ;)

Peut être ajouter

Code:

---

1 2 3

Private Sub Worksheet_Calculate() MsgBox "kuku" 'TaMakro End Sub

---

à chaque recalcule des formules, tamakro est lancé
à toi de jongler

Ca marche... qwasiment. Il reste juste un problème, que je ne comprends pas : lorsque je change une valeur sur une autre feuille, les formules sont recalculées, et pourtant la macro ne s'exécute pas... Mon code est le suivant :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Calculate() Application.EnableEvents = False NbAirbagsAssiette Application.EnableEvents = True End Sub

---

Les formules de la feuille sont pourtant bien recalculées... Je ne comprends pas. Une idée ? :?

Si tu essaies ceci?

Code:

---

1 2 3

Private Sub Worksheet_Calculate() NbAirbagsAssiette End Sub

---

Citation:

---

Envoyé par mercatog

Si tu essaies ceci?

---

Malheureusement non, j'y ai pensé aussi, mais ça ne change rien... :?

si tu essaies seulement

Code:

---

1 2 3

Private Sub Worksheet_Calculate() msgbox "kuku" End Sub

---

Aaah, pas bête, effectivement, elle ne tourne même pas... Bizarre, pourtant elle a tourné au début (enfin je crois)... Bon, ça réduit un peu le problème, mais je ne vois toujours pas comment le résoudre...

Le enableevent est à false
les évènements ne sont plus détectés! (ça survient au cas d'une erreur, le application.enableevents=true n'était pas exécutée)
Une gestion d'erreur est impérative dans ces cas de figure!

tu ferme et réouvre ton classeur
et tu refais le test

C'était ça !

Muchas gracias !