Discussion :

[Bruno02]

Bonjour le forum,
Voila j'ai du texte avec plusieurs lettres en couleur ou lettre barrée.
Je modifie les caractères rouge en bleu et les autres couleurs en noir
Cela fonctionne avec mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub remplacelacouleur() 
For i = 1 To 50
 
If Selection.Characters(i, 1).Font.ColorIndex = 3 Then
Selection.Characters(i, 1).Font.ColorIndex = 5
Else:
Selection.Characters(i, 1).Font.ColorIndex = 0
End If
 
Next i
End Sub

Mon premier problème et je voudrais supprimer mes characters barré

Code :

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

if Selection.Characters(i, 1).Font.Strikethrough = True then ?????

Mon deuxième problème est que je voudrais pouvoir la faire tourner sur une plage de cellule.

Merci d'avance pour vos pistes
Bruno

[alsimbad]

sans aller chercher très loin et sans avoir testé

Code :

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

if Selection.Characters(i, 1).Font.Strikethrough = True then Selection.Characters(i, 1).delete

quand a tourner sur une plage de cellule, je ne comprend pas la question

[ancel17]

pour le faire tourner sur une plage de cellule en supposant que la plage soit sélectionnée, tu peux tenter ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim c As Range
 
For Each c In Selection.Cells
    For i = 1 To 50
        If c.Characters(i, 1).Font.ColorIndex = 3 Then
            c.Characters(i, 1).Font.ColorIndex = 5
        Else
            c.Characters(i, 1).Font.ColorIndex = 0
        End If
        If c.Characters(i, 1).Font.Strikethrough = True Then
            c.Characters(i, 1).delete
        End If
    Next i
Next

[patbou]

bonjour
la boucle for i = 1 to .... n est pas necessaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim c As Range
 
For Each c In Selection.Cells    
        If c.Characters.Font.ColorIndex = 3 Then
            c.Characters.Font.ColorIndex = 5
        Else
            c.Characters.Font.ColorIndex = 0
        End If
        If c.Characters.Font.Strikethrough = True Then
            c.Characters.delete
        End If
 
Next c

[fred65200]

bonsoir à tous,

je n'ai pas testé la macro, mais il me semble qu'il faut faire une boucle du dernier caractère au premier avec Step - 1.

Exemple sans Step - 1
1234 (imaginez le souligné comme un barré)

si je supprime le 2nd caractère, je passe au 3è qui n'est pas 3 mais 4; le 3 barré n'est pas supprimé.

Pour moi le bon code est le suivant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim c As Range
 
For Each c In Selection.Cells
    For i = c.Characters.Count To 1 Step -1
 
        If c.Characters(i, 1).Font.ColorIndex = 3 Then
            c.Characters(i, 1).Font.ColorIndex = 5
        Else
            c.Characters(i, 1).Font.ColorIndex = 0
        End If
        If c.Characters(i, 1).Font.Strikethrough = True Then
            c.Characters(i, 1).Delete
        End If
    Next i
Next c

cordialement
fred65200

[alsimbad]

juste manière de participer

si je supprime le 2nd caractère, je passe au 3è qui n'est pas 3 mais 4.

en fait
si je supprime le 2nd caractère, je passe au 3è qui n'est pas 3 mais 2.
ou
si je supprime le 2nd caractère, je passe au 4è qui n'est pas 4 mais 3.