A voir également:
- Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Excel trier par ordre croissant chiffre - Guide
5 réponses
je viens de creer un code qui te met la cellule en fin la date en rouge
tu peux mettre le code derriere un bouton ou sur ouverture de la feuille
i = 2
fincal = Worksheets("feuil1").Cells(1, "C").End(xlDown).Row + 1
Do Until i = fincal
Cells(i, 3).Select
If Selection > Now Then
Selection.Font.Color = vbRed
End If
i = i + 1
Loop
je t'explique un peu
i=2 je commence a regarde a la ligne 2 car ligne 1 c l'entete
fincal = Worksheets("feuil1").Cells(1, "C").End(xlDown).Row + 1 la fincal = 1ere ligne vide ds la colonne pour savoir qd arrete
cells(i,3) si ta cellule date est en colonne D tu met 4 si c E tu met 5 ainsi de suite
si besoin hesite pas
a la place de
Selection.Font.Color = vbRed
tu peux mettre
msgbox "La date est dépassé pour la cellule C " & i
tu peux mettre le code derriere un bouton ou sur ouverture de la feuille
i = 2
fincal = Worksheets("feuil1").Cells(1, "C").End(xlDown).Row + 1
Do Until i = fincal
Cells(i, 3).Select
If Selection > Now Then
Selection.Font.Color = vbRed
End If
i = i + 1
Loop
je t'explique un peu
i=2 je commence a regarde a la ligne 2 car ligne 1 c l'entete
fincal = Worksheets("feuil1").Cells(1, "C").End(xlDown).Row + 1 la fincal = 1ere ligne vide ds la colonne pour savoir qd arrete
cells(i,3) si ta cellule date est en colonne D tu met 4 si c E tu met 5 ainsi de suite
si besoin hesite pas
a la place de
Selection.Font.Color = vbRed
tu peux mettre
msgbox "La date est dépassé pour la cellule C " & i
je te remercie beaucoup j'ai pas tout pige mais je vais essayer d'appliquer et je te tient informé encore merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question