Stopper une boucle APPLICATION.INTERSECT

Bonjour à tous,

Novice en VBA, je vous sollicite car je suis bloqué.... j'essaye de créer un fichier qui utilise des formules si des cellules sont modifiées. Par exemple :

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Application.Intersect(Target, Range("F:F")) Is Nothing Or Not Application.Intersect(Target, Range("E:E")) Is Nothing And Target.row > 11 Then MsgBox "Je calcule le coût de l'agent" End If   End sub

---

Cela fonctionne cependant via un bouton les colonnes E et F peuvent être changées, cela à pour conséquence de m'afficher deux fois ma MsgBox.
Moi je ne veux l'afficher qu'une fois.

Globalement:
Si E est changée alors MsgBox ; Si F est changée alors MsgBox ; Si F et E sont changées alors 1 seule MsgBox, non 2

Je ne sais pas si je suis clair ou si je me suis bien exprimé. Ce doit être simple mais je suis vraiment nul :oops::oops::oops:

Merci pour votre aide.

Bonjour,
Si vous effectuez un test logique avec OR, il est normal au vu de votre code que le message s'affiche deux fois
Il suffit d'ajouter un second test après être passé le premier comme par exemple tester le numéro de colonne soit Target.Column

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Si vous effectuez un test logique avec OR, il est normal au vu de votre code que le message s'affiche deux fois
Il suffit d'ajouter un second test après être passé le premier comme par exemple tester le numéro de colonne soit Target.Column

---

Bonjour Philippe Tulliez,

Merci pour votre réponse.
Justement, ce qu'il affiche est normal car je lui demande de le faire.
Ce que je cherche c'est pallier cela en changeant le code, en utilisant une autre méthode. Moi je ne vois aucune piste :aie:


Bonne journée.

Bonjour,

Code:

---

If Target.Column = 5 Then MsgBox "Je calcule le coût de l'agent"

---

Merci pour votre aide.

En faite, comme vous me l'avez dit, je mets deux conditions (OR) pour lancer le IF donc il va forcément le lancer 2 fois quoiqu'il en soit si les deux colonnes sont modifiées.
Je vais essayer de faire autrement.

Bonne journée.