[VBA E] Characters et couleurs

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:

---

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:

---

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

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

Code:

---

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

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

Code:

---

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

---

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

Code:

---

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

---

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:

---

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

juste manière de participer

Citation:

---

Envoyé par fred

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.

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

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

Citation:

---

Envoyé par fred

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

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

Regarde le classeur joint.
@+

fred65200

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

Citation:

---

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

---

je voulais dire que dans ton explication

Citation:

---

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 ? :lol: