Macro excel Saut de Page Fermé

Question

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

defi · Answer

Bonjour, 

Je recherche exactement la même chose ... As-tu trouvé une réponse ???

fyds · Answer

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.