Macros ou code VBA

Bonsoir,
J’ai un problème que je vais vous exposez pour une éventuel solution.
Le code VBA que voici copie les donnes plus les formules de calcule utilisé de la première page et les colle dans la deuxième page dans la même feuille :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub test() ' ' test Macro ' ' Touche de raccourci du clavier: Ctrl+p ' Range("A1:J17").Select Selection.Copy ActiveWindow.SmallScroll Down:=9 Range("A19").Select ActiveSheet.Paste ActiveWindow.SmallScroll Down:=5 Range("A26").Select End Sub

---

Maintenant ce que je veux faire ce que à chaque exécution du macros que ça crée une nouvelle page au lieu de la deuxièmes à chaque fois, je m’y connais pas trop en VBA et je demande votre aide par ce que j’ai effectué des recherche et j’ai compris que je dois apprendre tous le langage VBA tant dis que je suis développeur en mode avancé c’est à dire (PHP, HTML, JS,APK, CSS, MySQL) dont je nait pas totalement terminé pour ne pas me dispersé je demande à vous expert en Excel pour m’aider à résoudre ce problème avec quelque code sans apprendre tous le langage.
Merci d’avance.

Bonjour,

Essayez ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub CopierUneAireDansUneNouvelleFeuille()   Dim OngletEnCours As Worksheet Dim NouvelOnglet As Worksheet   Set OngletEnCours = ActiveSheet Set NouvelOnglet = ActiveWorkbook.Worksheets.Add(after:=Sheets(Sheets.Count))   OngletEnCours.Range("A1:J17").Copy Destination:=NouvelOnglet.Range("A1")   Set OngletEnCours = Nothing Set NouvelOnglet = Nothing   End Sub

---

Cordialement.

Eric merci,
Le code que vous m’avez envoyé je les testé et sa copie sur une nouvelle feuille mai mon objectif est que sa copie sur la même feuille mai sur une nouvel page.
Merci

D'abord, un petit nettoyage de ton code (l'enregistreur automatique, c'est bien, mais il faut s'inspirer du code récupérer et non l'utiliser comme tel) :

Code:

---

1 2 3 4

Sub test() ' Touche de raccourci du clavier: Ctrl+p Range("A1:J17").Copy Range("A19") End Sub

---

Pour ce que tu souhaites faire :

Code:

---

1 2 3 4 5 6

Sub test() ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address ActiveSheet.HPageBreaks.Add Before:=Cells((ActiveSheet.HPageBreaks.Count+1)*19,1) Range("A1:J17").Copy Cells(ActiveSheet.HPageBreaks.Count*19,1) ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address End Sub

---

Citation:

---

Envoyé par pipipicontrole

---

Visiblement Menhir vous a répondu.

Cordialement.

Merci a Menhir,
Apres le test de votre code sa active plus 18000 page mai aucun donné n’est copier ni les formule par ce que l’objectif c’est de récupéré c’est traitement et donnée sur une nouvelle page enfin de remplacé les donnée copier manuelement et directement les champs calculé affiche le résultat et la page en question est considéré comme une nouvelle enregistrement seulement il y a une différence de donnée entre la page actuel et la page copier.
Merci

Citation:

---

Envoyé par Eric KERGRESSE

Visiblement Menhir vous a répondu.

Cordialement.

---

mai lui son code ne repond pas a mes besoin vue que sa active plus de 18000 page mai aucun donnée n'est copier

Citation:

---

Envoyé par Menhir

D'abord, un petit nettoyage de ton code (l'enregistreur automatique, c'est bien, mais il faut s'inspirer du code récupérer et non l'utiliser comme tel) :

Code:

---

1 2 3 4

Sub test() ' Touche de raccourci du clavier: Ctrl+p Range("A1:J17").Copy Range("A19") End Sub

---

Pour ce que tu souhaites faire :

Code:

---

1 2 3 4 5 6

Sub test() ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address ActiveSheet.HPageBreaks.Add Before:=Cells((ActiveSheet.HPageBreaks.Count+1)*19,1) Range("A1:J17").Copy Cells(ActiveSheet.HPageBreaks.Count*19,1) ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address End Sub

---

---

