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

Mettre une partie de la phrase en évidence

Créer une discussion

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 !

S'inscrire

gosselien

XLDnaute Barbatruc
Hello à tous,

petit souci pour une cellule avec formule:

="Le Bailleur loue au Preneur le logement du "& TEXTE(D14;"jjjj jj mmm aaaa") & " au " & TEXTE(D15;"jjjj jj mmm aaaa") & " pour " & D8 & " adultes, "

j'aurais voulu mettre la date (contenue en D14 - D15 - D8 dans ce cas) en couleur ou en gras ?
Si ce n'était pas une formule, on saurait mettre une partie de la phrase en gras, mais ici , comme ça commence par un "=" c'est donc une formule et il me semble impossible de colorer la partie voulue sauf , et c'est un peu du chipotage, on met le début dans une cellule, la suite dans celle à droite et ainsi de suite.

Merci de votre aide (VBA ou autre)

ps: il est possible que je pose la question sur un autre forum, mais je le signalerai bien sur, ça me donne simplement + de chances d'avoir une réponse et parfois meilleure d'un côté que de l'autre/

P.
 
Trier par date Trier par votes
Bonjour gosselien 🙂, phlaurent55 😉,

J'ai une solution et la belle-mère ne me réclame pas d'urgence, donc je la télécharge de ce pas (la solution pas la belle-mère ! ) 😀.

Voir la macro dans le module de code associé à Feuil1.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re à tous,

je vais tester ça 🙂
Heureusement; il n'y a pas beaucoup de zones à mettre en évidence , mais je vois que comme ça c'est possible; j'étais parti sur une copie de la phrase en valeur et puis colorer ou mettre en gras la zone voulue.
Je vais adapter cela à mon fichier réel.
Merci mapomme ... et je vais voir ce que propose mon compatriote
P.
 
Vote positif 0 Vote négatif
Bonsoir gosselien, Philippe, mapomme,

Une autre solution :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim p1%, p2%, p3%, p4%
Application.EnableEvents = False
With [D17] 'cellule à adapter
  .Formula = "=""Le Bailleur loue au Preneur le logement du ""&TEXT(D14,""jjjj jj mmmm aaaa"")&"" au ""&TEXT(D15,""jjjj jj mmmm aaaa"")&"" pour ""&D8&"" adultes,"""
  .Value = .Value 'supprime la formule
  p1 = InStr(.Value, "du"): p2 = InStr(p1, .Value, "au"): p3 = InStr(.Value, "pour"): p4 = InStr(.Value, "adult")
  .Characters(p1 + 3, p2 - p1 - 4).Font.Bold = True: .Characters(p1 + 3, p2 - p1 - 4).Font.ColorIndex = 3
  .Characters(p2 + 3, p3 - p2 - 4).Font.Bold = True: .Characters(p2 + 3, p3 - p2 - 4).Font.ColorIndex = 3
  .Characters(p3 + 5, p4 - p3 - 6).Font.Bold = True: .Characters(p3 + 5, p4 - p3 - 6).Font.ColorIndex = 3
End With
Application.EnableEvents = True
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re,

Ma solution précédente n'est pas fameuse car elle ne fonctionne que sur une version française.

Donc utiliser :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat1$, dat2$, n$, p1%, p2%, p3%, p4%
Application.EnableEvents = False
dat1 = Format([D14], "dddd dd mmmm yyyy"): dat2 = Format([D15], "dddd dd mmmm yyyy"): n = [D8]
With [D17] 'cellule à adapter
  .Value = "Le Bailleur loue au Preneur le logement du " & dat1 & " au " & dat2 & " pour " & n & " adultes,"
  p1 = InStr(.Value, "du"): p2 = InStr(p1, .Value, "au"): p3 = InStr(.Value, "pour"): p4 = InStr(.Value, "adult")
  .Characters(p1 + 3, p2 - p1 - 4).Font.Bold = True: .Characters(p1 + 3, p2 - p1 - 4).Font.ColorIndex = 3
  .Characters(p2 + 3, p3 - p2 - 4).Font.Bold = True: .Characters(p2 + 3, p3 - p2 - 4).Font.ColorIndex = 3
  .Characters(p3 + 5, p4 - p3 - 6).Font.Bold = True: .Characters(p3 + 5, p4 - p3 - 6).Font.ColorIndex = 3
