VBA - Récupérer chaine caractère suivant sa couleur

pierrejean

XLDnaute Barbatruc

• 20 Juin 2019

• #2

Bonjour Spinzi

Vois si cela te convient

 

Pièces jointes

• Test texte suivant couleur.xlsm

  15.3 KB · Affichages: 11

Vote positif 0 Vote négatif

Spinzi

XLDnaute Impliqué

• 20 Juin 2019

• #3

Merci pour ton retour express !

Ca fonctionne plutôt bien, cependant j'ai l'impression que la formule s'emmêle les pinceaux si je modifie la couleur des textes (j'ai modifié tous les textes rouge en noir et la formule ne remonte plus rien).
J'ai ajouté un texte en ligne 6 qui lui par contre est bien reconnu.

Spinzi

 

Pièces jointes

• Test texte suivant couleur_vPJ.xlsm

  15.7 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Juin 2019

• #4

Bonjour Spinzi, Pierre,

Cette fonction VBA semble convenir :

VB:

Function SupCouleur(c As Range, coul&) As String
Application.Volatile
Dim i%
SupCouleur = c
For i = Len(c) To 1 Step -1
    If c.Characters(i, 1).Font.ColorIndex = coul And Mid(SupCouleur, i, 1) <> vbLf Then _
        SupCouleur = Left(SupCouleur, i - 1) & Mid(SupCouleur, i + 1)
Next
End Function

Fichier joint, la colonne B est au format "Renvoyer à la ligne automatiquement".

A+

 

Pièces jointes

• Test texte suivant couleur(1).xlsm

  21 KB · Affichages: 16

Vote positif 0 Vote négatif

Spinzi

XLDnaute Impliqué

• 20 Juin 2019

• #5

Bonjour Job !

ça fonctionne super bien couplé à mon index equiv.

Merci à vous pour votre expertise =)
Spinzi

 

Vote positif 0 Vote négatif