castor30
XLDnaute Occasionnel
Bonjour le forum,
Le code ci-dessous devrait me cocher si double clic :
- en C5 le champ Nommé Tous Cc soit C7:Cxxx
- en E5 le champ nommé Tous Cci soit E7:Cxxx
Mais ça ne fonctionne pas
Je vous remercie de bien vouloir le corriger
Le code ci-dessous devrait me cocher si double clic :
- en C5 le champ Nommé Tous Cc soit C7:Cxxx
- en E5 le champ nommé Tous Cci soit E7:Cxxx
Mais ça ne fonctionne pas
Je vous remercie de bien vouloir le corriger
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'OKOK
If Target.Column = 3 Or Target.Column = 3 Then
End If
If Target.Column = 3 Or Target.Column = 5 Then
Target = "X"
Target.Offset(0, 1).Select
End If
If Not Application.Intersect(Target, Range("C5")) Is Nothing Then
Range("TousCc").Copy
Range("MailCc").PasteSpecial xlValues
[A1].Select
End If
If Not Application.Intersect(Target, Range("E5")) Is Nothing Then
Range("TousCci").Copy
Range("MailCci").PasteSpecial xlValues
[A1].Select
End If
End Sub