Apres le test de votre code sa active plus 18000 page mai aucun donné n’est copier ni les formule par ce que l’objectif c’est récupéré c’est traitement et donnée sur une nouvelle page enfin de remplacé les donnée copier et directement les champs calculé affiche le résultat et la page en question est considéré comme nouvelle enregistrement seulement il y a une différence de donnée entre la page actuel et la page calculé.
Merci

Citation:

---

Envoyé par pipipicontrole

Apres le test de votre code sa active plus 18000 page mai aucun donné n’est copier ni les formule

---

Je suis parti du principe que tu devais avoir un fichier propre, ce qui, visiblement, n'est pas le cas.
Je pense que tu as du copier des trucs dans une colonne entière ou quelque chose comme ça. Il y a sans doute des parasites en dehors de la zone utilisée.

Ne sachant pas quelle forme ont tes données et ce que contient la zone "A1:J17", j'étais parti sur l'utilisation d'un UsedRange qui semblait le plus sûr.
Mais s'il y a des parasites à l'extérieur de la zone utile, ce n'est pas possible de procéder ainsi.

Il faudrait que tu fasses une copie d'écran de la zone "A1:J17" pour voir sur quoi il est possible de s'appuyer pour repérer les fins de zone.

Ce que je comprends, c'est qu'on copie A1:J17 en fin de tableau et on ajoute un saut de page.

Est-ce que j'ai bien pigé ?

Citation:

---

Envoyé par Menhir

Je suis parti du principe que tu devais avoir un fichier propre, ce qui, visiblement, n'est pas le cas.
Je pense que tu as du copier des trucs dans une colonne entière ou quelque chose comme ça. Il y a sans doute des parasites en dehors de la zone utilisée.

Ne sachant pas quelle forme ont tes données et ce que contient la zone "A1:J17", j'étais parti sur l'utilisation d'un UsedRange qui semblait le plus sûr.
Mais s'il y a des parasites à l'extérieur de la zone utile, ce n'est pas possible de procéder ainsi.

Il faudrait que tu fasses une copie d'écran de la zone "A1:J17" pour voir sur quoi il est possible de s'appuyer pour repérer les fins de zone.

---

Pièce jointe 230713
Voici la plage en haut de cette plage il y a juste le logo de l'entreprise.
Je dois pouvoir copies tous sa sur la nouvelle page automatiquement et je remplace manuellement les donnée.

La zone A:1:J17 est supposée contenir 17 lignes. Dans ta copie d'écran, je n'en vois que 11.

Je vais essayer de faire avec ça mais pas sûr que ça marche.

Code:

---

1 2 3 4 5

Sub test() Dim Fin As Long Fin = (Int(Range("B" & Rows.Count).End(xlUp).Row / 18.0) + 1) * 18 Range("A1:J17").Copy Range("A" & (Fin + 1)) End Sub

---

Citation:

---

Envoyé par Eric KERGRESSE

Ce que je comprends, c'est qu'on copie A1:J17 en fin de tableau et on ajoute un saut de page.
Est-ce que j'ai bien pigé ?

---

N'ayant aucune référence précise, j'utilisais les saut de page pour pouvoir compter les pages.
Mais pour pouvoir compter les sauts de page, il faut qu'ils soit dans la zone d'impression. D'où la première et dernière lignes de code.

Citation:

---

Envoyé par Menhir

N'ayant aucune référence précise, j'utilisais les saut de page pour pouvoir compter les pages.
Mais pour pouvoir compter les sauts de page, il faut qu'ils soit dans la zone d'impression. D'où la première et dernière lignes de code.

---

Bonsoir Menhir,

Si chaque fois qu'on copie la zone, on fait un saut de page, cela devrait fonctionner dans tous les cas puisque la hauteur de la zone imprimable est chaque fois inférieure à une page normale ? Es-tu d'accord ?

Cordialement.

Compte tenu que la colonne de référence est visiblement la colonne 2, voilà la code que j'écrirais

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit   Sub CopierAvecSautDePage()   Dim DerniereLigne As Long   With ActiveSheet DerniereLigne = .Cells(.Rows.Count, 2).End(xlUp).Row .Range("A1:J17").Copy Destination:=.Range("A" & DerniereLigne + 1) DerniereLigne = .Cells(.Rows.Count, 2).End(xlUp).Row ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=.Cells(DerniereLigne + 1, 1) End With   End Sub

