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
