Discussion :

[monichou86]

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

[Pierre Fauconnier]

Bonjour.

Si tu ne veux pas que le titre soit inséré à chaque boucle, il suffit de le sortir de la boucle...

[monichou86]

Oui je le sais très bien c'est une grande boucle. Cependant je n'arrve pas à la caser sans qu'en exucutant cela ne prenne pas à chaque fois compte du titre. Enfin, voilà!!

[Pierre Fauconnier]

Tu ne donnes que le code de la boucle, donc, ce n'est pas simple de pouvoir savoir ce qui se passe avant, mais la logique veut que tu sortes de la boucle ce que tu ne veux pas exécuter à chaque passage.

Donc, soit tu le fais avant, soit tu le fais après, mais tu ne le fais pas pendant...