Discussion :

[jack_c]

Bonjour à tous,

j'ai des cellules contenant du texte dont certains mots sont en couleur et en gras.
> Je souhaite supprimer les mots (les caractères) en couleur et gras.

J'ai trouvé comment identifier la couleur de la police au niveau d'une cellule.
Par contre, je ne sais pas identifier la couleur de chaque caractère dans la cellule.

Avez-vous une solution ?
Merci à tous par avance,

[nibledispo]

Bonjour,

Utilise la fonction characters() dans une boucle sur la longueur du mot

Ce qui devrait donner quelque chose de ce genre :

Code :

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

1
2
3
4
5
6
7
8
9
 
dim cellule as range
for each cellule dans (selection à préciser)
   for i = 1 to len(range(cellule))
       if range(cellule).Characters(i, 1) 'mettre les conditions (different de gras ou couleur) then
          cellule.value =  cellule.value + mid(range(cellule).value,i,1)
       end if
   next i
next

Cordialement,

[parmi]

Bonjour,

Une piste...

Code :

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

1
2
3
4
5
6
7
8
    For I = 1 To Len(ActiveCell.Text)
        If ActiveCell.Characters(I, 1).Font.Bold Then
            MsgBox "Le " & I & "e caractère est gras"
        End If
        If ActiveCell.Characters(I, 1).Font.Color <> 0 Then
            MsgBox "Le " & I & "e caractère est coloré"
        End If
    Next

Il te reste à effacer le mot trouvé... Ça prendrait une boucle pour vérifier les caractères suivants, éventuellement jusqu'au prochain espace ou la fin de la chaîne...

[jack_c]

cela fonctionne très bien.
J'ai pris la solution suivante :

Code :

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

1
2
3
4
5
6
texte = ActiveCell.Value
         For j = 1 To Len(texte)
         If ActiveCell.Characters(j, 1).Font.Bold = False Then
               nouv_texte = nouv_texte + Mid(texte, j, 1)
         End If
         Next j

Merci à vous deux.