Macro excel Saut de Page
SimonB
Messages postés
1
Statut
Membre
-
fyds -
fyds -
Bonjour à tous,
Je débute en vba et je voudrais créer une macro qui insère automatiquement des sauts de pages à chaque client pour qu'à l'impression chaque client puisse apparaitre sur une nouvelle page.
Mon fichier se présent ainsi:
Col.A_____Col.B_____Col.C__Etc...
Client 1___localité1__article1 Etc...
__________________article2 Etc...
__________________article3 Etc...
__________________article4 Etc...
Client 2___localité2__article1 Etc...
__________________article2 Etc...
Client 3___localité3__article1 Etc...
__________________article2 Etc...
__________________article3 Etc...
__________________article4 Etc...
__________________article5 Etc...
Cells.PageBreak = xlPageBreakNone
Range("A40:A65000").Select
Selection.Find(What:="?*", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Avec ce code, excel s'arrête à la première occurence. Comment lui dire de répéter l'opération à chaque occurence ?
Merci d'avance pour votre aide
Simon
Je débute en vba et je voudrais créer une macro qui insère automatiquement des sauts de pages à chaque client pour qu'à l'impression chaque client puisse apparaitre sur une nouvelle page.
Mon fichier se présent ainsi:
Col.A_____Col.B_____Col.C__Etc...
Client 1___localité1__article1 Etc...
__________________article2 Etc...
__________________article3 Etc...
__________________article4 Etc...
Client 2___localité2__article1 Etc...
__________________article2 Etc...
Client 3___localité3__article1 Etc...
__________________article2 Etc...
__________________article3 Etc...
__________________article4 Etc...
__________________article5 Etc...
Cells.PageBreak = xlPageBreakNone
Range("A40:A65000").Select
Selection.Find(What:="?*", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Avec ce code, excel s'arrête à la première occurence. Comment lui dire de répéter l'opération à chaque occurence ?
Merci d'avance pour votre aide
Simon
A voir également:
- Saut de page excel automatique
- Comment supprimer une page sur word avec un saut de page ? - Guide
- Liste déroulante excel - Guide
- Imprimer tableau excel sur une page - Guide
- Réponse automatique thunderbird - Guide
- Word et excel gratuit - Guide
2 réponses
Bonjour,
Euh, pas trop le temps de 'attarder ici, je suis au taf, mais je me souviens avoir résolu un souci de ce genre il y a quelques temps.
Je diposais en fait d'une routine qui me renvoyais le numéro de ligne à laquelle chaque liste s'arretait, ou la longueur de la liste en lignes ... (quelque chose de cet ordre)
Ensuite, j'ajoutais un saut de ligne avec la méthode .Add
Utilise l'aide poour en savoir plus, elle est assez complète en fait.
Ps : Je ne sais pas si tu te facilites vraiment la tache en utilisant la méthode .Find , surtout si tu débutes.
Dans ce cas de figure, j'essaierai de boucler ta routine, jusqu'a ce que le nombre de client listé soit atteint. (Nécéssite bien entendu de connaître au préalable le nombre de client listés)
J'essaierai de repasser et de t'apporter un peu plus d'aide plus tard.
Euh, pas trop le temps de 'attarder ici, je suis au taf, mais je me souviens avoir résolu un souci de ce genre il y a quelques temps.
Je diposais en fait d'une routine qui me renvoyais le numéro de ligne à laquelle chaque liste s'arretait, ou la longueur de la liste en lignes ... (quelque chose de cet ordre)
Ensuite, j'ajoutais un saut de ligne avec la méthode .Add
Utilise l'aide poour en savoir plus, elle est assez complète en fait.
Ps : Je ne sais pas si tu te facilites vraiment la tache en utilisant la méthode .Find , surtout si tu débutes.
Dans ce cas de figure, j'essaierai de boucler ta routine, jusqu'a ce que le nombre de client listé soit atteint. (Nécéssite bien entendu de connaître au préalable le nombre de client listés)
J'essaierai de repasser et de t'apporter un peu plus d'aide plus tard.
