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.

[fred65200]

bonsoir alsimbad

il me semble que dans la chaîne 1234, si on ne commence pas par le dernier caractère.
si tu retires le 2ème caractère, il te reste 134, et
donc le 3ème caractère est 4 et pas 2 puisque tu l'a retiré de ta chaîne??

fred65200

[alsimbad]

salut fred
c'est vrai, je pensais pas au step -1
mais meme dans ce cas, quand j'enleve le deuxieme caractere de la chaine 4 3 2 1 , c'est le 3 que j'enleve
et puis de toute maniere, je pense qu'on parle dans le vide
ces histoires d'ordre, d'occurence qui disparraissent, et de step -1 ne sont d'actualité que quand on supprimme des cellules ou des ligne parce qu'il y a effacement physique de la ligne en question, et donc décalage. dans un groupe de données, il n'y a pas ce phénomene. quoi que, ici ce sont des caracteres que l'on supprime réelement....je sais pas a vrai dire. il est un peu tôt là, tu a peut etre raison
bonne journée
j'édite

je passe au 3è qui n'est pas 3 mais 4

faut dire aussi, que je me rend compte que je t'ai mal lu
j'ai lu je passe au 3eme qui n'est plus le troisieme mais le quatrieme
il fallait lire qui n'est plus le chiffre 3 mais la chiffre 4
donc lu comme ça, si l'on exepte la prise en compte du step -1, tu a entierement raison

[fred65200]

bonjour alsimbad,
Je ne suis pas tout à fait d'accord avec toi.

Regarde le classeur joint.
@+

fred65200

[alsimbad]

non, tout a fait, tu as entierement raison sur le fait qu'il faille faire un step -1 pour que ça tourne. quand je dis

si l'on exepte la prise en compte du step -1,

je voulais dire que dans ton explication

Exemple 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

puisque tu applique un steep -1 quand tu supprime le deuxieme caractere, en fait tu supprime le chiffre 3, et donc ensuite tu passe au troisieme chiffre qui n'est plus 2 mais 1.
me trompe je ?