changer couleur cellule avec texte

[Fixxup]

bonjour,

j'aimerais savoir comment faire pour changer la couleur de fond d'une cellule contenant un texte, en sachant que le texte dans la cellule peut varié.

Une partie du texte reste fixe et l'autre partie est variable (il s'agit d'une date").

ex ----> Enregistré le 25/04/08

J'ai essayé d'enregistrer une macro en utilisant le format cellule conditionel sous excel mais le probleme qui se pose est que cette fonction n'accepte pas la condition "contains".

 

[tototiti2008]

Re : changer couleur cellule avec texte

Bonjour Fixxup,
Peux tu expliquer exactement quelle couleur de fond tu veux en fonction de quel critère ?
Le critère porte sur la date, je suppose ?

 

[Fixxup]

Re : changer couleur cellule avec texte

oui le critère porte sur la date.
j'aimerais que la cellule contenant le texte s'affiche en fond rouge (3) pour toutes les dates ajoutés au message "Enregistré le "Date"".

Merci.

 

[tototiti2008]

Re : changer couleur cellule avec texte

une solution :
Sélectionne toutes les cellules contenant Enregistré le ...
Menu Format - Mise en forme conditionnelle
Condition 1 : La formule est
Dans la case blanche : =CNUM(DROITE(A1;8))=AUJOURDHUI()
Il faudra remplacer A1 par la référence de la 1ère cellule de ta sélection (surtout pas de $)
Bouton Format : choisis un fond rouge.
Si tu as des questions, n'hésite pas

 

[Fixxup]

Re : changer couleur cellule avec texte

j'ai essayer ta solution sa ne fonctionne pas.
peut etre que je m'y prends mal !
tu n'aurais pas plutot un code vba pour ce problème
moi par exemple j'ai essayer de faire une boucle :

Sub couleur()
Dim Cel As Range
ActiveSheet.Range("k:k").Select

For Each Cel In ActiveSheet.Range("k:k")
If Cel = "*Enregistré le *" Then
Selection.Interior.ColorIndex = 3
End If
Next Cel

End Sub

 

[tototiti2008]

Re : changer couleur cellule avec texte

Je crois que je n'avais pas bien compris. Tu veux simplement que si ça commence par "Enregistré le", il y ait un fond rouge ?
Alors je reprend :
Sélectionne toutes les cellules contenant Enregistré le ...
Menu Format - Mise en forme conditionnelle
Condition 1 : La formule est
Dans la case blanche : =Gauche(A1;13)="Enregistré le"
Il faudra remplacer A1 par la référence de la 1ère cellule de ta sélection (surtout pas de $)
Bouton Format : choisis un fond rouge.

ou en VBA (Mais pourquoi faire une macro quand l'outil existe ?) :

Sub couleur()
Dim Cel As Range
ActiveSheet.Range("k:k").Select

For Each Cel In ActiveSheet.Range("k:k")
If Cel Like "*Enregistré le *" Then
Selection.Interior.ColorIndex = 3
End If
Next Cel

End Sub

 

[Fixxup]

Re : changer couleur cellule avec texte

je veut faire une macro car le changement de couleur fai partie du processus d'une autre macro que j'ai mis en place.
par contre j'ai corrigé mon code vba (avec le "like") sa ne fonctionne toujours pas.

Vois tu une solution au problème ?