insérer automatiquement un saut de page aprés une cellule X
#1
Aspirant XLPages

Inscription: 05/12/2008

Messages: 36

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 11-09-2009 22h36
salut tous le forum

mon petit problème est le suivant

je veux insérer automatiquement un saut de page ( avec ou sans vba) après chaque cellule qui contient le mot "bénéfice"

après une recherche sur le net j'ai trouvé un macro que j'ai essayé de le modifier à fin de résoudre mon problème mais sans résultats

je vous joint ici mon fichier
merci d'avance pour votre aide

et bonne nuit

Pièce jointe:
xls liste .xls   [ Taille: 63.50 Ko - Téléchargements: 1026 ]
Hors Ligne
Rapport   Haut 

Re: insérer automatiquement un saut de page aprés une cellule X
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 11-09-2009 23h18
Bonsoir inspecteur, le Forum,

DANS UN MODULE DE CODE STANDARD (au lieu du module de code de la feuille) :
Option Explicit

Sub SautDePageApres_benefice()
Dim R As Range
Dim Adr As String
    Application.ScreenUpdating = False
    With Sheets("Feuil2") ' à adapter
        Set R = .Columns(1).Find("bénéfice")
        If R Is Nothing Then Exit Sub
        Adr = R.Address
        Do
            .HPageBreaks.Add R.Offset(1, 0)
            Set R = .Columns(1).FindNext(R)
        Loop While Not R Is Nothing And R.Address <> Adr
    End With
    Application.ScreenUpdating = True
End Sub

A noter que ton code précédent pouvait difficilement fonctionner avec une recherche sur "bénifice" au lieu de "bénéfice"...

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: insérer automatiquement un saut de page aprés une cellule X
#3
Aspirant XLPages

Inscription: 05/12/2008

Messages: 36

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 12-09-2009 21h22
salut mdf ; salut le forum

merci mdf pour la rapidité de ta réponse ;

j'ai essayé le code et il fonctionne correctement ;

si c'est possible je veux savoir comment faire pour insérer des lignes (par exemple 20 lignes) après chaque cellule qui contient le mot " bénéfice"  au lieu d'insérer  un saut de page .

merci pour votre aide

Hors Ligne
Rapport   Haut 

Re: insérer automatiquement un saut de page aprés une cellule X
#4
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 12-09-2009 21h52
Bonsoir inspecteur, le Forum,

Une façon de faire en remplaçant la ligne :
.HPageBreaks.Add R.Offset(1, 0)
Par celle-ci :
.Range(.Cells(R.Row + 1, 1), .Cells(R.Row + 21, 1)).EntireRow.Insert xlShiftDown

Inspecteur, as-tu seulement essayé de le faire par toi-même ?


Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: insérer automatiquement un saut de page aprés une cellule X
#5
Aspirant XLPages

Inscription: 05/12/2008

Messages: 36

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 13-09-2009 02h09
bonsoir mdf
salut le forum

merci mdf pour ton aide et la rapidité de la réponse ;
vraiment le langage vba c'est comme de chinois pour moi ; je commence à appendre pas à pas ;

merci encore et bonne nuit


Hors Ligne
Rapport   Haut 

Re: insérer automatiquement un saut de page aprés une cellule X
#6
Débutant XLPages

Inscription: 11/07/2020
De FRANCE

Messages: 1

Système d'exploitation:
PC
Version Excel utilisée:
2016
Posté le : 11-07-2020 14h05

Bonjour, 

 

Etant novice dans en vba, j'ai fait un copié-collé, et cela fonctionne dans mon tableau au top.

 

Cependant, j'aimerai que le saut intervienne avant mon texte et non après.

 

Que dois-je changer ?

 

Merci de votre aide.

Hors Ligne
Rapport   Haut 

Re: insérer automatiquement un saut de page aprés une cellule X
#7
Débutant XLPages

Inscription: 27/06/2020
De bourg en bresse

Messages: 13

Système d'exploitation:
PC w10
Version Excel utilisée:
2016
Posté le : 11-07-2020 18h31

Bonjour,

Cette instruction insère un saut de page avant la ligne ou se trouve la cellule active.

ActiveSheet.HPageBreaks.Add Before:=ActiveCell

A+

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes