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

[youpi457032]

Bonjour,
je cherche à calculer en VBA dans une colonne pour chaque ligne non vide le nombre de jours écoulés entre une date inscrite et la date du jour courant
ma colonne de la date inscrite serait AA. Le resultat pourrait s'inscrire en colonne AB, sur chaque ligne non vide à partir de ligne 2
ex : ligne AA2 date = 15/05/2019
AB2 = nombre de jours écoulés entre aujourd'hui et AA2
le but de la manoeuvre est de pouvoir filtrer ensuite dans un userform filtre toutes les lignes dont le nombre de jours écoulés est supérieur ou égal à 3 ans (3 * 365 jours)
Merci,

 

[fanch55]

Bonjour,

 

[youpi457032]

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

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

 

[fanch55]

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

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

 

[youpi457032]

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

Merci beaucoup !

 

[youpi457032]

Merci beaucoup !

J'ai écrit ça... rien ne se passe en colonne Z

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

 

[ChTi160]

Bonjour
elle est ou l'initialisation de :

derlg

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"

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

jean marie

 

[youpi457032]

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"

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

Merci cela fonctionne ! je vais pouvoir terminer !!!