Mise en forme conditionnelle ACCESS 2003
Résolu/Fermé
Julie87
Messages postés
10
Date d'inscription
dimanche 26 juillet 2009
Statut
Membre
Dernière intervention
4 septembre 2009
-
26 juil. 2009 à 16:55
Julie87 - 7 août 2009 à 20:23
Julie87 - 7 août 2009 à 20:23
A voir également:
- Mise en forme conditionnelle ACCESS 2003
- Mise en forme conditionnelle excel - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise en forme tableau croisé dynamique - Guide
- Mise a jour windows 10 - Accueil - Mise à jour
- Mise en forme conditionnelle en fonction d'une autre cellule ✓ - Forum Excel
9 réponses
Julie87
Messages postés
10
Date d'inscription
dimanche 26 juillet 2009
Statut
Membre
Dernière intervention
4 septembre 2009
27 juil. 2009 à 14:55
27 juil. 2009 à 14:55
Pas de réponse ?
Julie87
Messages postés
10
Date d'inscription
dimanche 26 juillet 2009
Statut
Membre
Dernière intervention
4 septembre 2009
29 juil. 2009 à 08:38
29 juil. 2009 à 08:38
S'il vous plaît
La mise en forme conditionnelle n'est pas possible en mode feuille de données mais tu peux utiliser les propriétés de ton objet texte via du code VBA.
Billou(te).
Billou(te).
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
6 août 2009 à 12:46
6 août 2009 à 12:46
connais tu un peu le vba??
c possible de faire ce que tu dis
dans ton code tu ecris
si la date de lavage est superieur a la date +15j alors la couleur est orange
si la date de lavage est superieur a la date +30j alors la couleur est rouge
si tu veux un cou de main hesite pas
c possible de faire ce que tu dis
dans ton code tu ecris
si la date de lavage est superieur a la date +15j alors la couleur est orange
si la date de lavage est superieur a la date +30j alors la couleur est rouge
si tu veux un cou de main hesite pas
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Julie87
Messages postés
10
Date d'inscription
dimanche 26 juillet 2009
Statut
Membre
Dernière intervention
4 septembre 2009
7 août 2009 à 09:57
7 août 2009 à 09:57
Je vous avoues avoir beaucoup de mal en vba, les codes je ne comprends rien, si vous pouvez m'aider je ne dirais pas non. Et donc enfait, si j'ai bien compris il faut mettre +15j de la précédente date ?? Est-ce-que cela vous embéterais de me donner un exemple de code vba à mettre? aprés je l'appliquerais et je vous dirais si j'ai réussi.
Merci beaucoup pour votre réponse, je commençais à désespérer.
Merci beaucoup pour votre réponse, je commençais à désespérer.
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
7 août 2009 à 18:05
7 août 2009 à 18:05
re
voila un bout de code pour que la couleur d 'ecriture se modifie si une valeur est verifie
If nom_salarie = "THOMas" Then
nom_salarie.ForeColor = vbBlue
Else
nom_salarie.ForeColor = vbBlack
End If
End Sub
'nom_salarie = nom de ton champ
'.forecolor = vbblack couleur du texte
a toi d adapter ca a ton formulaire si besoin hesite pas
pour toi ca donnerai :
if date de realisation > date de realisation +15 then
date de realisation.forecolor = vbred
voila hesite pas si tu ne comprend pas tout
voila un bout de code pour que la couleur d 'ecriture se modifie si une valeur est verifie
If nom_salarie = "THOMas" Then
nom_salarie.ForeColor = vbBlue
Else
nom_salarie.ForeColor = vbBlack
End If
End Sub
'nom_salarie = nom de ton champ
'.forecolor = vbblack couleur du texte
a toi d adapter ca a ton formulaire si besoin hesite pas
pour toi ca donnerai :
if date de realisation > date de realisation +15 then
date de realisation.forecolor = vbred
voila hesite pas si tu ne comprend pas tout
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
7 août 2009 à 18:23
7 août 2009 à 18:23
voila un exemple avec les dates
If Me.Texte2 >= (Me.Texte9 + 15) And Me.Texte2 <= (Me.Texte9 + 30) Then
Me.Texte2.ForeColor = vbRed
Else
Me.Texte2.ForeColor = vbBlack
End If
If Me.Texte2 > Me.Texte9 + 30 Then
Me.Texte2.ForeColor = vbYellow
End If
texte2 = date du jour pour moi
et texte9
date de saisie
If Me.Texte2 >= (Me.Texte9 + 15) And Me.Texte2 <= (Me.Texte9 + 30) Then
Me.Texte2.ForeColor = vbRed
Else
Me.Texte2.ForeColor = vbBlack
End If
If Me.Texte2 > Me.Texte9 + 30 Then
Me.Texte2.ForeColor = vbYellow
End If
texte2 = date du jour pour moi
et texte9
date de saisie
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
7 août 2009 à 18:45
7 août 2009 à 18:45
le voici un peu ameliorer
If Me.Texte2 >= (Me.Texte9 + 15) And Me.Texte2 <= (Me.Texte9 + 30) Then
Me.Texte2.ForeColor = vbRed
la c superieur a ta date +15 jours mais inferieur a la date +30
End If
If Me.Texte2 > (Me.Texte9 + 30) Then
Me.Texte2.ForeColor = vbYellow
End If
la c superieur a ta date + 30
If Me.Texte2 < (Me.Texte9 + 15) Then
Me.Texte2.ForeColor = vbGreen
End If
La c inferieur a ta date +15
voila voila c pas mal ca !!!!
If Me.Texte2 >= (Me.Texte9 + 15) And Me.Texte2 <= (Me.Texte9 + 30) Then
Me.Texte2.ForeColor = vbRed
la c superieur a ta date +15 jours mais inferieur a la date +30
End If
If Me.Texte2 > (Me.Texte9 + 30) Then
Me.Texte2.ForeColor = vbYellow
End If
la c superieur a ta date + 30
If Me.Texte2 < (Me.Texte9 + 15) Then
Me.Texte2.ForeColor = vbGreen
End If
La c inferieur a ta date +15
voila voila c pas mal ca !!!!