Discussion :

[pipipicontrole]

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 :

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 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.

[Invité]

Bonjour,

Essayez ce code :

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
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.

[pipipicontrole]

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

[Invité]

Visiblement Menhir vous a répondu.

Cordialement.

[pipipicontrole]

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

[Menhir]

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.

[pipipicontrole]

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

[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 :

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

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 :

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

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

[pipipicontrole]

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 :

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

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 :

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

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

[Docmarti]

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

[pipipicontrole]

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

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

pour faire quel action si non tous le code qu'il mon envoiyé je les est tous testé sans exception mai aucun ne repon a mes besoin meme aprés les corrections.
Merci vraiment doc si tu pouvait voire mon avan dernier message et m'aidé je sui en periode de test et c'est la DGA qui a demandé cette action je sai c'est pour me testé si je deplois une de mes applications dans mon pays avoire du boulot c'est trés difficile.
je remercie tous le monde meme si il y a des qui ce son fachez je demande pardont aussi.

[Menhir]

pour faire quel action si non tous le code qu'il mon envoiyé je les est tous testé sans exception mai aucun ne repon a mes besoin meme aprés les corrections.

Et ça ne te viendrait pas à l'idée de le dire ? Et de dire ce qui se produit quand tu les exécutes et ce qui ne convient pas ?

[Menhir]

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 :

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

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

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.