Exécution automatique de macro

Bonsoir,

Je souhaite concevoir une macro qui réagira dès que le contenu d'une plage de cellules fusionnées connue et finie (A1 par exemple) est modifié afin que soit déclenché une série d'action via la commande Call MaMacro.

Pour le moment j'ai essayé le code suivant dans ThisWorkbook :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) Dim ligne1 As Range Set ligne1 = Intersect(Target, [A1587:AV1589]) If Not ligne1 Is Nothing Then Call MaMacro End Sub

---

En espérant que vous pourrez me sortir de cette petite impasse...:roll:

Hello,

Comme ceci peut être

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) Dim ligne1 As Range Set ligne1 = Range("A1587:AV1589") If Not Intersect(Target, ligne1) Is Nothing Then MaMacro End Sub

---

ou...

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1587:AV1589")) Is Nothing Then MaMacro End Sub

---

Merci, mais aucune des deux propositions fonctionnent ; il ne se passe rien !
J'ai essayé sur une cellule unique au cas où cela viendrait des cellules fusionnées, mais le résultat est identique.
J'ai aussi vérifié que la macro appelée fonctionnait bien.

Une idée sur le problème ?

Si si les deux propositions fonctionnent très bien même sur des cellules fusionnées, on ne passe pas son temps à vous proposer des codes erronés...

Fais simplement ce test et ensuite essaye de l'adapter

Dans Feuil1

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A15")) Is Nothing Then MaMacro End Sub

---

Dans un Module

Code:

---

1 2 3

Sub MaMacro() MsgBox "ça fonctionne !" End Sub

---

En faisant une modif dans une des cellules de la plage A1:A15 de la feuille 1 tu constateras que la procédure MaMacro sera exécutée

Merci encore, ça y est, ça marche !!
Je n'ai nullement douté de votre compétence; en revanche, je me doutais que je faisais une boulette plus grosse que moi quelque part et c'était bien le cas.
En fait, comme je l'avais mentionné dans mon premier post, j'avais placé le code dans ThisWorkbook au lieu de Feuille1 ! et bien sûr, si j'avais déjà fait le test sur d'autre code et bien là, cela ne m'est même pas venu à l'esprit !! besoin de sommeil ou de prendre du recul peut-être...

En tout cas, en grand merci à vous car mon projet arrive presque à son terme et ça commence à avoir de la gueule ! :ccool: