Discussion :

[capi81]

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 :

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

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

[riaolle]

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

Code :

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

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 :

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

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 :

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

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 :

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

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.

[Invité]

Bonjour,
pourquoi se prendre la tête!

Code :

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

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

[capi81]

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 :

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

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

[Invité]

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

[capi81]

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

Code :

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

Target(1,1)

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

[Invité]

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

[riaolle]

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.

[Invité]

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 :

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

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!

[capi81]

Bonjour à tous

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