Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise en forme conditionnelle sur portion de phrase

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

DoubleZero

XLDnaute Barbatruc
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.
 
Re : Mise en forme conditionnelle sur portion de phrase

Re 00,

essaye ceci, ta phrase en K1 :
Code:
With Range("K1").Characters(InStr(Range("K1"), "'")).Font
    .Bold = True
    .ColorIndex = 3
End With
bonne journée
@+
 
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 :
Code:
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
Code:
...With Target.Column < xxx
ne me renvoient que des messages d'erreur.

Je ne trouve pas le remède 😱.

Merci encore.
 
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 :

Code:
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
@+
 
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...
 
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....
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
239
Réponses
5
Affichages
665
W
Réponses
6
Affichages
345
Réponses
25
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…