double clic sur une cellule

jokerfidelio · 13 Octobre 2011

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 · 13 Octobre 2011

Re : double clic sur une cellule

Bonjour joker,

Bienvenue sur XLD,

à tester

Code:

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 · 13 Octobre 2011

Re : double clic sur une cellule

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

double clic sur une cellule

jokerfidelio

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

jokerfidelio

XLDnaute Occasionnel

Discussions similaires

double clic sur une cellule

jokerfidelio

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

jokerfidelio

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency