XL 2019 calcul nombre de jours écoulés entre date et date du jour en VBA sur une colonne

fanch55 à dit:

Bonjour,
Regarde la pièce jointe 1116308
Regarde la pièce jointe 1116310

Cliquez pour agrandir...

youpi457032 à dit:

Bonjour,
Je souhaiterai cette fonction mais en version VBA, pour automatiser le processus à chaque fois qu'une nouvelle ligne st créé. Pourriez vous me l'ecrire en VBA ?
Merci

Cliquez pour agrandir...

  [Ab2] =  DateDiff("d", [Aa2], Date) ' Nb Jours écoulés

fanch55 à dit:

VB:

  [Ab2] =  DateDiff("d", [Aa2], Date) ' Nb Jours écoulés

Cliquez pour agrandir...

youpi457032 à dit:

Merci beaucoup !

Cliquez pour agrandir...

Sub certificat_medical()
Dim c as long
With Sheet(BD)
For c = 2 To derlg
 [Y,c] = DateDiff("d", [Zc], Date)  ' Nb Jours écoulés
Next i
End With

End Sub
Pourquoi cela ne fonctionne pas ???? ....;
je souhaite le nombre de jours écoulés entre date courante : celle du jour en cours) et la date inscrite en Y
Si vous pouvez m'aider ?
Merci

derlg

Cliquez pour agrandir...

Sub certificat_medical()
Dim c As Long
With Sheets("BD")
derlg = .Cells(.Rows.Count, 1).End(xlUp).Row 'on determine la dernière Ligne de la plage des dates'
For c = 2 To derlg 'pour chaque lignes de la plage'
 .Cells(c, 2) = DateDiff("d", .Cells(c, 1), Date) ' Nb Jours écoulés en Colonne "B" (é)
Next c
End With
End Sub

ChTi160 à dit:

Bonjour
elle est ou l'initialisation de :


plein d'erreur lol

Sheet(BD)'---> Sheets("BD")
For c = 2 To derlg
Next i 'Ici c au lieu de i
ce que j'ai mis et qui semble fonctionner
les dates pour mon test sont dans la Colonne "A" et le Nombre de Journées en Colonne "B"

VB:

Sub certificat_medical()
Dim c As Long
With Sheets("BD")
derlg = .Cells(.Rows.Count, 1).End(xlUp).Row 'on determine la derière Ligne de la palge des adtes'
For c = 2 To derlg 'pour chaque lignes de la palge'
 .Cells(c, 2) = DateDiff("d", .Cells(c, 1), Date) ' Nb Jours écoulés en Colonne "B" (é)
Next c
End With
End Sub

jean marie

Cliquez pour agrandir...