Mise en forme conditionnelle sur portion de phrase

[DoubleZero]

Bonjour à toutes et à tous,

Je ne parviens pas à appliquer une mise en forme conditionnelle sur une portion de phrase.

Soit, par exemple, la phrase :

VBA ? Je ne peux point ' mais je voudrais tellement !..

je souhaiterais que la couleur verte soit appliquée depuis l'apostrophe => ' mais je voudrais tellement !.. , que celle-ci soit suivie ou non d'un espace.

Je vous remercie pour l'aide qu'il vous sera permis de m'apporter.

 

[Pierrot93]

Re : Mise en forme conditionnelle sur portion de phrase

Re 00,

essaye ceci, ta phrase en K1 :

With Range("K1").Characters(InStr(Range("K1"), "'")).Font
    .Bold = True
    .ColorIndex = 3
End With

bonne journée
@+

 

[DoubleZero]

Re : Mise en forme conditionnelle sur portion de phrase

Re-bonjour, Pierrot, le Forum,

Pierrot, pour la deuxième fois de la journée, tu viens à mon secours 🙂.

Ton présent code est, lui aussi, formidable.

Mais... ce que j'en fais, pour le rendre applicable à plusieurs colonnes et cellules, massacre tout 😡 !

Ceci :

Sub a()
With Column("K").Characters(InStr(Column("K"), "'")).Font
    .Bold = True
    .ColorIndex = 3
End With
End Sub

ainsi que ta solution de ce matin

...With Target.Column < xxx

ne me renvoient que des messages d'erreur.

Je ne trouve pas le remède 😱.

Merci encore.

 

[JCGL]

Re : Mise en forme conditionnelle sur portion de phrase

Bonjour à tous,
Salut Pierrot,
Salut 00,

Si tant est que cela doive fonctionner, il manque un s à Column

A+ à tous

 

[Pierrot93]

Re : Mise en forme conditionnelle sur portion de phrase

Re,

mets ceci dans le module de la feuille concernée, testé et fonctionnel chez moi sous Excel 2003 :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Count > 1 Then Exit Sub
    If .Column < 27 Then
        If InStr(.Value, "'") > 0 Then
            With .Characters(InStr(Target.Value, "'")).Font
                .Bold = True
                .ColorIndex = 3
            End With
        End If
    End If
End With
End Sub

s'applique sur les colonnes de A à Z..

bon après midi
@+

 

[DoubleZero]

Re : Mise en forme conditionnelle sur portion de phrase

Re-bonjour à toutes et tous,

@ JCGL,

Merci pour ton intervention 🙂.

@ Pierrot,

Superbe ! ENORME MERCI pour le remède accompagné de... l'ordonnance 🙂.

Bonne continuation et bon courage...

 

[Pierrot93]

Re : Mise en forme conditionnelle sur portion de phrase

Re, Aarf, n'apporte rien de nouveau, juste histoire de saluer mon ami Jean-Claude🙂 que je n'avais point vu... Suit mal-voyant moi.... Désolé JC... à bientôt....

 

[JCGL]

Re : Mise en forme conditionnelle sur portion de phrase

Bonjour à tous,

Un fichier pour la colonne K, déclenchement par un bouton : Spécial mon ami Pierrot...

A++
A+ àtous

 

[Pierrot93]

Re : Mise en forme conditionnelle sur portion de phrase

Re,

Aarf🙄.... Merci Jean-Claude....🙂Bonne soirée