Hello,

Dans le code suivant, je veux afficher un titre mais en début d'impression du document word. Mais étant donné qu'elle est dans ma boucle While, le titre s'affiche à chaque fois. Donc je voudrais savoir comment faire!!

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
18
19
20
21
22
23
24
25
26
27
28
While Sheets("Actions_Engagement").Cells(i%, 2).Value <> ""
 
       If Sheets("Actions_Engagement").Cells(i%, 1).Value <> "Hors Reunion" Then
 
        theme$ = Sheets("Actions_Engagement").Cells(i%, 3).Value
    If Sheets("Actions_Engagement").Cells(i%, 2).Value <> Jalon$ Then
        MRange.Insertbefore ("Décision/Actions du jalon : " & Jalon$)
        MRange.Style = "Titre 1"
End If
MRange.SetRange Start:=MRange.End, End:=MRange.End
        MRange.InsertParagraphAfter
        MRange.InsertParagraphAfter
        MRange.SetRange Start:=MRange.End, End:=MRange.End
        MRange.Insertbefore (theme$)
        MRange.Style = "Titre 1"
        MRange.InsertParagraphAfter
        While Sheets("Actions_Engagement").Cells(i%, 3).Value = theme$
           DOR$ = Sheets("Actions_Engagement").Cells(i%, 4).Value
           MRange.SetRange Start:=MRange.End, End:=MRange.End
           MRange.Insertbefore (DOR$)
           MRange.Style = "Titre 2"
           MRange.InsertParagraphAfter
           MRange.InsertParagraphAfter
[...]
 
             i% = i% + 1
     End If
  Wend
mERCI