Effacer les caractère en bleu barrés

G

GIBI

XLDnaute Impliqué

• 28 Juillet 2008

• #2

Re : Effacer les caractère en bleu barrés

Salut,

en bouclant sur des cellules selectionnée cela peut se faire de cette manière

For Each valeur In Selection
L = Len(valeur)
For i = 1 To L

If valeur.Characters(Start:=i, Length:=1).Font.Strikethrough = True _
And valeur.Characters(Start:=i, Length:=1).Font.Color = 16711680 Then
valeur.Characters(Start:=i, Length:=1).Font.Strikethrough = False
valeur.Characters(Start:=i, Length:=1).Font.Color = 0

End If

Next
Next

A toi d'adapter à ton problème

GIBI

 

Vote positif 0 Vote négatif

C

Creepy

XLDnaute Accro

• 28 Juillet 2008

• #3

Re : Effacer les caractère en bleu barrés

Bonjour Cyr25, Gibi,

Ci-joint un exemple avec le code commenté.

@+

Creepy

 

Pièces jointes

• Essai bleu barré1.zip

  22.4 KB · Affichages: 27
• Essai bleu barré1.zip

  22.4 KB · Affichages: 25
• Essai bleu barré1.zip

  22.4 KB · Affichages: 23

Vote positif 0 Vote négatif

C

Cyr25

Guest

• 28 Juillet 2008

• #4

Re : Effacer les caractère en bleu barrés

Merci pour ton aide GIBI, 🙂
J'ai modifié le code comme suit mais cela ne m'efface qu'un caractère sur deux! Je continue de chercher mais comme je ne suis pas un crack en vba, si tu as une idée, je suis preneur.

For Each valeur In Selection
L = Len(valeur)
For i = 1 To L Step 1

If valeur.Characters(Start:=i, Length:=1).Font.Strikethrough = True _
And valeur.Characters(Start:=i, Length:=1).Font.Color = 16711680 Then
valeur.Characters(Start:=i, Length:=1).Delete

End If

Next
Next

 

Vote positif 0 Vote négatif

G

GIBI

XLDnaute Impliqué

• 28 Juillet 2008

• #5

Re : Effacer les caractère en bleu barrés

Cyr25,

tu n'avais pas dit clairement que tu voulais supprimer le caractère.

Ton code saute un caractère, car quand tu supprime une valeur ton I se retrouve sur le caractère suivant et la longuer diminue de 1

Je te conseille, par exemple, de faire une boucle for i = l to 1 step-1 et quand tu supprime une valeur tu ajoute If i<>1 then i=i+1



GIBI

 

Vote positif 0 Vote négatif

C

Creepy

XLDnaute Accro

• 28 Juillet 2008

• #6

Re : Effacer les caractère en bleu barrés

Re all,

De manière général quand on supprime des données dans une chaine de texte, un tableau en mémoire, etc... il est fortement recommandé de partir du max vers 0 ou 1 avec un pas à -1 et non l'inverse.

Cela evite pas mal de désagrement

Creepy

 

Vote positif 0 Vote négatif

C

Cyr25

Guest

• 28 Juillet 2008

• #7

Re : Effacer les caractère en bleu barrés

Merci GIBI,
Ne tiens pas compte de mon message précédent car apparement on a posté en même temps.
Ton exemple est parfait en plus avec les commentaires, j'ai appris plein de choses. Je vais pouvoir avancer plus vite dans mon travail et profiter du soleil plus rapidement ce soir.

Merci à toi aussi Creepy, je vais tenir compte de ta remarque pour une prochaine fois

Bonne fin d'après midi.🙂

 

Vote positif 0 Vote négatif