XL 2019 trouver toutes les occurrences d'un caractère dans une chaine

job75

XLDnaute Barbatruc

• 1 Juillet 2024

• #2

Bonjour teclim,

La solution est de stocker les propriétés des caractères dans des tableaux.

Puis de les restituer après modification du texte de la cellule :

VB:

Sub ConserverFormatTexte()
Dim cel As Range, supr%, conserve$, i%, a(), b()
Set cel = [A1] 'à adapter
supr = 62 'nombre de caractères à supprimer en fin de texte, à adapter
conserve = Left(cel.Text, Len(cel.Text) - supr)
For i = 1 To Len(conserve)
    ReDim Preserve a(1 To i): a(i) = cel.Characters(i, 1).Font.Color 'couleur
    ReDim Preserve b(1 To i): b(i) = cel.Characters(i, 1).Font.Bold 'gras
Next i
cel = conserve 'modifie le texte
For i = 1 To Len(conserve)
    cel.Characters(i, 1).Font.Color = a(i)
    cel.Characters(i, 1).Font.Bold = b(i)
Next i
cel.EntireRow.AutoFit 'ajustement hauteur, facultatif
End Sub

A+

 

Dernière édition: 1 Juillet 2024

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2024

• #3

Vous n'avez pas donné suite à ce fil, j'espère que ce n'est qu'un oubli :

https://excel-downloads.com/threads...s-depuis-une-fonction.20083561/#post-20650053

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 1 Juillet 2024

• #4

Salut, voir via RegEx ?

 

Vote positif 0 Vote négatif

T

teclim

XLDnaute Nouveau

• 1 Juillet 2024

• #5

job75 à dit:

Vous n'avez pas donné suite à ce fil, j'espère que ce n'est qu'un oubli :

https://excel-downloads.com/threads...s-depuis-une-fonction.20083561/#post-20650053

Cliquez pour agrandir...

Oui effectivement je suis focalisé sur ces macros. C'est corrigé.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2024

• #6

Et la solution de ce fil-ci ?

 

Vote positif 0 Vote négatif

T

teclim

XLDnaute Nouveau

• 1 Juillet 2024

• #7

J'ai adapté la solution de job75 et ça fonctionne.
Juste ça prend un peu de temps (moins que si je le faisait à la main)
Merci.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juillet 2024

• #8

teclim à dit:

Juste ça prend un peu de temps

Cliquez pour agrandir...

Pour accélérer mettez Application.ScreenUpdating = False en début de macro.

 

Vote positif 0 Vote négatif

T

teclim

XLDnaute Nouveau

• 4 Juillet 2024

• #9

Merci ça fait gagné du temps.

 

Vote positif 0 Vote négatif