• Initiateur de la discussion Initiateur de la discussion EQUIV38
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
775
Réponses
9
Affichages
458
Réponses
6
Affichages
433
Retour