Système de "X"

[Proz]

J'ai intégré dans mon fichier ce code (trouvé dans le forum" afin qu'il indique un "X" dont voici l'exemple:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(Target, Columns("h:j")) Is Nothing Then Exit Sub
If IsEmpty(ActiveCell.Value) Then

ActiveCell.Value = "X"
ElseIf ActiveCell.Value = "X" Then

ActiveCell.Value = ""
End If
Cancel = True
End Sub

Le "Hic" cé que je voudrai aussi qu'il le mette dans ces colonnes :

If Intersect(Target, Columns("r:u")) Is Nothing Then Exit Sub

Ca ne fonctionne pas quand je l'intégre dans le code...
Comment faire?

 

[Guest]

Re : Système de "X"

Bonjour,

voici

If Intersect(Target, Union(Columns("h:j"), Columns("r:u"))) Is Nothing Then Exit Sub

Bon après-midi

 

[Proz]

Re : Système de "X"



Cé cool merci tout fonctionne.