mettre en fond rouge si mot = fait

[arvin]

bonsoir,


j'essai une macro depuis ce soir mais souci : je souhaite que lorsqu e je ferme mon classeur, il me met un fond rouge sur toutes les cellules où est inscrit le mot 'fait'
^

pouvez vous m'aider ?


merci

 

[Hervé]

bonsoir

il existe ce type de macro :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim c As Range
For Each c In Range('a1150')'<=========a adapter
If c = 'fait' Then c.Interior.ColorIndex = 3
Next c
ActiveWorkbook.Save

End Sub

Salut

 

[lapix]

tu peux faire ca avec une mise en forme conditionnelle, c'est dans le menu format

 

[arvin]

merci c'st impeccable cela fonctionne du tonnerre !!!!

connaitrais tu le m^me chose si au lieu du mot 'fait' , c'est une date qui est rentrée ????


merci vraiment génial

 

[Hervé]

re

Je ne sais pas si tu parles de la macro, ou de la méthode de Lapix.

En tout cas pour la macro, remplace :

If c = 'fait' Then c.Interior.ColorIndex = 3

par :

If c = DateValue('28/04/05') Then c.Interior.ColorIndex = 3


Salut

 

[arvin]

Merci HERVE et désolé pour LAPIX même si c'était très bien je préfère de beaucoup la méthode d'HERVE

pour la date cela marche pour n'importe quelle date ????, j'essaie en tout cas


merci

 

[arvin]

re bonjour !


j'ai encore besoin de vous : la macro fonctionne très bien (rappel en fond bleu si mot 'fait' dans un tableau ) mais je souhaite que si il y a le mot 'fait' et 'autre' et 'oui' cela fonctionne aussi

j'ai essayé 'or' mais cela ne marche pas


qu'en pensez vous ?


merci

 

[selecteur]

Bonsoir,

Essaie ça :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim c As Range
For Each c In Range('a1150') '<=========a adapter
If c = 'fait' Then c.Interior.ColorIndex = 3 Else
If c = 'Autres' Then c.Interior.ColorIndex = 3 Else
If c = 'oui' Then c.Interior.ColorIndex = 3

Next c

ActiveWorkbook.Save

End Sub

ça devrait aller.

Ne me remercie pas : c'est Hervé qu'il faut remercier.

Selecteur.

 

[Hervé]

Bonsoir arvin, selecteur, le forum

Si tu veux te 'libérer' du souci de la casse, et marquer aussi bien les Autres, que les autres. Rajoute au début de la macro de selecteur :

option compare text

avant le Private Sub Workbook_BeforeClose(Cancel As Boolean)

De plus, si je peux me permettre, si tu dois gérer plus de 3 conditions, il vaut mieux passer par un select case, sans etre obligatoire, cette méthode est plus lisible.

Salut

 

[arvin]

merci à tous : je teste cela ce soir et je vous tiens au courant


merci

 

[arvin]

ok pas de soucis cela fonctionne super

merci !!!!