Pb de saut de pages

[fred]

Bonjour à tous et toutes,

J'ai un tableau du type ci-dessous ou j'ai créé de nombreuses macros pour ameliorer la mise en page et je souheterais rajouter une macro qui me permette d'introduire un saut de page apres chaque changement de pays!!!

le tableau est constitué de 3 colonnes(chapitre, code, libellé)


Merci par avance à vous tous et vous toutes


Chapitre Code Libellé

1.1. AF AFGHANISTAN

MARDUC Dépôt de la marque

UNIDEP Classes supplémentaires au dépôt

PRIORI Revendication de priorité

TARDIF Dépôt tardif


1.2. ZA AFRIQUE DU SUD


MARDUC Dépôt de la marque

UNIDEP Classes supplémentaires au dépôt

NBCLUC - Nombre de classes

MARRUC Renouvellement de la marque


1.3. AL ALBANIE

MARDEP Dépôt de la marque dans 1 classe
CLADEP Classes supplémentaires au dépôt
NBCLWO - Nombre de Classes (par classe)
PRIORI Revendication de priorité(s)

 

[jepi67]

Bonjour le forum,
Bonjour Fred,

Ton premier post était bien arrivé à 14h41, il était inutil de le repasser,
sois patient, reste sur le même fil et explique mieux ce que tu veux si tu n'as pas de réponse après quelques heures voire un jour

Bon courage

 

[fred]

et bien je patiente alors....

Pour plus de précision:


je veux une macro ou autre procédé qui reconnaisse les differents pays de la colonne 3 et qui a chaque fois qu'il en recontre un insère un nouveau saut de page!!!

Merci

 

[Hervé]

Bonjour tout le monde

Tu peux essayer ce code :

Sub Bouton1_QuandClic()
Dim c  As Range

For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
&nbsp; &nbsp; If IsNumeric(Left(c, 1)) And c.Row <> 1 Then
&nbsp; &nbsp; &nbsp; &nbsp; ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=c
&nbsp; &nbsp; End If
Next c
End Sub

Je me suis pas appuyé sur la colonne C, mais la A seule cellule contenant du numérique.

salut

 

[fred]

Merci bcp hervé c'est exactement ce que je voulais!!!

bonne fin de journée