simplification d'un code VBA

[latanz]

Bonjour à tous,

j'ai une macro qui me place des sauts de page automatique avant toutes les ligne (que la colonne A remplie) qui sont égale à la ligne 9.
Pouvez-vous m'aider à simplifier le code et à mettre un saut de page après à chaque fois que le contenu de la cellule contient le mot : fax ?

voici mon code :

Sub SautsPage()
ActiveSheet.ResetAllPageBreaks
Ligne = 9
Classe = Cells(Ligne, 1).Value
ZR = Classe
Do
If ZR = Classe Then
Cells(Ligne, 1).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
ZR = Classe
End If
Ligne = Ligne + 1
Classe = Cells(Ligne, 1).Value
Loop Until Classe = ""
End Sub

Merci bcp pour votre aide !!!

 

[MJ13]

Re : simplification d'un code VBA

Bonjour latanz

Dans ton cas, il faudrait peut être déjà utiliser l'enregistreur de macros. Ainsi tu aurais le code pour rechercher un mot.

 

[latanz]

Re : simplification d'un code VBA

ok.
comment est-ce que je peux insérer un saut de page avec l'enregistreur de macro ?

 

[MJ13]

Re : simplification d'un code VBA

Re

Avec l'enregistreur, cela donne ce code:

  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Mais tu ne sais peut-être pas l'utiliser? fait une recherche sur le net.

 

[soenda]

Re : simplification d'un code VBA

Bonjour le fil, mj13, latanz

Je n'ai pas réussi à placer des sauts de page avec l'enregistreur de macro ... Excel 2007 ?

Sub SautDePageApres_fax()
    Dim c As Range
    Dim i As Integer
 
    With Feuil1 [B][COLOR=green]' à adapter[/COLOR][/B]
 
        For Each c In .Range("A1:A" & [A65536].End(xlUp).Row)
 
            If c.Value = "fax" Then
 
                .HPageBreaks.Add c.Offset(1)
 
                [B][COLOR=green]' Une feuille ne peut pas contenir plus de 1 026 sauts de page horizontaux Excel 2007[/COLOR][/B]
                i = i + 1
                If i = 1026 Then Exit Sub
 
            End If
        Next
 
    End With
 
End Sub

A plus

 

[latanz]

Re : simplification d'un code VBA

Merci, c'est génial la macro ca marche !

Cependant, c'est possible d'avoir seulement un saut de page avant et non pas avant et après ??

Mille merci pour votre aide

 

[soenda]

Re : simplification d'un code VBA

Re,

serait-il possible d'avoir seulement un saut de page après, et non pas avant et après

Si les cellules A5 et A6 contiennent le mot "fax",
un saut de page sera ajouté après A5 et après A6 (après A5 = avant A6)

si tu veux un seul saut de page après A6 (mais pas après A5 car A6 contient aussi le mot "fax"), modifie le code comme suit

If c.Value = "fax" [COLOR=red][B]And c.Offset(1) <> "fax"[/B][/COLOR] Then

A plus

 

[latanz]

Re : simplification d'un code VBA

c'est bizarre, je n'ai jamais 2 cellules "fax" qui se suivent et pourtant j'ai les sauts de page avant et après avec la marco que tu as faite !

 

[soenda]

Re : simplification d'un code VBA

Re,

Peux-tu poster un classeur exemple ?

A plus