Discussion :

[NicoHelsinki]

Bonjour,

J´ai un tableau excel avec des cellules contenant des mots écrits en noir, puis des mots écrits en bleus.
Exemple: bonjour (n.m) hello, hi.

Je souhaite copier les mots en noir dans une cellule et les mots en bleu dans une autre.
Cela donnerait:
- une cellule avec: bonjour (n.m)
- une autre cellule avec: hello, hi.

J´ai pas mal cherché mais je ne vois pas du tout comment m´y prendre pour reconnaitre un changement de couleur dans une même cellule.

Merci de votre aide,

Nicolas

[Solkien]

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 azaz()
    Cells(11, 7).Value = ""
    Cells(11, 8).Value = ""
 
    Dim i As Long
    For i = 1 To Len(Cells(11, 6).Value)
        If Cells(11, 6).Characters(Start:=i, Length:=i + 1).Font.ColorIndex = 41 Then
            Cells(11, 7).Value = Cells(11, 7).Value + Cells(11, 6).Characters(Start:=i, Length:=i + 1).Text
        ElseIf Cells(11, 6).Characters(Start:=i, Length:=i + 1).Font.ColorIndex = 1 Then
            Cells(11, 8).Value = Cells(11, 8).Value + Cells(11, 6).Characters(Start:=i, Length:=i + 1).Text
        End If
    Next
End Sub

Ca devrait t'inspirer pour faire exactement ce que tu veux. Pour connaitre le code couleur, j'ai joué avec l'enregistrment de macro).

[NicoHelsinki]

Merci beaucoup, je vois comment faire maintenant.
Bonne soirée,

Nicolas