Modification police chaîne de caractères

Bonjour à tous

Petit problème. Mon boss me demande à ce que dans une case (A1) les phrases commençant par V1N change de type de police.

J'ai essayé avec findtext mais ce n'est pas concluant .

Ave vous une idée pour sélectionner juste la phrase pour que je puisse changer la police ?

Ou compter les caractères avant le début de la phrase ? Merci d'avance

Bonsoir,

un essai "limité" dans son fonctionnement :

Sub Police_et_Rouge()
    Chaine = Range("A1").Value
    Position = InStr(1, UCase(Chaine), UCase("V1N"))
    If Position > 0 Then
        Range("A1").Characters(Start:=Position, Length:=Len(Chaine) - Position + 1).Font.Name = "Arial"
        Range("A1").Characters(Start:=Position, Length:=Len(Chaine) - Position + 1).Font.Color = RGB(255, 0, 0)
    End If
End Sub

On cherche la position de "V1N" puis on change la police à partir du premier caractère de V1N jusqu'à la fin de la valeur de la cellule, et je le passe en rouge.
Maintenant, s'il y a des données à ne pas modifier, il faudrait trouver la fin de la phrase V1N en recherchant par exemple un "." à partir de la position du V de "V1N", et du coup on connaît le premier caractère et le dernier...

@ bientôt

LouReeD

C'est exactement ce dont j'ai besoin 😍😍😍. C'est quoi ce forum où les gens nous aident à réussir c'est dingue

Bonjour,

Merci pour ce retour !

@ bientôt

LouReeD