XL 2010 VBA - Incrémentation date par double clics

tchi456

XLDnaute Occasionnel
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
 
Solution
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+

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • Dates(1).xlsm
    32.9 KB · Affichages: 7

Discussions similaires

Réponses
4
Affichages
740

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T