XL 2010 VBA - Incrémentation date par double clics

tchi456 · 11 Mars 2022

Bonjour,

Je souhaiterai pouvoir incrémenter une date par double clics dans les cellules de ma colonne B uniquement.
Autrement dit j'aimerai qu'en double cliquant dans une des cellules de la colonne B, ça m'incrémente la date de la cellule du dessus.

Exemple: Si en cellule B3 j'ai "11.03.2022" et que je double clics dans la cellule B4, j'aimerai que ça me donne "12.03.2022".

Pouvez-vous m'aider?

Meilleures salutations,

Thierry

job75 · 11 Mars 2022

Bonjour tch456, Phil69970,

Ou simplement :

VB:

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub
If Not IsDate(Target(0, 1)) Then Exit Sub
Cancel = True
Target = Target(0, 1) + 1
End Sub

A+

Phil69970 · 11 Mars 2022

Bonjour @tchi456

Je te propose ce fichier
*A noter que 11.03.2022 n'est pas une date pour excel mais 11/03/2022 est une date pour excel.

*Merci de ton retour

@Phil69970

job75 · 11 Mars 2022

Bonjour tch456, Phil69970,

Ou simplement :

VB:

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub
If Not IsDate(Target(0, 1)) Then Exit Sub
Cancel = True
Target = Target(0, 1) + 1
End Sub

A+

tchi456 · 14 Mars 2022

Bonjour Phil69970 et Job75,

Merci pour vos deux propositions. Elles fonctionnent parfaitement bien.

Bonne semaine à vous deux!

XL 2010 VBA - Incrémentation date par double clics

tchi456

XLDnaute Occasionnel

job75

Phil69970

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

tchi456

XLDnaute Occasionnel

Discussions similaires