recherche d'une couleur de caractères

[Mordicus]

Bonjour,

Je recherche un moyen de trouver dans plusieurs sheet, des caractères de couleur (rouge) que je souhaite transformer en bleu.

Pensez vous que cela soit possible ?

Merci pour votre aide.

 

[Excel-lent]

Re : recherche d'une couleur de caractères

Bonjour et bienvenu sur le Mordicus,

Tu as oublié de préciser sur qu'elle version d'Excel tu travail. Car la réponse à ta question ne sera pas la même 😉

Sur Excel 2010, sauf erreur on peut sélectionner les cellules d'une couleur défini, grâce à l'utilisation des filtres automatiques. Après, une fois le filtre effectué, il ne reste plus qu'à modifier la couleure de la police.

Sur les versions antérieurs, on ne peut pas effectuer de filtre sur la couleur de la cellule ou de la police, pour cela il faut passer par le VBA.

Bonne après midi
Cordialement

 

[Excel-lent]

Re : recherche d'une couleur de caractères

Re,

Si tu opte pour le VBA, il faudra envoyer un extrait de ton fichier (sans données confidentielles). Car au vue de tes explications, plusieurs questions importantes restent sans réponses.

-> quel rouge et quel bleu utilises-tu? Car il existe plusieurs nuances de bleu et de rouge
-> TOUS les caractères d'une cellule sont en rouge, bleu, noir, ... ou c'est juste quelques caractères?
-> tu veux effectuer cette modification à quel fréquence?
-> quand veux-tu faire cela? A chaque ouverture du fichier? A chaque fois qu'il y a une modification dans le fichier? Lorsque l'utilisateur appui sur un bouton?
-> ???

A te lire
Cordialement

PS. : autant pour moi, je n'avais pas vû! Tu n'as pas mis ta version d'Excel dans ton profil, mais tu l'as indiqué dans le titre de ton sujet.

 

[Mordicus]

Re : recherche d'une couleur de caractères

J'ai transmis un fichier d'exemple, totalement pas confidentiel ;-)
Actuellement, j'en ai besoin sous une vielle version Excel2000, sous NT2000.
A l'automne 2012, je devrai pouvoir migré sous W7.

Merci.

 

[DoubleZero]

Re : recherche d'une couleur de caractères

Bonjour à toutes et à tous,

Bienvenue sur XLD, Mordicus 🙂 !

Une suggestion à tester :

Option Explicit

Sub Du_rouge_au_bleu()
Dim w As Worksheet
Dim c As Range
For Each w In Sheets
    For Each c In w.UsedRange
    On Error GoTo fin
       If c.Font.ColorIndex = 3 Then c.Font.ColorIndex = 5
    Next
Next
fin:
End Sub

A bientôt.

 

[Mordicus]

Re : recherche d'une couleur de caractères

L'idée est de faire cette transformation volontairement en cliquant un bouton.

 

[Mordicus]

Re : recherche d'une couleur de caractères

Merci Henri, cela fonctionne parfaitement.

 

[DoubleZero]

Re : recherche d'une couleur de caractères

Re-bonjour,

Merci Henri, cela fonctionne parfaitement.

😕 Aurais-je manqué un épisode 😕 ?

 

[Mordicus]

Re : recherche d'une couleur de caractères

Je pensais que Henri était ton prénom. en fait c'est Henri Matisse 🙂)

Donc merci DoubleZero,

Je souhaiterai ajouter une exception : que les couleurs de la sheet TAG ne soit pas modifiées.

D'avance merci pour ton aide.

 

[DoubleZero]

Re : recherche d'une couleur de caractères

Re-bonjour,

Une nouvelle suggestion dans le fichier joint.

Option Explicit

Sub Du_rouge_au_bleu()
Dim w As Worksheet
Dim c As Range
For Each w In Sheets
    If w.Name <> "TAG" Then
    For Each c In w.UsedRange
    On Error GoTo fin
       If c.Font.ColorIndex = 3 Then c.Font.ColorIndex = 5
    Next
    End If
Next
fin:
End Sub

A bientôt 🙂

 

[Mordicus]

Re : recherche d'une couleur de caractères

Merci DoubleZero.