---

Citation:

---

Envoyé par Eric KERGRESSE

Si chaque fois qu'on copie la zone, on fait un saut de page, cela devrait fonctionner dans tous les cas puisque la hauteur de la zone imprimable est chaque fois inférieure à une page normale ? Es-tu d'accord ?

---

Sauf s'il y a des parasites disséminés sur la feuille de calcul qui empêchent de définir correctement la zone à prendre en compte pour la zone d'impression.
Parce que si la zone d'impression est disproportionnée, elle va contenir aussi les sauts de page naturels (non forcés) et les données copiées vont se retrouvées à perpet.
Et j'ai bien l'impression que c'est le cas ici.

Ok j’ai testé le code effectivement sa marche pas mai je dois faire comment pour bien faire déjà vous connaissez l’objectif un exemple réel en image donc vous devez pouvoir m’aidez.
Merci vraiment pour m’avoire accordé votre temp.

Une solution dans ce lien :


Sauts de page automatiques

Merci vraiment pour m’avoir accordé votre temps.
En y réfléchissant je saie ce dont j’ai besoin :
1 la syntaxe pour crée une nouvelle page en VBA Excel.
Voici la solution que j’ai trouvée pour que vous regardiez la faisabilité si possible en me guidant :
Dans mon code initiale j’ai vue qu’apprêt la syntaxe du copie, une plage bien spécifique est sélectionné et activé ; donc avec le syntaxe que vous allez me donner je vais créer une nouvelle page l’activé et collé ; pour finir à chaque exécution du macros sa créé automatiquement une nouvelle page en collant à chaque fois les même infos et je nais plus qu’a changé les données.
Merci d’avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() ' ' test Macro ' ' Touche de raccourci du clavier: Ctrl+p ' Range("A1:J17").Select Selection.Copy ActiveWindow.SmallScroll Down:=9 Range("A19").Select ActiveSheet.Paste   End Sub

---

code initial

Citation:

---

Envoyé par pipipicontrole

En y réfléchissant je saie ce dont j’ai besoin :
1 la syntaxe pour crée une nouvelle page en VBA Excel.

---

Visiblement :

- Vous ne regardez pas toutes les solutions proposées.
- Vous ne répondez pas à toutes les questions posées.

Bon courage à vous. Je me désabonne de cette discussion.

Cordialement.

Je suis d'accord avec Eric. J'ai vraiment l'impression de perdre mon temps pour rien.

Tu remets ton code initial alors que je te l'ai corrigé dans le message #4.
Tu demandes une solution alors que je t'ai donné dans le message #12 un code que visiblement tu n'as pas testé.

Ca me donne moi aussi une furieuse envie de te laisser te débrouiller tout seul.

Citation:

---

Dans mon code initiale j’ai vue qu’apprêt la syntaxe du copie, une plage bien spécifique est sélectionné et activé ; donc avec le syntaxe que vous allez me donner je vais créer une nouvelle page l’activé et collé ; pour finir à chaque exécution du macros sa créé automatiquement une nouvelle page en collant à chaque fois les même infos et je nais plus qu’a changé les données.

---

Le problème est qu'avec les données que tu fournis, il est impossible de déterminer combien de "pages" se trouvent déjà dans ta feuille Excel et donc qu'il est impossible de savoir où positionner la nouvelle page.

Quant à utiliser les Select, c'est la plupart du temps inutile dans le code.
C'est surtout utilisé par ceux qui ne savent faire rien d'autre que de plaquer sans le comprendre le code généré par l'enregistreur automatique.

Citation:

---

donc vous devez pouvoir m’aidez.

---

Non, nous ne sommes pas tes employés ni tes débiteurs, nous n'avons donc aucune obligation à aider quiconque.

Citation:

---

Envoyé par pipipicontrole

Apres le test de votre code sa active plus 18000 page mai aucun donné n’est copier ni les formule

---

Est-ce que tu mets le code de Menhir dans un module standard ?

Pour creer un module standard, tu vas dans Menu Insertion / Module