Mon code pêche dans son fonctionnement

Bonjour le forum

J'ai essayé de rédiger le code ci-dessous (macro événementielle sur une feuille) mais il ne fonctionne pas comme je le souhaite.
En effet, j'ai des macros qui sont logés dans des modules qui doivent s'exécuter suivant certaines conditions dépendantes des cellules J4 et J5.
Lorsque je change la valeur de J4, les macros suivantes doivent s'exécuter:
Macro1
Copie_Ecart_Mois
Aussi lorsque que je change la valeur de J5, les macros suivantes doivent s'exécuter:
Report_Ecart_Hebdo
Copier_cloture
Copier_RealNbre
Copier_RealVolume

Ce qui n'est pas le cas. Lorsque je change la valeur de J4, toutes les macros s'exécutent. Il en est de même que lorsque je change la valeur de J5.

Comment faire pour recadrer l'exécution des macros.
Si je change J5 que les macros qui doivent s'exécuter seulement se lancent et non pas que toutes les macros s'exécutent. Idem pour J5.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Left(Range("J4"), 1) = "M" Then If Target.Address = "$J$4" And Target.Value <> "" Then Macro1 Copie_Ecart_Mois 'Range("J5").Select 'End If ElseIf Left(Range("J5"), 1) = "S" Then If Target.Address = "$J$5" And Target.Value <> "" Then If MsgBox("La validation par OUI impactera votre TBC.Voulez-vous continuer?", vbYesNo, "Demande de confirmation") = vbYes Then Report_Ecart_Hebdo Copier_cloture Copier_RealNbre Copier_RealVolume Sheets("CC1").Select Range("c13:o64").Select Selection.ClearContents Range("J7").Select End If End If End If Application.EnableEvents = True End If Application.ScreenUpdating = False End Sub

---

Bonjour,
Quand tu appelles une macro, il faut utiliser Call et pas seulement le nom de la macro :

Code:

---

Call Macro1

---

Es-tu sûr des positions de tes If et End If? Pourrais-tu indenter ton code pour que ce soit plus facile à lire, stp.
J'utilise jamais .Address, alors je ne saurais pas trop t'aider la-dessus, mais comme tu ne veux jouer que sur les cellules J4 et J5, tu pourrais faire un grand If sur la colonne J, puis tu fais un If pour la ligne 4 et un if pour la ligne 5:

Code:

---

1 2 3 4 5 6 7

If Target.Column = 10 Then If Target.Row = 4 Then 'ce qu'il faut faire pour J4 Else If Target.Row = 5 Then 'ce qu'il faut faire pour J5 End If End If

---

Enfin un commentaire sur ton code:
Au lieu d'écrire :

Code:

---

1 2 3

Sheets("CC1").Select Range("c13:o64").Select Selection.ClearContents

---

Enlève les Select qui ne servent à rien et qui entraînent parfois des problèmes difficiles à gérer :

Code:

---

Sheets("CC1").Range("c13:o64").ClearContents

---

Si tu as une erreur dans ton code, évite de mettre On Error Resume Next, car cela t'empêche de voir d'où vient l'erreur. Tu peux éventuellement le mettre à la fin quand tu es 100% sûr de ton code et que tu as traité les erreurs possibles.

Bonjour,
pourquoi se prendre la tête!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range) 'On Error Resume Next ça c'est pour le gogo If Target.Address = "$J$4" And Left(Target, 1) = "M" Then Macro1 Copie_Ecart_Mois End If If Target.Address = "$J$5" And Left(Target, 1) = "S" Then If MsgBox("La validation par OUI impactera votre TBC.Voulez-vous continuer?", vbYesNo, "Demande de confirmation") = vbYes Then Report_Ecart_Hebdo Copier_cloture Copier_RealNbre Copier_RealVolume Sheets("CC1").Range("c13:o64").ClearContents ' Range("J7").Select End If End If Application.EnableEvents = True Application.ScreenUpdating = False End Sub

---

Bonjour à tous

Merci pour vos solutions.
riaolle : merci pour vos conseils que j'ai pris en compte.
Je finis de tout tester et vous reviens.
dysorthographie : votre code signale une incompatibilité de type et cette partie du code est soulignée en jaune:

Code:

---

If Target.Address = "$J$4" And Left(Target, 1) = "M" Then

---

J'essaie de voir pourquoi ca bloque à ce niveau mais j'ai pas encore trouvé.
Merci de me revenir si vous localisez le problème
Encore merci à tous

Désolé
If Target.Address = "$J$4" And Left(Target(1,1), 1) = "M" Then

Ca fonctionne bien maintenant.
Quel était le problème et quelle est la différence entre

Code:

---

Target(1,1)

---

et range?
encore merci pour vos interventions que j'ai toujours appréciées.

taget peut designer une cellule "$J$4" ou une plage de cellules cellule "$J$4:$J$10"

Target et une cellule précise et s'utilise dans les macros évènementielles. C'est la cellule "cible", comme le dit son nom, c'est-à-dire la cellule "victime" de la macro évènementielle. Par exemple, avec Worksheet_Change, Target représente la cellule changée.
Range est un type d'objet qui représente les cellules. Avec Range("A1"), tu identifies la cellule A1.

pas exactement! taget est un objet range! un range représente invariablement une cellule Range("A1") ou une plage de cellule Range("A1:A10") tu peux également modifier toutes les valeur de la plage!


Range("A1:A10")="toto" là c'est toute la plage qui est concerné par Worksheet_Change!

Code:

---

1 2 3 4

for i=1 to taget.count debug.print taget(i) next if taget="toto" then 'ici on considère que target = Range("A1") mais si ça concerne Range("A1:A10") alors ce n'est plus le même type d'objet!

---

Bonjour à tous

Merci à dysorthographie et à Riaollo pour vos riches contributions.
Suis satisfait.
:)