Discussion :

[lemathurin]

Bonjour à tous,

Je cherche à créer une fonction permettant de mettre en gras une partie de texte dans une formule.

Par exemple, si j'ai dans une cellule : ="j'aime les frites"
Faire quelque chose comme : ="j'aime les "&Gras("frites")
Qui me donnerais le texte : j'aime les frites

Voilà ce que j'ai commencé mais ça marche pas du tout... une idée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function Gras(txt As String) As String
 
txt.Font.FontStyle = "Gras"
Gras = txt
 
End Function

Merci de votre aide !

[Chipss]

pour mettre en gras la chaine de caractere contenue dans txt tu fait ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
txt.Font.Bold=True

Pas fait le test mais je pense c'est ca :p


Chipss

[AlainTech]

Bonjour,

Si txt est un String, il n'a pas de propriété Font.

[lemathurin]

Merci pour vos réponses.
Mais du coup, ça ne fonctionne toujours pas... Auriez vous une idée pour résoudre le problème ?

[Jean-Philippe André]

salut,
en utilisant l'enregistreur de macro, on arrive a trouver une syntaxe plus simple.
Reste a savoir si tu souhaites faire une petite usine a gaz ou pas

En VBA on arrivera a faire une fonction qui va gerer ca.
Mais quelle est l'idee d'origine ?

[lemathurin]

Merci pour ta réponse jpcheck,

Oui, en effet, l'enregistreur de macro donne une solution, mais celle-ci ne marche pas pour moi car la longueur de mes textes est variable (il y a des données qui s'affiche dedans, ex : =D3&" euros et ceci est une condition de "&A5 )
Du coup, ça deviens long de recalculer la position des caractères que je souhaite mettre en gras. L'intéret de la fonction que je voulais créer est de pouvoir l'insérer où je veux, très simplement.

Je ne sais pas si je suis clair...

[Jean-Philippe André]

Je comprends bien. La solution que tu cherches a mettre en place est un peu usine a gaz demon point de vue.

Attention, plein d'etapes pour expliquer ce a quoi tu t'attaques
- Pour trouver le numero du caractere dans une chaine j'utilise Instr()
- pour changer la font on utilisera une partie du code propose par Chipss
- il faut utiliser la detection de la fonction "Gras()" et isoler le texte entre les parentheses
- on applique a ce texte le changement de font.
- on supprime le nom de la fonction

Le tout en supprimant la formule en elle meme et en y mettant le resultat final

Mais la encore on doit savoir si les modifications doivent se faire dans un but d'affichage externe, a la volee ou en fin de process.

[lemathurin]

OK, merci pour ton aide...

En cherchant un peu, je me suis effectivement rendu compte que ça allait être compliqué !
Du coût, j'ai fait plus simple, je recherche les caractères (toujours présents dans ma phrase) qui entoure l'endroit que je veux mettre en gras (variable) et je mets en gras ce qui se trouve entre les deux. c'est moins puissant mais tellement plus simple !

Pour ceux qui veulent, ça donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim DebTxt, FinTxt As Integer
 
DebTxt = InStr(1, Sheets("LOI format texte").Range("B60"), "élève à") + 7
FinTxt = InStr(1, Sheets("LOI format texte").Range("B60"), "an,") + 2
 
Sheets("LOI format texte").Range("B60").Characters(Start:=DebTxt, Length:=FinTxt - DebTxt).Font.Bold = True

Merci encore à tous pour votre aide!