Bonjour,
Jai un probleme avec mon code VBA, alors que je voudrais que loperation s effectue que si je clique sur la collonne 23 ou 24, le message s affiche meme si je clique sur la collone 26 par exemple. Comment faire pour lancer l operation que lorsque je double clic sur la collonne 23 ou 24.
De plus, pour la deuxieme operation( If c.Column = 24 Then c.Offset(, -23).Resize(, 7).clear content. ) je ne trouve pas le bon code pour effacer le contenu de la ligne. par exemple si je double clique sur le collone 24 ligne 3, je voudrais effacer le contenu de la ligne 3 de la collonne 1 a 10.
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
If c.Column = 23 Then c.Offset(, -22).Resize(, 7).Copy Range("a3")
If MsgBox("Are you sure to validate?", vbOKCancel, "Confirmation") = vbOK Then
End If
If c.Column = 24 Then c.Offset(, -23).Resize(, 7).clear content
If MsgBox("Are you sure to validate?", vbOKCancel, "Confirmation") = vbOK The
End If
Merci de votre aide
Jai un probleme avec mon code VBA, alors que je voudrais que loperation s effectue que si je clique sur la collonne 23 ou 24, le message s affiche meme si je clique sur la collone 26 par exemple. Comment faire pour lancer l operation que lorsque je double clic sur la collonne 23 ou 24.
De plus, pour la deuxieme operation( If c.Column = 24 Then c.Offset(, -23).Resize(, 7).clear content. ) je ne trouve pas le bon code pour effacer le contenu de la ligne. par exemple si je double clique sur le collone 24 ligne 3, je voudrais effacer le contenu de la ligne 3 de la collonne 1 a 10.
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
If c.Column = 23 Then c.Offset(, -22).Resize(, 7).Copy Range("a3")
If MsgBox("Are you sure to validate?", vbOKCancel, "Confirmation") = vbOK Then
End If
If c.Column = 24 Then c.Offset(, -23).Resize(, 7).clear content
If MsgBox("Are you sure to validate?", vbOKCancel, "Confirmation") = vbOK The
End If
Merci de votre aide