insérer automatiquement un saut de page aprés une cellule X [Forums - Espace Débutants] : myDearFriend! Excel Pages

insérer automatiquement un saut de page aprés une cellule X		#1
inspecteur 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: liste .xls [ Taille: 63.50 Ko - Téléchargements: 1110 ]

Re: insérer automatiquement un saut de page aprés une cellule X		#2
myDearFriend! 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 Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien

Re: insérer automatiquement un saut de page aprés une cellule X		#3
inspecteur 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

Re: insérer automatiquement un saut de page aprés une cellule X		#4
myDearFriend! 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 Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien

Re: insérer automatiquement un saut de page aprés une cellule X		#5
inspecteur 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

Re: insérer automatiquement un saut de page aprés une cellule X		#6
Sunshine 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.

Re: insérer automatiquement un saut de page aprés une cellule X		#7
Galopin01 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+

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.

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