Copier, effacer et coller à la suite [Résolu/Fermé]

Signaler
Messages postés
72
Date d'inscription
mercredi 29 octobre 2014
Statut
Membre
Dernière intervention
9 novembre 2015
-
Messages postés
15807
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 juin 2021
-
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



10 réponses

Messages postés
15807
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 juin 2021
1 502
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).ClearContents
End Sub
Messages postés
72
Date d'inscription
mercredi 29 octobre 2014
Statut
Membre
Dernière intervention
9 novembre 2015

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.
Messages postés
15807
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 juin 2021
1 502
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+
Messages postés
15807
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 juin 2021
1 502
Re,

fichier modifie, positionnement fiche ajoutee un aleatoire


https://www.cjoint.com/?DKqqFIW28UJ

A+
Messages postés
72
Date d'inscription
mercredi 29 octobre 2014
Statut
Membre
Dernière intervention
9 novembre 2015

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
Messages postés
15807
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 juin 2021
1 502
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+
Messages postés
72
Date d'inscription
mercredi 29 octobre 2014
Statut
Membre
Dernière intervention
9 novembre 2015

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
Messages postés
15807
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 juin 2021
1 502
Bonjour,

somme nous obliger à chaque fois de sauter 8 lignes Qui a donne le code ??????
Messages postés
72
Date d'inscription
mercredi 29 octobre 2014
Statut
Membre
Dernière intervention
9 novembre 2015

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.
Messages postés
15807
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 juin 2021
1 502
Re,

Offset(8, 0)
: ligne +8, meme colonne

si vous voulez 1 ligne:
Offset(1, 0)