est-il possible de parametrer automatiquement les sauts de pages dans
une grande base de donnees ,pour ne pas separer des cellule identiques
(nom+prenoms en colonne A)?
Sub essai() ActiveSheet.ResetAllPageBreaks ' raz h = 15 ' hauteur de page [A2].Select Do While ActiveCell.Row < [A65000].End(xlUp).Row ActiveCell.Offset(h, 0).Select tém = True d = -1 Do While tém If ActiveCell.Offset(d, 0) <> ActiveCell Then tém = False Else d = d - 1 End If Loop If (-d) < h Then ActiveCell.Offset(d + 1, 0).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell Loop [A2].Select End Sub
JB
Bonjour,
est-il possible de parametrer automatiquement les sauts de pages dans une grande base de donnees ,pour ne pas separer des cellule identiques (nom+prenoms en colonne A)?
Merci d'avance pour l'aide que vous m'apporterez.
Pierre.M
Les sauts de page ne coupent pas un groupe en 2
http://cjoint.com/?hewgKajV7t
Sub essai()
ActiveSheet.ResetAllPageBreaks ' raz
h = 15 ' hauteur de page
[A2].Select
Do While ActiveCell.Row < [A65000].End(xlUp).Row
ActiveCell.Offset(h, 0).Select
tém = True
d = -1
Do While tém
If ActiveCell.Offset(d, 0) <> ActiveCell Then
tém = False
Else
d = d - 1
End If
Loop
If (-d) < h Then ActiveCell.Offset(d + 1, 0).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Loop
[A2].Select
End Sub
JB
Bonjour,
est-il possible de parametrer automatiquement les sauts de pages dans
une grande base de donnees ,pour ne pas separer des cellule identiques
(nom+prenoms en colonne A)?
Sub essai() ActiveSheet.ResetAllPageBreaks ' raz h = 15 ' hauteur de page [A2].Select Do While ActiveCell.Row < [A65000].End(xlUp).Row ActiveCell.Offset(h, 0).Select tém = True d = -1 Do While tém If ActiveCell.Offset(d, 0) <> ActiveCell Then tém = False Else d = d - 1 End If Loop If (-d) < h Then ActiveCell.Offset(d + 1, 0).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell Loop [A2].Select End Sub
JB
Bonjour,
est-il possible de parametrer automatiquement les sauts de pages dans une grande base de donnees ,pour ne pas separer des cellule identiques (nom+prenoms en colonne A)?
Merci d'avance pour l'aide que vous m'apporterez.
Pierre.M
Pierre.M
Merci JB, ca fonctionne exactement comme j'en avais besoin. Merci.
Pierre.M
On 2006-07-04 22:11:27 +0200, "JB" said:
Les sauts de page ne coupent pas un groupe en 2
http://cjoint.com/?hewgKajV7t
Sub essai() ActiveSheet.ResetAllPageBreaks ' raz h = 15 ' hauteur de page [A2].Select Do While ActiveCell.Row < [A65000].End(xlUp).Row ActiveCell.Offset(h, 0).Select tém = True d = -1 Do While tém If ActiveCell.Offset(d, 0) <> ActiveCell Then tém = False Else d = d - 1 End If Loop If (-d) < h Then ActiveCell.Offset(d + 1, 0).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell Loop [A2].Select End Sub
JB
Bonjour,
est-il possible de parametrer automatiquement les sauts de pages dans une grande base de donnees ,pour ne pas separer des cellule identiques (nom+prenoms en colonne A)?
Merci d'avance pour l'aide que vous m'apporterez.
Pierre.M
Merci JB, ca fonctionne exactement comme j'en avais besoin. Merci.
Pierre.M
On 2006-07-04 22:11:27 +0200, "JB" <boisgontier@hotmail.com> said:
Les sauts de page ne coupent pas un groupe en 2
http://cjoint.com/?hewgKajV7t
Sub essai()
ActiveSheet.ResetAllPageBreaks ' raz
h = 15 ' hauteur de page
[A2].Select
Do While ActiveCell.Row < [A65000].End(xlUp).Row
ActiveCell.Offset(h, 0).Select
tém = True
d = -1
Do While tém
If ActiveCell.Offset(d, 0) <> ActiveCell Then
tém = False
Else
d = d - 1
End If
Loop
If (-d) < h Then ActiveCell.Offset(d + 1, 0).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell
Loop
[A2].Select
End Sub
JB
Bonjour,
est-il possible de parametrer automatiquement les sauts de pages dans
une grande base de donnees ,pour ne pas separer des cellule identiques
(nom+prenoms en colonne A)?
Merci JB, ca fonctionne exactement comme j'en avais besoin. Merci.
Pierre.M
On 2006-07-04 22:11:27 +0200, "JB" said:
Les sauts de page ne coupent pas un groupe en 2
http://cjoint.com/?hewgKajV7t
Sub essai() ActiveSheet.ResetAllPageBreaks ' raz h = 15 ' hauteur de page [A2].Select Do While ActiveCell.Row < [A65000].End(xlUp).Row ActiveCell.Offset(h, 0).Select tém = True d = -1 Do While tém If ActiveCell.Offset(d, 0) <> ActiveCell Then tém = False Else d = d - 1 End If Loop If (-d) < h Then ActiveCell.Offset(d + 1, 0).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell Loop [A2].Select End Sub
JB
Bonjour,
est-il possible de parametrer automatiquement les sauts de pages dans une grande base de donnees ,pour ne pas separer des cellule identiques (nom+prenoms en colonne A)?
