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

youpi457032

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

XLDnaute Barbatruc
Bonjour,
1632393217738.png

1632393512817.png
 

youpi457032

XLDnaute Occasionnel
Merci beaucoup !
J'ai écrit ça... rien ne se passe en colonne Z
Code:
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

XLDnaute Barbatruc
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 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
 
Dernière édition:

youpi457032

XLDnaute Occasionnel
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
Merci cela fonctionne ! je vais pouvoir terminer !!!
 

Discussions similaires

Réponses
5
Affichages
417
Réponses
9
Affichages
754

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh