XL 2010 VBA - Incrémentation date par double clics

[tchi456]

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

 

[Phil69970]

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]

Bonjour tch456, Phil69970,

Ou simplement :

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]

Bonjour Phil69970 et Job75,

Merci pour vos deux propositions. Elles fonctionnent parfaitement bien.

Bonne semaine à vous deux!