Bouton de selection selon une date
Bonjour,
Je suis débutante en VBA, j'ai compris les grandes lignes, mais cela ne me suffit pas pour mon problème.
J'ai créer un fichier qui repertorie les locations de voiture des salariés.Je cherche donc à connaitre le programme pour faire ressortir en rouge les lignes dont la date de fin de contrat est antérieur de 2 mois à la date actuelle. Idéalement, j'aimerais créer un bouton qui me le fasse. J'ai essayer avec la mise en forme conditionnelle, mais cela ne donnais pas le résultat souhaitée.
Malheureusement je ne peux pas communiquer le fichier, il s'agit de données confidentielles.
Merci par avance à ceux qui prendront le temps de m'aider.
supposons que tes dates sont dans la colonne A de la feuille Feuil1 et en supposant un écart de 60 jours
Sub toto()
With Sheets("Feuil1")
For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
If DateAdd("d", 60, .Range("A" & i)) > Date Then
.Range("A" & i).Interior.Color = RGB(100, 0, 0)
End If
Next i
End With
End Sub