Airone784
XLDnaute Occasionnel
Bonjour,
J'ai un problème dans un fichier entre 2 évènements.
Voici mon code :
Puis j'ai ce code :
Le problème c'est que les 2 événements viennent perturber l'autre évènement.
Pour faire plus simple sur mon besoin, je souhaite lorsque je fais un clic gauche, écrire 2 dans ma target et quand je fais un clic droit dans cette même cellule, effacer la valeur de la target.
Merci d'avance pour votre aide.
J'ai un problème dans un fichier entre 2 évènements.
Voici mon code :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A5:Z5,AC5:BB5")) Is Nothing And Selection.Rows.Count = 1 Then
Target = 2
end ifPuis j'ai ce code :
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A5:Z5,AC5:BB5")) Is Nothing And Selection.Rows.Count = 1 Then
Target=""
end ifLe problème c'est que les 2 événements viennent perturber l'autre évènement.
Pour faire plus simple sur mon besoin, je souhaite lorsque je fais un clic gauche, écrire 2 dans ma target et quand je fais un clic droit dans cette même cellule, effacer la valeur de la target.
Merci d'avance pour votre aide.