Discussion :

[arnaud_92]

Bonjour,

Je souhaiterai mettre en place une condition sur la condition du texte d'une cellule.
J'ai trouvé des réponses sur le forum mais lorsque la totalité du texte est d'une certaine couleur.
Dans mon fichier ce n'est pas le cas, je peux avoir dans une celulle, une partie du texte en noir et une autre en bleu.

Auriez-vous des idées afin de mettre en place une condition sur le code couleur du texte?

Merci d'avance,

[antonysansh]

Bonjour arnaud_92,

Ce n'est surement pas la méthode la plus optimale mais voilà une proc qui te permet de balayer les caractères d'une cellule et d'en afficher la couleur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
 
Dim rg As Range, i As Long: Set rg = [A1]
 
For i = 1 To Len(rg.Value)
    MsgBox rg.Characters(i, 1).Font.Color
Next i
 
End Sub

[joe.levrai]

Bonjour,

il faut juste que tu récupère le bon numéro pour ta couleur bleu
exemple avec du rouge, le test se fait sur la cellule active

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub RougeOrNotRouge()
 
Dim i As Long
 
 
For i = 1 To Len(ActiveCell)
    If ActiveCell.Characters(i, 1).Font.ColorIndex = 3 Then
        MsgBox ("Le caractère " & i & " est rouge")
        Exit Sub
    End If
Next i
 
End Sub

EDIT : arf, antonysansh m'a doublé ... ça m'apprendra à chercher mes index de couleurs

[arnaud_92]

Merci effectivement en modifiant légérement le code j'arrive à ce que je souhaite.
Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
            For c = 1 To Len(Cells(j, 1))
            If Cells(j, 1).Characters(c, 1).Font.ColorIndex = 44 Then
            Cells(j, 1).Select
            Selection.Copy
            Worksheets("Feuil1").Select
            Cells(i, 1).Select
            ActiveSheet.Paste
            End If
            Next c

Cependant j'ai une dernière question, dans le cas de couleurs qui sont dans des thèmes et pas par défaut, auriez-vous une idée de la manière d'entrer la condition sur la couleur.

Merci

[joe.levrai]

Bonjour,

il te suffit d'utiliser l'enregistreur de macro : tu enregistre l'action de colorier la police de caractère dans la couleur que tu souhaites détecter

le code te fournira la "carte d'identité" de la couleur

[arnaud_92]

C'est ce que j'ai effectivement fait Joe.levrai. Mais voici le code obtenu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Selection.Font
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399975585192419
    End With

Comment l'adapter dans ma condition?

Merci