rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Macro excel Saut de Page

SimonB, le jeudi 22 mars 2007 à 15:56:17
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
Configuration: Windows XP
Internet Explorer 6.0
Répondre à SimonB  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
defi, le jeudi 9 août 2007 à 22:24:53
Bonjour,

Je recherche exactement la même chose ... As-tu trouvé une réponse ???
   
Répondre à defi

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 fyds, le mercredi 3 octobre 2007 à 08:46:18
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.
   
Répondre à fyds
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger MOREFUNC (Macro complémentaire EXCEL) 5.06MOREFUNC (Macro complémentaire EXCEL) - Morefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger PagePlus SEPagePlus - PagePlus SE est un logiciel gratuit de PAO (publication assistée par ordinateur) permettant de concevoir et de créer des...Catégorie: Présentation
Licence: Freeware/gratuit
Télécharger PageDefrag 2.32PageDefrag - Le défragmenteur de disque de Windows fait un boulot correct, mais il a un inconvénient : il ne défragmente ni le fichier...Catégorie: Formatage/Partitionnement
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « Macro excel Saut de Page »