Double click dans une case

[denisbouchard]

Bonjour le forum,
Je viens de faire une petite routine qui est censer me faire apparaitre une croix dans une case des colonnes D, F et H si je fais un double click sur celle-ci ,mais ça ne fonctionne pas. quelqu'un peut-ile me dire pourquoi?
Voic mon code:
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
If target.Address = "$D: D$" Or target.Address = "$F:F$" Or target.Address = "$H:H$" Then
target = "X"
Else
Exit Sub
End If
cancel = True
End Sub
Merci
denis

 

[Fred0o]

Re : Double click dans une case

Bonjour Denisbouchard,

Voici comment modifier ton code :

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
    If target.Column = 4 Or target.Column = 6 Or target.Column = 8 Then
        target = "X"
    Else
        Exit Sub
    End If
    cancel = True
End Sub

A+

 

[Amadéus]

Re : Double click dans une case

Bonjour

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
If Not Application.Intersect(target, Range("$D:$D,$F:$F, $H:$H")) Is Nothing Then
target = "X"
Else
Exit Sub
End If
cancel = True
End Sub

Cordialement

 

[James007]

Re : Double click dans une case

Bonjour,

Tu peux essayer le code suivant :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D:D,F:F,H:H")) Is Nothing Then Exit Sub
Target = "X"
Cancel = True
End Sub

A +

 

[denisbouchard]

Re : Double click dans une case

Re,
Merci beaucoup à tous pour vos réponses.
Bonne soirèe
denis