Bonjour à tous,
Je cherche désespérément une solution à mon soucis
J'ai un fichier excel avec une base de données qui dispatche une fois remplie les données vers plusieurs onglets.
cependant la hauteur des lignes divergent c'est pour cela que j'ai trouvé ce code .Rows("1:1000").EntireRow.AutoFit<br>
Mais le soucis est qu'en recopiant les données, elles s'enchainent et je n'arrive plus a recréer ma mise en page (avec des titres, pagination ....)
Ce que j'aimerai pouvoir faire c'est
Avoir le numéro de page de la dernière cellule non vide.
pouvoir le comparer avec le numéro de page ou j'insère mes données s'il sont égaux continué d'insérer sinon faire un saut de page et inserer mes titres et recommencer l'insertion de données
Je ne sais pas si je suis clair je vais essayer de faire un exemple
recherche page derniere cellule = 1
Insertion en A4 ( test si A4 est bien en page 1)
si oui continuer insertion B4 C4 ....
si non saut de page .Rows(fin1).PageBreak = xlPageBreakManual
et copier les titres dans un autre onglet et les coller à la suite
Merci de votre lecture.
Mika