Discussion :

[Abyssale]

Bonjour,

J'ai un classeur avec une seule feuille nommée feuille .

Dans cette feuille, j'ai une succession de données séparées par des sauts de page.

Exemple :

VOITURE 1
bla bla bla

SAUT DE PAGE

VOITURE 2
bla bla bla

SAUT DE PAGE

VOITURE 3
bla bla bla

Est-il possible de séparer ces "blocs" pour en faire autant de feuilles ou classeur distincts ?

Merci

[Fvandermeulen]

Bonjour et bienvenue sur le forum,

J'imagine que tu pense à une macro pour faire ceci...hormis le saut de page, y a t'il un autre élément qui permet de distinguer un bloc d'un autre?
Comme dans ton exemple, on peut utiliser Voiture.

A+

[Abyssale]

Non, seul le saut de page permet de distinguer les blocs.

J'ai indiqué VOITURE pour simplifier mon message.
Dans le vrai fichier il y aurait à la place le modèle de la voiture...

[Fvandermeulen]

Re,

Je posais la question car il me semblait que ça allait être plus chaud de définir les plages en fonction du saut de page mais en fait non.
Dans le code ci-dessous, en fonction des sauts de pages on copie la plage dans une nouvelle feuille renommée suivant le contenu de la première cellule de cette plage (j'imagine le modèle)
J'ai considéré une seule colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub CopieSelonSautDePage()
Dim NbHPB As Long, R As Long, Rdeb As Long, Rfin As Long
 
NbHPB = Sheets("TaFeuil").HPageBreaks.Count 'Compte le nombre de saut de page
Rdeb = 1 'Si premier modèle en ligne 1, servira pour délimiter le début de plage à copier
 
For R = 1 To NbHPB 'Boucle sur chaque saut de page
    Rfin = Sheets("TaFeuil").HPageBreaks(R).Location.Row - 1 'Indique le numéro de ligne précédent le saut de page
    Sheets.Add.Name = Sheets("TaFeuil").Cells(Rdeb, 1).Value  'Renomme la feuille ajoutée avec le contenu de la première cellule de la plage
    Sheets("TaFeuil").Range(Sheets("TaFeuil").Cells(Rdeb, 1), Sheets("TaFeuil").Cells(Rfin, 1)).Copy Destination:=Range("a1") 'Copie la plage concernée sur la nouvelle feuille
    Rdeb = Rfin + 1 'Défini le début de plage suivant
Next R 'Passe au saut de page suivant
 
End Sub

A+

[Abyssale]

Génial !!!

Je ne n'y comprends pas grand chose mais génial !

Il me semble que dans la macro, le nom Tafeuil doit être celui de la feuille contenant les données, c'est ça ?
Si oui, la macro ne peut-elle pas se servir du nom de la feuille directement ?

La création des feuilles se faiten "ordre inverse", du style :

VOITURE 3 VOITURE 2 VOITURE 1

Est-il possible d'avoir :

VOITURE 1 VOITURE 2 VOITURE 3

En tous cas, merci déjà pour tout cela.

Et comment faire pour que les cellules copiées incluent toutes les cellules à copier ?
Pas clair ça.
Dans mon premier bloc, la première cellule sert de nom de la future feuille : ok.
En dessous et jusqu'au saut de page les cellules doivent aussi être copiées. Si par exemple j'ai les cellules de A2 à J20 de remplies, bien il faudrait les copier.

J'ai compris que tout ce joue là, mais comment le modifier ?
Sheets("Feuil1").Range(Sheets("Feuil1").Cells(Rdeb, 1), Sheets("Feuil1").Cells(Rfin, 1)).Copy Destination:=Range("a1")

[Fvandermeulen]

Re,

En deux mot:
HPBreaks = saut de page, grâce à ça on trouve la ligne où le saut de page est défini.
On compte le nombre de saut de page, on passe sur chaque saut de page pour avoir la ligne de fin de la plage.
On copie la plage.

Pour la position des feuilles, j'ai ajouter une ligne pour que la feuille ajoutéé soit déplacée dernière la dernière.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub CopieSelonSautDePage()
Dim NbHPB As Long, R As Long, Rdeb As Long, Rfin As Long
 
NbHPB = Sheets("TaFeuil").HPageBreaks.Count 'Compte le nombre de saut de page
Rdeb = 1 'Si premier modèle en ligne 1, servira pour délimiter le début de plage à copier
 
For R = 1 To NbHPB 'Boucle sur chaque saut de page
    Rfin = Sheets("TaFeuil").HPageBreaks(R).Location.Row - 1 'Indique le numéro de ligne précédent le saut de page
    Sheets.Add.Name = Sheets("TaFeuil").Cells(Rdeb, 1).Value  'Renomme la feuille ajoutée avec le contenu de la première cellule de la plage
    Sheets(Sheets("TaFeuil").Cells(Rdeb, 1).Value).Move After:=Sheets(Sheets.Count)
    Sheets("TaFeuil").Range(Sheets("TaFeuil").Cells(Rdeb, 1), Sheets("TaFeuil").Cells(Rfin, 1)).Copy Destination:=Range("a1") 'Copie la plage concernée sur la nouvelle feuille
    Rdeb = Rfin + 1 'Défini le début de plage suivant
Next R 'Passe au saut de page suivant
 
End Sub

A+

Edit: J'ai oublié de répondre à ta question sur le nom de la feuille, oui "TaFeuil" est le nomp de la feuille sur laquelle il y a les données.