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'
^
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
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
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.
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.