Copier, effacer et coller à la suite

Résolu/Fermé

mimi13580 Messages postés 72 Date d'inscription mercredi 29 octobre 2014 Statut Membre Dernière intervention 9 novembre 2015 - 16 nov. 2014 à 00:06
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 - 17 nov. 2014 à 12:00

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

A voir également:

Macro copier coller à la suite
Copier coller pdf - Guide
Copier une vidéo youtube - Guide
Macro word - Guide
Style d'écriture a copier coller - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

10 réponses

Réponse 1 / 10

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
16 nov. 2014 à 11:21

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

Réponse 2 / 10

mimi13580 Messages postés 72 Date d'inscription mercredi 29 octobre 2014 Statut Membre Dernière intervention 9 novembre 2015
16 nov. 2014 à 13:56

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.

Réponse 3 / 10

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
Modifié par f894009 le 16/11/2014 à 16:18

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+

Réponse 4 / 10

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
16 nov. 2014 à 16:25

Re,

fichier modifie, positionnement fiche ajoutee un aleatoire

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

A+

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

mimi13580 Messages postés 72 Date d'inscription mercredi 29 octobre 2014 Statut Membre Dernière intervention 9 novembre 2015
16 nov. 2014 à 16:48

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

Réponse 6 / 10

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
16 nov. 2014 à 18:29

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+

Réponse 7 / 10

mimi13580 Messages postés 72 Date d'inscription mercredi 29 octobre 2014 Statut Membre Dernière intervention 9 novembre 2015
16 nov. 2014 à 19:34

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

Réponse 8 / 10

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
17 nov. 2014 à 10:04

Bonjour,

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

Réponse 9 / 10

mimi13580 Messages postés 72 Date d'inscription mercredi 29 octobre 2014 Statut Membre Dernière intervention 9 novembre 2015
17 nov. 2014 à 10:59

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.

Réponse 10 / 10

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
17 nov. 2014 à 12:00

Re,

Offset(8, 0)

: ligne +8, meme colonne

si vous voulez 1 ligne:

Offset(1, 0)

Discussions similaires

Dessiner avec son clavier et avec des lettres

Comment faire le signe de croix (chrétiens) ?

dessin au clavier cannabis

Comment faire le symbole coeur vide/coeur blanc

dessin ASCII

Discussions similaires

Newsletters