bonjour à tous
en colonne A j'ai une liste de 1100 noms classés en ordre alphabétique
Je voudrais insérer un saut de page à chaque changement de première lettre
des noms
Comment m'y prendre?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JpPradier
Bonjour amt
Tu mets ca dans un module et roule :
Sub Hopdepage() lettre = LCase(Left(Range("a1"), 1)) For i = 1 To 1100 If LCase(Left(Range("a" & i), 1)) <> lettre Then lettre = LCase(Left(Range("a" & i), 1)) ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("a" & i) End If Next End Sub
j-p
Bonjour amt
Tu mets ca dans un module et roule :
Sub Hopdepage()
lettre = LCase(Left(Range("a1"), 1))
For i = 1 To 1100
If LCase(Left(Range("a" & i), 1)) <> lettre Then
lettre = LCase(Left(Range("a" & i), 1))
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("a" & i)
End If
Next
End Sub
Sub Hopdepage() lettre = LCase(Left(Range("a1"), 1)) For i = 1 To 1100 If LCase(Left(Range("a" & i), 1)) <> lettre Then lettre = LCase(Left(Range("a" & i), 1)) ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("a" & i) End If Next End Sub
j-p
Nicolas B.
Salut amt,
Par une petite macro :
Sub SautPage() Dim N As Long N = 2 While Cells(N, 1) <> "" If Left(Cells(N - 1, 1), 1) <> Left(Cells(N, 1), 1) Then ActiveWindow.SelectedSheets.HPageBreaks.Add Before:Îlls(N, 1) End If N = N + 1 Wend End Sub
bonjour à tous en colonne A j'ai une liste de 1100 noms classés en ordre alphabétique Je voudrais insérer un saut de page à chaque changement de première lettre des noms Comment m'y prendre?
Salut amt,
Par une petite macro :
Sub SautPage()
Dim N As Long
N = 2
While Cells(N, 1) <> ""
If Left(Cells(N - 1, 1), 1) <> Left(Cells(N, 1), 1) Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:Îlls(N, 1)
End If
N = N + 1
Wend
End Sub
bonjour à tous
en colonne A j'ai une liste de 1100 noms classés en ordre alphabétique
Je voudrais insérer un saut de page à chaque changement de première
lettre des noms
Comment m'y prendre?
Sub SautPage() Dim N As Long N = 2 While Cells(N, 1) <> "" If Left(Cells(N - 1, 1), 1) <> Left(Cells(N, 1), 1) Then ActiveWindow.SelectedSheets.HPageBreaks.Add Before:Îlls(N, 1) End If N = N + 1 Wend End Sub
bonjour à tous en colonne A j'ai une liste de 1100 noms classés en ordre alphabétique Je voudrais insérer un saut de page à chaque changement de première lettre des noms Comment m'y prendre?
Jean-François Aubert
Salut amt, encore une autre... En A1 étiquette de colonne En A2:A... les noms
Sub sautDePage() Dim i, x Dim t1, t2, t3 ActiveSheet.DisplayAutomaticPageBreaks = False For i = 97 To 122 x = "=" & Chr(i) & "*" [a1].AutoFilter Field:=1, Criteria1:=x, Operator:=xlAnd t1 = Range("A2:A2000").SpecialCells(xlCellTypeVisible).Row t2 = Evaluate("SUBTOTAL(3,a2:a2000)") t3 = t1 + t2 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:Îlls(t3, 1) Next Selection.AutoFilter End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"amt" a écrit dans le message de news:btca3g$280$
bonjour à tous en colonne A j'ai une liste de 1100 noms classés en ordre alphabétique Je voudrais insérer un saut de page à chaque changement de première lettre des noms Comment m'y prendre?
Salut amt,
encore une autre...
En A1 étiquette de colonne
En A2:A... les noms
Sub sautDePage()
Dim i, x
Dim t1, t2, t3
ActiveSheet.DisplayAutomaticPageBreaks = False
For i = 97 To 122
x = "=" & Chr(i) & "*"
[a1].AutoFilter Field:=1, Criteria1:=x, Operator:=xlAnd
t1 = Range("A2:A2000").SpecialCells(xlCellTypeVisible).Row
t2 = Evaluate("SUBTOTAL(3,a2:a2000)")
t3 = t1 + t2
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:Îlls(t3, 1)
Next
Selection.AutoFilter
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"amt" <jb.muret@wanadoo.fr> a écrit dans le message de news:btca3g$280$1@news-reader2.wanadoo.fr...
bonjour à tous
en colonne A j'ai une liste de 1100 noms classés en ordre alphabétique
Je voudrais insérer un saut de page à chaque changement de première lettre
des noms
Comment m'y prendre?
Salut amt, encore une autre... En A1 étiquette de colonne En A2:A... les noms
Sub sautDePage() Dim i, x Dim t1, t2, t3 ActiveSheet.DisplayAutomaticPageBreaks = False For i = 97 To 122 x = "=" & Chr(i) & "*" [a1].AutoFilter Field:=1, Criteria1:=x, Operator:=xlAnd t1 = Range("A2:A2000").SpecialCells(xlCellTypeVisible).Row t2 = Evaluate("SUBTOTAL(3,a2:a2000)") t3 = t1 + t2 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:Îlls(t3, 1) Next Selection.AutoFilter End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"amt" a écrit dans le message de news:btca3g$280$
bonjour à tous en colonne A j'ai une liste de 1100 noms classés en ordre alphabétique Je voudrais insérer un saut de page à chaque changement de première lettre des noms Comment m'y prendre?
Jean-François Aubert
correction:
remplacer la ligne: ActiveSheet.DisplayAutomaticPageBreaks = False (qui ne fait que afficher ou non les saut de pafe)
par: Application.ScreenUpdating = False
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Jean-François Aubert" <à a écrit dans le message de news:3ff9b8f1$
Salut amt, encore une autre... En A1 étiquette de colonne En A2:A... les noms
Sub sautDePage() Dim i, x Dim t1, t2, t3 ActiveSheet.DisplayAutomaticPageBreaks = False For i = 97 To 122 x = "=" & Chr(i) & "*" [a1].AutoFilter Field:=1, Criteria1:=x, Operator:=xlAnd t1 = Range("A2:A2000").SpecialCells(xlCellTypeVisible).Row t2 = Evaluate("SUBTOTAL(3,a2:a2000)") t3 = t1 + t2 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:Îlls(t3, 1) Next Selection.AutoFilter End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"amt" a écrit dans le message de news:btca3g$280$
bonjour à tous en colonne A j'ai une liste de 1100 noms classés en ordre alphabétique Je voudrais insérer un saut de page à chaque changement de première lettre des noms Comment m'y prendre?
correction:
remplacer la ligne:
ActiveSheet.DisplayAutomaticPageBreaks = False
(qui ne fait que afficher ou non les saut de pafe)
par:
Application.ScreenUpdating = False
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de
news:3ff9b8f1$1_2@news.bluewin.ch...
Salut amt,
encore une autre...
En A1 étiquette de colonne
En A2:A... les noms
Sub sautDePage()
Dim i, x
Dim t1, t2, t3
ActiveSheet.DisplayAutomaticPageBreaks = False
For i = 97 To 122
x = "=" & Chr(i) & "*"
[a1].AutoFilter Field:=1, Criteria1:=x, Operator:=xlAnd
t1 = Range("A2:A2000").SpecialCells(xlCellTypeVisible).Row
t2 = Evaluate("SUBTOTAL(3,a2:a2000)")
t3 = t1 + t2
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:Îlls(t3, 1)
Next
Selection.AutoFilter
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"amt" <jb.muret@wanadoo.fr> a écrit dans le message de
news:btca3g$280$1@news-reader2.wanadoo.fr...
bonjour à tous
en colonne A j'ai une liste de 1100 noms classés en ordre alphabétique
Je voudrais insérer un saut de page à chaque changement de première lettre
des noms
Comment m'y prendre?
remplacer la ligne: ActiveSheet.DisplayAutomaticPageBreaks = False (qui ne fait que afficher ou non les saut de pafe)
par: Application.ScreenUpdating = False
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Jean-François Aubert" <à a écrit dans le message de news:3ff9b8f1$
Salut amt, encore une autre... En A1 étiquette de colonne En A2:A... les noms
Sub sautDePage() Dim i, x Dim t1, t2, t3 ActiveSheet.DisplayAutomaticPageBreaks = False For i = 97 To 122 x = "=" & Chr(i) & "*" [a1].AutoFilter Field:=1, Criteria1:=x, Operator:=xlAnd t1 = Range("A2:A2000").SpecialCells(xlCellTypeVisible).Row t2 = Evaluate("SUBTOTAL(3,a2:a2000)") t3 = t1 + t2 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:Îlls(t3, 1) Next Selection.AutoFilter End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"amt" a écrit dans le message de news:btca3g$280$
bonjour à tous en colonne A j'ai une liste de 1100 noms classés en ordre alphabétique Je voudrais insérer un saut de page à chaque changement de première lettre des noms Comment m'y prendre?