Recherche d'un texte par sa couleur

Bonjour,

J'ai une question, si quelqu'un peut m'aider ce serait super.

Voilà, je vous expose mon problème:

J'ai un tableau excel assez important, tous mes textes sont en noir, sauf 2 ou 3 qui sont en rouge. Seulement je ne retrouve pas ces textes rouges.

Y a t-il un moyen rapide de les retrouver?

Bonjour,

Comme personne ne t'a encore répondu, il me semble qu'il y a peu de solutions à attendre.

Peut-être par macro, mais c'est au-delà de mes compétances..

Si ce n'était qu'une colonne, il y a bien les anciennes macros XL4 :

=LIRE.CELLULE(24;A1)

formule à nommer (menu Insertion / Nom / Définir) et taper le nom donné dans une cellule.

mais pour tout un tableau, assez important, c'est difficilement réalisable

Il y a bien une méthode pour retrouver les cellules : les sélectionner et les nommer.

Quand on clique sur le nom dans la petite fenêtre à l'extrême gauche de la barre de formules, les cellules sont sélectionnées, donc plus facile à retrouver.

Il existe un raccourci clavier pour se déplacer d'une cellule sélectionnée à l'autre, mais je ne m'en souviens pas, ... je cherche.

Salut mumu,

ajoute un module et met ceci dedans

Sub trouverTexteRouge()
Dim strTexte As String

For Each cell In Sheets("feuil1").UsedRange
    If cell.Font.ColorIndex = 3 Then
        strTexte = strTexte & "Cellule " & cell.Address & " Valeur " & cell.Value & vbCrLf
    End If
Next

MsgBox strTexte

End Sub

Est-ce que ca fait l'affaire ?

A+

F.

mumu a écrit :

Bonjour,

J'ai une question, si quelqu'un peut m'aider ce serait super.

Voilà, je vous expose mon problème:

J'ai un tableau excel assez important, tous mes textes sont en noir, sauf 2 ou 3 qui sont en rouge. Seulement je ne retrouve pas ces textes rouges.

Y a t-il un moyen rapide de les retrouver?

Bonjour,

Il y a bien un moyen mais c'est avec une macro, si tu peu t'en servir voila ce que tu doit mettre dans un module....

Sub ChercherCouleur()
Dim Cel As Range
Dim a$
    Sheets("Feuil1").Activate 'A adapter au nom de la feuille
    For Each Cel In Sheets("feuil1").UsedRange
         If Cel.Font.ColorIndex = 3 Then 'correspond au rouge
            Cel.Select
            If MsgBox("Est-ce la cellule recherchée ?", vbYesNo, "Recherche cellule rouge") = vbYes Then
                Exit Sub
            End If
     Next Cel
    MsgBox "il n'y à plus de cellule correspondante", vbExclamation, "Recherche cellule rouge"

 End Sub

Cette fonction recherche les cellules qui ont le texte en rouge, et passe à la suivante si ce n'est pas celle recherchée.

A+

Bonjour,

Suite à ton MP, il faut bien sur changer Feuil1 par le nom de ta feuille (2 fois).

Sinon chez moi cela fonctionne correctement.

Concernant ta 2ém question 'Changer couleur'

Tu tape F1 et dans recherche tu tape....

PatternColorIndex, propriété

Tu aurras toutes les couleurs disponnible par la fonction ColorIndex

Tu change le 3 qui est le rouge par le numéro que tu choisi, bien sur tes lignes doivent alors avoir la même couleur pour la détection.

Si encore un problème hésite pas a revenir.

A+

Edit:

Il y à effectivement un bug dans mon code précédant (probablement copier/Coller), je le remet complété..

Sub ChercherCouleur() 
Dim Cel As Range 
Dim a$ 
    Sheets("Feuil1").Activate 'A adapter au nom de la feuille 
    For Each Cel In Sheets("feuil1").UsedRange 
         If Cel.Font.ColorIndex = 3 Then 'correspond au rouge 
            Cel.Select 
            If MsgBox("Est-ce la cellule recherchée ?", vbYesNo, "Recherche cellule rouge") = vbYes Then 
                Exit Sub 
            End If 
          Enf if   'Ce If était resté... je sais pas où
     Next Cel 
    MsgBox "il n'y à plus de cellule correspondante", vbExclamation, "Recherche cellule rouge" 

 End Sub