|
Permet de trier une base de données et d'appliquer un saut de page après chaque nouvelle occurence de la première lettre des mots... 
'************************************
'partie à coller dans un module
'************************************
Option Explicit
'Vériland
'insérer un saut de page après chaque nouvelle occurence de lettre...
'pratique sur une grande base de données
'par exemple sur un listing de nom et d'adresse
Sub sauter_page()
Dim deb2 As String * 1
Dim deb1 As String * 1
Dim lig, cptr As Long
Dim saut
Application.ScreenUpdating = False
'dernière ligne utilisée
lig = Range("A3").End(xlDown).Row
'détruit les sauts de pages existant en cas de modif
For Each saut In ActiveSheet.HPageBreaks
ActiveSheet.HPageBreaks(1).Delete
Next
'tri dans l'ordre alpha
Range(Cells(3, 1), Cells([lig], 5)).Sort Key1:=Range("A3")
'Création des sauts de page
cptr = 4
deb1 = Cells(3, 1)
Do Until cptr = lig + 1
deb2 = Cells(cptr, 1)
'compare 1° lettre en cours et 1° lettre cellule étudiée
If deb1 <> deb2 Then
ActiveSheet.HPageBreaks.Add Before:=Cells(cptr, 1)
' change la 1° lettre en cours
deb1 = deb2
End If
cptr = cptr + 1
Loop
End Sub
Sub enleve()
For Each saut In ActiveSheet.HPageBreaks
ActiveSheet.HPageBreaks(1).Delete
Next
End Sub
Date de création : 24/05/2005 - 19:07
Dernière modification : 25/05/2005 - 22:28
Catégorie : Evènements
Page lue 3543 fois
 Prévisualiser la page
 Imprimer la page
|
|
OOo
OOo
Membres: 1660
Membre en ligne: 0
Anonymes en ligne: 44
Haut 
