Discussion :

[beegees]

Bonjour tout le monde,

J'ai ceci :

Code :

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

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 :

Code :

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

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

et ceci :

Code :

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

 rst![DatedeproclamationMA2]

et ceci :

Code :

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

 rst![Finalite]

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

J'utilise en général :

Code :

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

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

[Didier Gonard]

Bonjour,

vois dans l'aide vba à Characters, propriété

cordialement,

Didier

[beegees]

Salut,

Merci pour ta réponse.

Voici ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
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

Bon WE et merci encore.

beegees