[VBA] Mettre en gras certaines parties du texte

[beegees]

Bonjour tout le monde,

J'ai ceci :

appexcel.Cells(s, 1) = rst![PRENOM] & " " & rst![Nom] & " s'est vu conférer le " & rst![DatedeproclamationMA2] & " le grade académique de " & rst![Finalite] & " , après réussite des épreuves ayant porté sur les matières suivantes :"

J'aurais voulu mettre en gras ceci :

 rst![PRENOM] & " " & rst![Nom]

et ceci :

 rst![DatedeproclamationMA2]

et ceci :

 rst![Finalite]

Sauriez-vous s.v.p. me dire comment je peux faire cela en VBA ?

J'utilise en général :

appexcel.Cells(s, 1).Font.Bold = True

mais là, vu que la longueur des informations est variable, je ne peux pas utiliser cela.

Merci d'avance pour votre aide précieuse et bonne fin de semaine.

beegees

 

[Staple1600]

Re : [VBA] Mettre en gras certaines parties du texte

Bonjour



Utilises l'enregistreur de macros 😉

et tu verras ... Characters(Start:=1,Lentght:=2)

 

[beegees]

Re : [VBA] Mettre en gras certaines parties du texte

Bonjour



Utilises l'enregistreur de macros 😉

et tu verras ... Characters(Start:=1,Lentght:=2)

Salut,

Merci pour ta réponse.

J'ai trouvé entre temps :

appexcel.Cells(s, 1) = rst![PRENOM] & " " & rst![Nom] & " s'est vu conférer le " & rst![DatedeproclamationMA2] & " le grade académique de " & rst![Finalite] & " , après réussite des épreuves ayant porté sur les matières suivantes :"
Dim longueur_nom_prenom As Integer
longueur_nom_prenom = Len(rst![PRENOM])
longueur_nom_prenom = longueur_nom_prenom + Len(rst![Nom]) + 1
appexcel.Cells(s, 1).Characters(1, longueur_nom_prenom).Font.Bold = True
longueur_nom_prenom = longueur_nom_prenom + 22
longueur_nom_prenom = longueur_nom_prenom + 1
appexcel.Cells(s, 1).Characters(longueur_nom_prenom, Len(rst![DatedeproclamationMA2])).Font.Bold = True
longueur_nom_prenom = longueur_nom_prenom + Len(rst![DatedeproclamationMA2]) + 24
appexcel.Cells(s, 1).Characters(longueur_nom_prenom, Len(rst![Finalite])).Font.Bold = True

Merci encore.

beegees