Discussion :

[RastaBomboclat]

Bonjour la communauté,

Dans mon code ci-dessous, je souhaite mettre les variables NomComplet et NomProf en gras.

Merci d'avance pour vos contributions .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
NomComplet = Cells(5 + infos, 2).Value
NomPere = Cells(5 + infos, 5).Value
NomMere = Cells(5 + infos, 6).Value
NomProvince = Cells(5 + infos, 7).Value
NomProf = Cells(5 + infos, 11).Value
 
phrase0 = Sheets("Config").Cells(2, 25).Value
phrase1 = Sheets("Config").Cells(3, 25).Value
If GenreSex = "F" Then
    phrase2 = Sheets("Config").Cells(4, 26).Value
Else
    phrase2 = Sheets("Config").Cells(4, 25).Value
End if
phrase3 = Sheets("Config").Cells(5, 25).Value
 
'Traitement 2ème Paragraphe
Cells(15, 1) = phrase1 & NomComplet & ", " & phrase2 & NomPere & phrase3 & NomMere & ", " & phrase4 & NomProvince & phrase5 & NomProf

[tototiti2008]

Bonsoir,

à tester

Code :

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

1
2
3
4
5
6
7
8
Dim Debut as long, Longueur as Long
Debut = len(phrase1) + 1
Longueur = len(NomComplet)
 Cells(15, 1).Characters(Start:=Debut, Length:=Longueur).Font.FontStyle = "Gras"
Debut = len(phrase1 & NomComplet & ", " & phrase2 & NomPere & phrase3 & NomMere & ", " & phrase4 & NomProvince & phrase5) + 1
Longueur = len(NomProf)
 Cells(15, 1).Characters(Start:=Debut, Length:=Longueur).Font.FontStyle = "Gras"

[RastaBomboclat]

Bonjour Tototiti2008

Merci pour ta contribution.

J'a testé ton code depuis ce matin mai je me bute sur une erreur que je ne sais pas identifier. le systeme ne me dis rien. Il affiche juste cette ligne en erreur.

Comme la ligne 4 du code fonction(ne génere aucune exception), j'ai testé en enlevant la ligne 7 et voir si tout se passerai normalement, mais toujours rien. Tous les autres paragraphes s'affiche bien sauf le paragraphe 2, qui lui, ne s'affiche même plus.

Code :

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

1
2
 Cells(15, 1).Characters(Start:=Debut, Length:=Longueur).Font.FontStyle = "Gras"

[RastaBomboclat]

Bonsoir,

à tester

Code :

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

1
2
3
4
5
6
7
8
Dim Debut as long, Longueur as Long
Debut = len(phrase1) + 1
Longueur = len(NomComplet)
 Cells(15, 1).Characters(Start:=Debut, Length:=Longueur).Font.FontStyle = "Gras"
Debut = len(phrase1 & NomComplet & ", " & phrase2 & NomPere & phrase3 & NomMere & ", " & phrase4 & NomProvince & phrase5) + 1
Longueur = len(NomProf)
 Cells(15, 1).Characters(Start:=Debut, Length:=Longueur).Font.FontStyle = "Gras"

Merci Totottiti2008,

Ton code fonctionne parfaitement