copier, effacer et coller à la suite Résolu/Fermé

Question

Bonjour le forum,

je suis nouveau, et je début avec les macros.
DONC J'AI BESOIN DE VOUS 

j'ai créer un classeur avec plusieurs feuilles. sur ces feuilles, j'ai créer des formulaires à remplir par un opérateur, et une fois le formulaire remplie, l'opérateur click sur un bouton "nouvelle feuille" pour avoir un nouveau formulaire à remplir à la suite de l'initial, sachant que le nouveau formulaire doit être vierge et doit être copier sur la page 2, puis page 3 ect.....afin que l'on puisse imprimer la page désirer.
PS: le bouton "nouvelle feuille" doit me permettre de créer X formulaires à la suite.

Ci-joint un model de mon tableau avec une macro trouvé sur un forum, mais il fait que copier et coller, il manque effacer les cellules X.

https://www.cjoint.com/?0Kpx6EBtT3f

Merci par avance



Configuration: Windows / Mozilla 11.0

f894009 · Answer

Bonjour,

code du bouton (hors formule num lot).
Par contre pourquoi une formule somme pour numero de lot ??????

Private Sub CommandButton1_Click()    Range("A1:H27").Copy Range("A65536").End(xlUp).Offset(8, 0)    x = Range("A65536").End(xlUp).Offset(8, 0).Row - 8    'effacement cellules    Range("F" & x - 13 & ":H" & x - 11 & ",F" & x - 8 & ":H" & x - 8 & ",F" & x - 5 & ":H" & x).ClearContentsEnd Sub

mimi13580 · Answer

Bonjour f894009, 

Merci beaucoup pour votre aide, cella fonctionne correctement, sauf au niveau de l'impression des pages, le formulaire et à cheval avec 2 feuilles.
Peut-on dire à la macro de ce coller sur la prochaine page et non à partir de la 8émes lignes?

Et-il possible d'avoir en vue la nouvelle page coller, car nous somme obliger de descendre à chaque fois que l'on demande une nouvelle feuille.

Concernant la formule somme pour le numéro de lot, j'ai mis cela pour le formulaire récupère la donner, je pense que c'est pas!!!!

Et encore merci pour votre aide.

f894009 · Answer

Re,

je pense que c'est pas!!!! Ben oui, il suffit de nommer la plage (cellules fusionnees) NumLot et sur la fiche production cellule qui doit avoir le numero: =NumLot

Et-il possible d'avoir en vue la nouvelle page coller Oui, mettre le bouton en haut et figer les volets pour eviter de remonter tout en haut pour ajouter une fiche

Peut-on dire à la macro de ce coller sur la prochaine page ajouter un saut de page apres la copie

Je vous fais ca 

A+

f894009 · Answer

Re,

fichier modifie, positionnement fiche ajoutee un aleatoire


https://www.cjoint.com/?DKqqFIW28UJ

A+

mimi13580 · Answer

Bonjour,

Merci beaucoup de votre aide et de votre efficacité, c'est plus que parfait.

Par contre pourriez m'expliquer comment le faire sur mes autre document car j'ai 30 formulaires complétement différente, avec plus de ligne et de colonne.

Faut-il modifier uniquement ces lignes ?

le nom des rang: A1:H27 ex: A1:O60
Range("A1:H27").Copy Range("A65536").End(xlUp).Offset(8, 0)

Par contre pour cette ligne j'ai rien compris!!!! pourquoi des - ? et ces chiffre ne correspond pas au cellules Pourquoi?

    Range("F" & x - 13 & ":H" & x - 11 & ",F" & x - 8 & ":H" & x - 8 & ",F" & x - 5 & ":H" & x).ClearContents

f894009 · Answer

Re,

 pour cette ligne j'ai rien compris!!!! 
C'est simple, x est la derniere ligne apres le coller et change a chaque coller. Donc pour effacer le contenu des cellules du dernier coller, je parts de la derniere ligne et fait des moins en fonction de la position des plages de cellules a effacer par rapport a cette derniere ligne.

car j'ai 30 formulaires complétement différente
 Mettez un fichier a dispo avec ces formulaires, je vous faits le code

A+

mimi13580 · Answer

Bonjour,

Merci beaucoup pour vos explication claire, je vais essayer de les faires sur les autres formules.

Par contre somme nous obliger à chaque fois de sauter 8 lignes avant de coller la nouvelle?    Offset(8, 0)

j'aimerai les avoir à la suite, mais toujours avec un saut de page.

1000 Merci

f894009 · Answer

Bonjour,

 somme nous obliger à chaque fois de sauter 8 lignes Qui a donne le code ??????

mimi13580 · Answer

Bonjour, 

effectivement c'est moi, mais c'est un code que j'ai trouvé sur un forum.
quel sont les modification à apporter.

Merci d'avance.

f894009 · Answer

Re,

 Offset(8, 0): ligne +8, meme colonne

si vous voulez 1 ligne:
Offset(1, 0)

Copier, effacer et coller à la suite

10 réponses

Discussions similaires