Discussion :

[AmisNoob]

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 :

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

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

Merci pour votre aide.

[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

[AmisNoob]

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


Bonne journée.

[Philippe Tulliez]

Bonjour,

Code :

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

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

[AmisNoob]

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.