papy 73 ans
XLDnaute Occasionnel
Bonjour le forum,
Je souhaiterai dans le code ci-dessous, apporter une modification, à savoir :
Un double clic en X2 sélectionne tout le champ nommé idem en Z2
Ce que je voudrais c'est, si le champ X est sélectionné, que les sélections manuelles en colonne Z efface la sélection existante en colonne X même ligne
En vous remerciant.
Je souhaiterai dans le code ci-dessous, apporter une modification, à savoir :
Un double clic en X2 sélectionne tout le champ nommé idem en Z2
Ce que je voudrais c'est, si le champ X est sélectionné, que les sélections manuelles en colonne Z efface la sélection existante en colonne X même ligne
En vous remerciant.
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("X2, Z2")) Is Nothing Then
If Target.Address = "$X$2" Then
If Target.Value <> "" Then
Range("SelDestMailCc") = ""
Else
Range("SelDestMailCc").Value = "X"
Range("SelDestMailCci").Value = ""
End If
Else
If Target.Value <> "" Then
Range("SelDestMailCci") = ""
Else
Range("SelDestMailCci").Value = "X"
Range("SelDestMailCc").Value = ""
End If
End If
End If
Cancel = True
End Sub
Dernière édition: