XL 2016 Les dates

EQUIV38

XLDnaute Nouveau
Bonsoir,
Dans ma feuille excel je souhaite incorporer des dates et que lorsque j'ai plusieurs écritures de débit ou de crédit un même jour et que j'ai fini les écritures excel me mettra la date suivante.
Peut-être la notion de boucle sera nécessaire ?
Voir le fichier ce que je souhaiterais avoir
Merci d'avance
Cordialement
EQUIV38
 

Pièces jointes

  • test dates.xlsx
    8.8 KB · Affichages: 9
Solution
Bonsoir EQUIV38, CISCO,

Voyez le fichier joint et cette macro évènementielle dans le code de la feuille :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Cells(Rows.Count, 4).End(xlUp) 'cellule de la dernière date
    If ActiveCell.Address <> .Offset(1).Address Then Exit Sub
    If IsDate(.Value) Then ActiveCell = .Value + 1 Else ActiveCell = Date
End With
End Sub
Elle s'exécute quand on sélectionne la cellule sous la dernière date.

Les dates en colonnes D doivent être de vraies dates, c'est à dire des nombres, pas des textes.

A+

job75

XLDnaute Barbatruc
Bonsoir EQUIV38, CISCO,

Voyez le fichier joint et cette macro évènementielle dans le code de la feuille :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Cells(Rows.Count, 4).End(xlUp) 'cellule de la dernière date
    If ActiveCell.Address <> .Offset(1).Address Then Exit Sub
    If IsDate(.Value) Then ActiveCell = .Value + 1 Else ActiveCell = Date
End With
End Sub
Elle s'exécute quand on sélectionne la cellule sous la dernière date.

Les dates en colonnes D doivent être de vraies dates, c'est à dire des nombres, pas des textes.

A+
 

Pièces jointes

  • test dates(1).xlsm
    15.7 KB · Affichages: 6

Discussions similaires

Statistiques des forums

Discussions
312 103
Messages
2 085 310
Membres
102 859
dernier inscrit
Diallokass