End With
Application.EnableEvents = True
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re-bonjour à tous

Mauvaise nouvelle, Toujours vivante, toujours debout, .....................

Plus sérieusement, voici le fichier que j'avais du abandonner hier

......... et qui tient compte du singulier/pluriel en fonction du nombre d'adulte(s)

à+
Philippe
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour et merci à tous !!!

Je vais regarder dans ces différentes propositions ce qui sera applicable à ma demande , mais je suis toujours surpris par la diversité des réponses et leur exactitude 🙂

P.
edit pour mon compatriote: je l'offrirais bien volontiers mais perso, je ne bois pas d'Orval qui a un très grand succès chez nous (info pour les non belges)
 
Vote positif 0 Vote négatif
Bonjour gosselien, le forum,

Encore un p'tit coup pour bien commencer la journée :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat1$, dat2$, n$, p1%, p2%, p3%
dat1 = Format([D14], "dddd d mmmm yyyy"): dat2 = Format([D15], "dddd d mmmm yyyy"): n = [D8]
dat1 = Replace(dat1, " 1 ", " 1er "): dat2 = Replace(dat2, " 1 ", " 1er ")
Application.EnableEvents = False
With [D17] 'cellule à adapter
  .Value = "Le Bailleur loue au Preneur le logement du " & dat1 & " au " & dat2 & " pour " & n & " adulte" & IIf(Val(n) > 1, "s", "") & ","
  p1 = InStr(.Value, dat1): p2 = InStr(p1 + 1, .Value, dat2): p3 = InStr(p2 + Len(dat2), .Value, n)
  If Len(dat1) Then .Characters(p1, Len(dat1)).Font.Bold = True: .Characters(p1, Len(dat1)).Font.ColorIndex = 3
  If Len(dat2) Then .Characters(p2, Len(dat2)).Font.Bold = True: .Characters(p2, Len(dat2)).Font.ColorIndex = 3
  If Len(n) Then .Characters(p3, Len(n)).Font.Bold = True: .Characters(p3, Len(n)).Font.ColorIndex = 3
End With
Application.EnableEvents = True
End Sub
Edit : voyez si vous déclarez n& au lieu de n$...

Bon week-end.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

H
  • Résolu(e)
Microsoft 365 VBA texte en gras avec formule
2
Réponses
22
Affichages
3 K
soan
S
C
  • Question Question
Autres Mettre en rouge et en gras des années en format texte à l'intérieur de texte
2
Réponses
22
Affichages
2 K
mapomme
G
  • Question Question
XL 2016 Mettre en caractères gras une partie d'une formule
Réponses
1
Affichages
1 K
job75
T
  • Question Question
Changement de couleur et mettre en gras une partie d'une ligne de texte ......
Réponses
4
Affichages
4 K
tatou52
T
P
  • Question Question
Mettre en Gras une partie d'un contenu de cellule
Réponses
2
Affichages
14 K
philoche63
P
S
  • Question Question
Mettre en gras une partie d'une cellule contenant plusieurs formules
Réponses
8
Affichages
11 K
chop85
C
A
  • Question Question
Mettre en forme (GRAS) une partie d'une cellule - possible ?
Réponses
6
Affichages
2 K
Aerospirit
A
N
  • Question Question
champ texte et formules, mise en gras + format du résultat de la formule
Réponses
6
Affichages
1 K
Gardien de phare
F
  • Question Question
VBA pourquoi la mise en forme s'applique seulement à une partie du texte ?
Réponses
13
Affichages
21 K
fb62840
F
S
  • Question Question
Format automatique gras + couleur seulement sur une partie du texte
Réponses
6
Affichages
23 K
julberto
J
  • Question Question
Mettre en gras et rouge une partie de la cellule
Réponses
1
Affichages
13 K
Manu62
Z
  • Question Question
Comparer 2 cellules de texte et mettre en évidence les différences.
Réponses
8
Affichages
11 K
chris
E
  • Question Question
mettre en gras une partie du résultat d'une formule
Réponses
4
Affichages
55 K
eric44
E
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…