Excel
Fermé
talpa91
Messages postés
720
Date d'inscription
vendredi 19 septembre 2008
Statut
Membre
Dernière intervention
3 novembre 2013
-
24 janv. 2010 à 19:17
moiced59 Messages postés 1145 Date d'inscription samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 - 24 janv. 2010 à 20:11
moiced59 Messages postés 1145 Date d'inscription samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 - 24 janv. 2010 à 20:11
A voir également:
- Excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
- Déplacer une colonne excel - Guide
5 réponses
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
24 janv. 2010 à 19:40
24 janv. 2010 à 19:40
salut
Tu voudrais qu'elle te le dise sous quel forme?
Tu voudrais qu'elle te le dise sous quel forme?
talpa91
Messages postés
720
Date d'inscription
vendredi 19 septembre 2008
Statut
Membre
Dernière intervention
3 novembre 2013
8
24 janv. 2010 à 19:50
24 janv. 2010 à 19:50
salut un genre d'alarme
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
24 janv. 2010 à 19:59
24 janv. 2010 à 19:59
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
talpa91
Messages postés
720
Date d'inscription
vendredi 19 septembre 2008
Statut
Membre
Dernière intervention
3 novembre 2013
8
24 janv. 2010 à 20:07
24 janv. 2010 à 20:07
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
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
24 janv. 2010 à 20:11
24 janv. 2010 à 20:11
ok pas de souci par contre je travail sous excel 2007 j espere que toi ossi