Discussion :

[Lucas-Lucas]

Bonjour au forum,

J'aimerai savoir s'il est possible de faire une mise en forme automatique...

Exemple : dans la colonne «niveau d'avancement» d'avoir une commande ou formule dans le cas où la colonne précédente « date butoir» la date serait dépassée...

En d'autre termes à la colonne date butoir, la date est dépassée (10 décembre 2008 à la colonne suivante il serait inscrit : « date dépassée» disons en rouge...Ceci faciliterait mes suivis....

Merci beaucoup!...Lucas

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

C'est possible, mais pas très facile sans passer par le VBA.
En effet, Word ne dispose pas d'une mise en forme conditionnelle comme on la trouve dans Excel.
On peut passer par des champs qui vont faire une vérification, mais pour chaque ligne de ton tableau, tu devras écrire le champ.

Si tu passe par du VBA, tu peux avec un clic tout faire en une seule fois !

À toi de voir si tu est intéressé ?
Dis nous quoi !

[Heureux-oli]

Voilà, si le tableau que tu as mis sur le forum est le bon, essaie ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Option Explicit
 
Sub SelectionnerTexte()
Dim dteDate As Date
Dim intR As Integer, intI As Integer
 
intR = ActiveDocument.Tables(1).Rows.Count
For intI = 3 To intR
If NetText(ActiveDocument.Tables(1).Cell(intI, 5).Range.Text) = "" Then Exit For
dteDate = CDate(NetText(ActiveDocument.Tables(1).Cell(intI, 5).Range.Text))
 
 
If dteDate < Date Then ActiveDocument.Tables(1).Cell(intI, 5).Range.Font.Color = wdColorRed
Next intI
 
 
End Sub
Function NetText(stTemp As String) As String
NetText = Left(stTemp, Len(stTemp) - 2)
 
End Function

[Lucas-Lucas]

Merci Heure-oli...

J'ai copié tes codes dans le fichier dans le fichier joint précédemment et rien ne se passe...J'ai sûrement fait quelque chose que je ne devais pas...S.V.P. me l'expliquer ou me retourner mon fichier corrigé????...

J'apprécie beaucoup ton aide Merci

[Heureux-oli]

Tu fais Alt + F11 pour accèder au VBE, tu te place dans le code et tu fais F5.

tu tombes bien
http://www.developpez.net/forums/d66...z/debutez-vba/

Fichier mis à jour

[Lucas-Lucas]

Encore une fois Merci heureux-oli...

Je te reviens un peu plus tard..je suis sur un poste en word 2007...et rien ne fonctionne...dès que j'utilise mon poste régulier avec word 2003, je te reviens...Lucas

[Heureux-oli]

Je l'ai fait sur 2007.

Mais tu dois mettre le document dans un emplacement approuvé.

[Lucas-Lucas]

Heureux-oli...

C'est bien gentil à toi de me répondre....Voilà, je suis présentement en word 2003 (je suis presque toutjours en word 2003 sauf exception) et je ne vois pas plus...Je pensais que puisque la date est dépassée dans la date butoire que je verrais quelque chose d'inscrit comme date dépassée ou autre dans niveau d'avancement. Es-ce bien cela que je devrais voir...

[Heureux-oli]

Les dates dépassées deviennent rouges lorsque la macro tourne.

[Lucas-Lucas]

Heureux-oli...


Tu dois me trouver vraiment nul...(j'ai très peu de notions en excel...mais lorsqu'on ajoute une macro elle devient comme automatique....).

Dans word comment fais-t-on pour faire tourner une marcro....

Je suis désolés de la question....Merci pour ta patience!...Lucas

[Heureux-oli]

Je t'ai donné un lien et une explication dans mon troisième post.

Tu fais Alt + F11
Tu te positionnes dans le code.
Si il n'est pas visible, double-cliques sur Thisdocument qui se trouve sous le nom de ton document.
Tu fais F5

Ou encore
Outils -> Macro et tu devrais avoir une liste et dans cette liste sélectionnertexte
Tu fais exécuter.

[Lucas-Lucas]

Heureux-oli...

Je suis vraiment désolé...voici ce que je peux lire dans un encadré dans les deux cas d'exécution de la macro :

« Les macros de ce projet sont désactivées....référez-vous à l'aide en ligne....»


Merci Lucas

[Heureux-oli]

tu dois changer le niveau de sécurité des macros pour ton projet.

Outils
Macro Sécurité
Niveau le plus faible.

[Lucas-Lucas]

Génial...Génial...Heureux oli...

Merci pour ta patience....je devrais mieux comprendre tes explications à l'avenir...

La date en rouge devrait apparaître au niveau de l'avancement et non à la date butoir. La date butoir étant la date cible, la date d'avancement et la date à laquelle nous sommes rendus....Disons que la date butoir est hier bien à la section niveau d'avancement, on devrait y voir (date dépassée ou un symbole quelconque....

Encore une fois désolé pour mon n'incompréhension!...Lucas

[Heureux-oli]

Pour aujourd'hui, c'est tout, mais je vais affiner le code.

Le test n'est pas sur la date butoir mais la date de la rencontre ?

Quelle date veux -tu tester ?

[Lucas-Lucas]

Heureux-oli...

Je te comprends tu m'aides tellement que j'en suis tout gêné...

Pour plus tard...Puisque c'est document de réunion : on inscrit une date butoir et lorsqu'on est dépassée cette date, dans la colonne niveau d'avancement l'on pourait voir «date dépassée» ou autre chose...

Je ne peux pas me passer de la colonne date butoir (donc je dois la conserver) car elle est la colonne cible pour les gens qui doivent accomplir une tache donnée..passé cette date c'est le niveau d'avancement qui rentre en ligne de compte..Je ne sais pas si je suis assez précis...

Je te remercie mille et une fois de partager tes connaissances... Je te souhaite un excellent Noël....Lucas

[Heureux-oli]

Si on n'a pas de données dans la case avancement on ajoute date dépassée si la date butoir est dépassée.

[Lucas-Lucas]

Heureux-oli

Après réflexion ton fichier est excellent (il m'évite d'avoir une colonne supplémentaire)...

Question : Dois-t-on exécuter les macros à chaque ouverture de fichier?

Merci beaucoup!...je suis très content du résultat!....Lucas

[Heureux-oli]

J'ai modifié le fichier.

A toi de voir !

[Lucas-Lucas]

Re-bonjour Heureux-Oli...

Je crois bien que la pièce n'est pas jointe....Merci!...Lucas