Si cela est possible, comment faire en vba pour imposer les sauts de
pages toutes les 40 lignes? Je voudrais aussi repeter les titres sur
chaque page, le 1ere saut devrait donc logiquement se trouver a la
ligne 41...
Sub essai_JB() ActiveSheet.ResetAllPageBreaks ' raz h = 40 ' hauteur de page [A2].Select Do While ActiveCell.Row < [A65000].End(xlUp).Row ActiveCell.Offset(h, 0).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell Loop [A2].Select End Sub
Pour répéter les ititres: Fichier/Mise en page/Onglet feuille/Lignes à répéter en haut(ligne 1)
Cordialement JB
Bonjour tous,
Si cela est possible, comment faire en vba pour imposer les sauts de pages toutes les 40 lignes? Je voudrais aussi repeter les titres sur chaque page, le 1ere saut devrait donc logiquement se trouver a la ligne 41...
Merci pour votre aide et bon apres-midi.
Pierre.M
Bonjour,
Sub essai_JB()
ActiveSheet.ResetAllPageBreaks ' raz
h = 40 ' hauteur de page
[A2].Select
Do While ActiveCell.Row < [A65000].End(xlUp).Row
ActiveCell.Offset(h, 0).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Loop
[A2].Select
End Sub
Pour répéter les ititres: Fichier/Mise en page/Onglet feuille/Lignes
à répéter en haut(ligne 1)
Cordialement JB
Bonjour tous,
Si cela est possible, comment faire en vba pour imposer les sauts de
pages toutes les 40 lignes? Je voudrais aussi repeter les titres sur
chaque page, le 1ere saut devrait donc logiquement se trouver a la
ligne 41...
Sub essai_JB() ActiveSheet.ResetAllPageBreaks ' raz h = 40 ' hauteur de page [A2].Select Do While ActiveCell.Row < [A65000].End(xlUp).Row ActiveCell.Offset(h, 0).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell Loop [A2].Select End Sub
Pour répéter les ititres: Fichier/Mise en page/Onglet feuille/Lignes à répéter en haut(ligne 1)
Cordialement JB
Bonjour tous,
Si cela est possible, comment faire en vba pour imposer les sauts de pages toutes les 40 lignes? Je voudrais aussi repeter les titres sur chaque page, le 1ere saut devrait donc logiquement se trouver a la ligne 41...
Merci pour votre aide et bon apres-midi.
Pierre.M
Pierre.M
Merci JB, j'essaye ca tout de suite.
Pierre.M
On 2006-07-10 15:44:06 +0200, "JB" said:
Bonjour,
Sub essai_JB() ActiveSheet.ResetAllPageBreaks ' raz h = 40 ' hauteur de page [A2].Select Do While ActiveCell.Row < [A65000].End(xlUp).Row ActiveCell.Offset(h, 0).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell Loop [A2].Select End Sub
Pour répéter les ititres: Fichier/Mise en page/Onglet feuille/Lignes à répéter en haut(ligne 1)
Cordialement JB
Bonjour tous,
Si cela est possible, comment faire en vba pour imposer les sauts de pages toutes les 40 lignes? Je voudrais aussi repeter les titres sur chaque page, le 1ere saut devrait donc logiquement se trouver a la ligne 41...
Merci pour votre aide et bon apres-midi.
Pierre.M
Merci JB, j'essaye ca tout de suite.
Pierre.M
On 2006-07-10 15:44:06 +0200, "JB" <boisgontier@hotmail.com> said:
Bonjour,
Sub essai_JB()
ActiveSheet.ResetAllPageBreaks ' raz
h = 40 ' hauteur de page
[A2].Select
Do While ActiveCell.Row < [A65000].End(xlUp).Row
ActiveCell.Offset(h, 0).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell
Loop
[A2].Select
End Sub
Pour répéter les ititres: Fichier/Mise en page/Onglet feuille/Lignes
à répéter en haut(ligne 1)
Cordialement JB
Bonjour tous,
Si cela est possible, comment faire en vba pour imposer les sauts de
pages toutes les 40 lignes? Je voudrais aussi repeter les titres sur
chaque page, le 1ere saut devrait donc logiquement se trouver a la
ligne 41...
Sub essai_JB() ActiveSheet.ResetAllPageBreaks ' raz h = 40 ' hauteur de page [A2].Select Do While ActiveCell.Row < [A65000].End(xlUp).Row ActiveCell.Offset(h, 0).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell Loop [A2].Select End Sub
Pour répéter les ititres: Fichier/Mise en page/Onglet feuille/Lignes à répéter en haut(ligne 1)
Cordialement JB
Bonjour tous,
Si cela est possible, comment faire en vba pour imposer les sauts de pages toutes les 40 lignes? Je voudrais aussi repeter les titres sur chaque page, le 1ere saut devrait donc logiquement se trouver a la ligne 41...
Merci pour votre aide et bon apres-midi.
Pierre.M
Pierre.M
Je suis desole, JB, je viens de me rendre compte que je ne t'avais pas remercie suite a ton intervention. Ta macro fonctionne exactement comme je l'esperais et m'a permis d'avancer mon projet. J'ai mis ca dans un workbook/BeforePrint et ca marche tout seul...Merci encore.
Est-il eventuellement possible de rajouter une option pour egalement imposer le nombre de colonne dans mes pages?
Cordialement.
Pierre.M
On 2006-07-10 15:44:06 +0200, "JB" said:
Bonjour,
Sub essai_JB() ActiveSheet.ResetAllPageBreaks ' raz h = 40 ' hauteur de page [A2].Select Do While ActiveCell.Row < [A65000].End(xlUp).Row ActiveCell.Offset(h, 0).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell Loop [A2].Select End Sub
Pour répéter les ititres: Fichier/Mise en page/Onglet feuille/Lignes à répéter en haut(ligne 1)
Cordialement JB
Bonjour tous,
Si cela est possible, comment faire en vba pour imposer les sauts de pages toutes les 40 lignes? Je voudrais aussi repeter les titres sur chaque page, le 1ere saut devrait donc logiquement se trouver a la ligne 41...
Merci pour votre aide et bon apres-midi.
Pierre.M
Je suis desole, JB, je viens de me rendre compte que je ne t'avais pas
remercie suite a ton intervention. Ta macro fonctionne exactement comme
je l'esperais et m'a permis d'avancer mon projet. J'ai mis ca dans un
workbook/BeforePrint et ca marche tout seul...Merci encore.
Est-il eventuellement possible de rajouter une option pour egalement
imposer le nombre de colonne dans mes pages?
Cordialement.
Pierre.M
On 2006-07-10 15:44:06 +0200, "JB" <boisgontier@hotmail.com> said:
Bonjour,
Sub essai_JB()
ActiveSheet.ResetAllPageBreaks ' raz
h = 40 ' hauteur de page
[A2].Select
Do While ActiveCell.Row < [A65000].End(xlUp).Row
ActiveCell.Offset(h, 0).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell
Loop
[A2].Select
End Sub
Pour répéter les ititres: Fichier/Mise en page/Onglet feuille/Lignes
à répéter en haut(ligne 1)
Cordialement JB
Bonjour tous,
Si cela est possible, comment faire en vba pour imposer les sauts de
pages toutes les 40 lignes? Je voudrais aussi repeter les titres sur
chaque page, le 1ere saut devrait donc logiquement se trouver a la
ligne 41...
Je suis desole, JB, je viens de me rendre compte que je ne t'avais pas remercie suite a ton intervention. Ta macro fonctionne exactement comme je l'esperais et m'a permis d'avancer mon projet. J'ai mis ca dans un workbook/BeforePrint et ca marche tout seul...Merci encore.
Est-il eventuellement possible de rajouter une option pour egalement imposer le nombre de colonne dans mes pages?
Cordialement.
Pierre.M
On 2006-07-10 15:44:06 +0200, "JB" said:
Bonjour,
Sub essai_JB() ActiveSheet.ResetAllPageBreaks ' raz h = 40 ' hauteur de page [A2].Select Do While ActiveCell.Row < [A65000].End(xlUp).Row ActiveCell.Offset(h, 0).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell Loop [A2].Select End Sub
Pour répéter les ititres: Fichier/Mise en page/Onglet feuille/Lignes à répéter en haut(ligne 1)
Cordialement JB
Bonjour tous,
Si cela est possible, comment faire en vba pour imposer les sauts de pages toutes les 40 lignes? Je voudrais aussi repeter les titres sur chaque page, le 1ere saut devrait donc logiquement se trouver a la ligne 41...
