Macro pour copier et numéroter les pages d'un carnet

[Océane]

Bonjour le forum
J'ai besoin avec le classeur ci-joint d'une macro qui recopie la feuille 1 autant de fois qu'il est demandé dans la feuille numérotation, et qui numérote les reçus avec le principe décrit dans cette même feuille.
Une fois les feuilles imprimées cela me permettra avec un seul coup de massicot de réaliser 10 carnets de reçus numérotés dans l'ordre : 1 à 225.
Merci d'avance

 

[JCGL]

Re : Macro pour copier et numéroter les pages d'un carnet

Re,

Je confirme le bug.
Sous XL 2003 : il est sur la deuxième feuille créée et sur le zone de texte 16.

A++
A+ à tous

 

[pierrejean]

Re : Macro pour copier et numéroter les pages d'un carnet

Re

merci Staple

J'abuse peut-etre mais peux-tu me dire comment se nomme cette Feuille ?
J'entrevois une hypothese selon laquelle on chercherait a remplacer un shape dans Feuil1 alors que ce devrait etre sur Feuille1
Au debug si tu places le curseur sur n quelle est la valeur ?
Pour info , je viens de tester avec 10 et toujours aucun problème ! (dur de debugger dans ces conditions)

 

[pierrejean]

Re : Macro pour copier et numéroter les pages d'un carnet

Re

Une tentative !

J'explore les feuilles de la derniere a la premiere (au lieu de l'inverse)
Il est tout de même curieux que 2003 ne puisse digerer ce que 2000 accepte !!!

 

[Staple1600]

Re : Macro pour copier et numéroter les pages d'un carnet

Re


EDITION: avec la 2ème version pour 5 feuilles , n= 5 mais même bug


• Ici test avec 1ère version
Résessai avec 4 feuilles

Toujours le bug

n=1


Nom de la feuille :Feuille4

 

[jeanpierre]

Re : Macro pour copier et numéroter les pages d'un carnet

Bonjour le fil,

Sur le dernier fichier déposé par l'ami PierreJean, pas de souci.

Edit : si un à la fin et ici .... : Sheets(n).Shapes(nom).Select, Je revois

 

[JCGL]

Re : Macro pour copier et numéroter les pages d'un carnet

Re,

Bug sur la dixième feuille sur dix demandés (n=10) et toujours sous XL 2003.
Toujours sur la zone de texte 16

A+

 

[Staple1600]

Re : Macro pour copier et numéroter les pages d'un carnet

Re


Voila le nom de toutes les shapes de la feuil1
Il n'y a pas de Text Box 16
Rectangle 1
Rectangle 2
Rectangle 3
Rectangle 4
Rectangle 5
Rectangle 6
Rectangle 7
Rectangle 8
Rectangle 9
Rectangle 10
Rectangle 11
Rectangle 12

Text Box 13
Text Box 14
Text Box 15
Text Box 17

Rectangle 26
Rectangle 27
Rectangle 28
Rectangle 29
Rectangle 35
Rectangle 36
Rectangle 37
Rectangle 38
Rectangle 39
Rectangle 40
Rectangle 41
Rectangle 42
Rectangle 43
Rectangle 44
Rectangle 45
Rectangle 46

Text Box 47
Text Box 48
Text Box 49
Text Box 51

 

[JCGL]

Re : Macro pour copier et numéroter les pages d'un carnet

Re,

J'ai bien parlé de ZONE DE TEXTE.

A+

 

[pierrejean]

Re : Macro pour copier et numéroter les pages d'un carnet

Re

Je crois savoir d'ou vient le problème

Chez moi lorsque je recopie les Shapes de la Feuil1, les shapes de 126 changent de nom ( de Zone de Texte 47 on passe a Zone de Texte 16) alors que ce n'est pas le cas pour les shapes 001
En supposant que d'autres versions d'Excel conservent le nom ,il faudrait modifier:

For m = 16 To 18
      nom = "Text Box " & m
      Sheets(n).Shapes(nom).Select
      Selection.Formula = "Numérotation!D" & CInt(Replace(Sheets(n).Name, "Feuille", "")) + 1
      With Selection.Font
        .FontStyle = "Gras"
       If m = 16 Then
        .Size = 72
       Else
        .Size = 24
       End If
      End With
   Next m

For m = 47 To 49
      nom = "Text Box " & m
      Sheets(n).Shapes(nom).Select
      Selection.Formula = "Numérotation!D" & CInt(Replace(Sheets(n).Name, "Feuille", "")) + 1
      With Selection.Font
        .FontStyle = "Gras"
       If m = 47 Then
        .Size = 72
       Else
        .Size = 24
       End If
      End With
   Next m

 

[pierrejean]

Re : Macro pour copier et numéroter les pages d'un carnet

Re

A titre indicatif voici le resultat chez moi d'une demande de 10 feuilles

Vir diff de noms des Zones de Texte

 

[Staple1600]

Re : Macro pour copier et numéroter les pages d'un carnet

En modifiant comme cela ca fonctionné

For m = 13 To 15
      nom = "Text Box " & m
      Sheets(n).Shapes(nom).Select
      Selection.Formula = "Numérotation!B" & CInt(Replace(Sheets(n).Name, "Feuille", "")) + 1
      With Selection.Font
        .FontStyle = "Gras"
       If m = 13 Then
        .Size = 72
       Else
        .Size = 24
       End If
      End With
   'Next m
   Select Case m
   Case 17
      nom = "Text Box " & m
      Sheets(n).Shapes(nom).Select
      Selection.Formula = "Numérotation!D" & CInt(Replace(Sheets(n).Name, "Feuille", "")) + 1
      With Selection.Font
        .FontStyle = "Gras"
       If m = 16 Then
        .Size = 72
       Else
        .Size = 24
       End If
      End With
      End Select
   Next m
 End If

 

[Staple1600]

Re : Macro pour copier et numéroter les pages d'un carnet

Re

Pierrejean:

EDITION:
Il y a une 2 ème zone de texte qui est copiée recouvre la première avec 001

 

[pierrejean]

Re : Macro pour copier et numéroter les pages d'un carnet

Re

@ Staple

je ne comprends pas ton code:

For m = 13 To 15
Select Case m
Case 17 !!!!

Par ailleurs , je ne vois pas non plus pourquoi un changement de 16 to 18 par 47 to 49 peut interferer sur la création des feuilles

Ce qu'il faut reperer ,a mon sens , cest la facon dont excel renomme (ou non) les shapes .Pour ce faire :
Selectionner tous les Shapes (le 1er puis touche Majuscule et enfin tous les autres ) faire Edition/ Copier Et coller sur une nouvelle Feuille
Chez moi les shapes 47 a 49 deviennent 16 a 18

Que de mystère !!!!

 

[Staple1600]

Re : Macro pour copier et numéroter les pages d'un carnet

Re


pierrejean: ne parlons plus de ma modif (que j'ai faite au pif vbaistique et qui a supprimé le message d'erreur)

Même bug dans ton dernier fichier.

 

[pierrejean]

Re : Macro pour copier et numéroter les pages d'un carnet

Re

Etant du genre obstiné (voire tétu !) je propose de tester cette version avec vos versions d'Excel
Je ne fais plus référence aux noms des Shapes mais je recherche ceux qui se referent a la page Numérotation afin de modifier leur formula