double clic sur une cellule

[jokerfidelio]

Bonjour a tous,

mon probleme :

j'aimerais pouvoir faire un double clic sur exemple toutes les cellules colonne 2
et que automatiquement il soit rentré la valeur de "1".
en sachant que j'ai deja comme code sur ma feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 3 Or .Column = 13 Then .Value = Date
If .Column = 14 Or .Column = 17 Then .Value = Date
If .Column = 18 Or .Column = 19 Then .Value = Date
End With
Cancel = True
End Sub

merci d'avance de vos réponses

 

[tototiti2008]

Re : double clic sur une cellule

Bonjour joker,

Bienvenue sur XLD,

à tester

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 3 Or .Column = 13 Then .Value = Date
If .Column = 14 Or .Column = 17 Then .Value = Date
If .Column = 18 Or .Column = 19 Then .Value = Date
If .Column = 2 then .Value = 1
End With
Cancel = True
End Sub

 

[jokerfidelio]

Re : double clic sur une cellule

merci rien a dire d'autre que merci 😉 cela fonctionne super...