Copier, effacer et coller à la suite
Résolu
mimi13580
Messages postés
72
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
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
- Historique copier coller - Guide
- Style d'écriture a copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
10 réponses
Bonjour,
code du bouton (hors formule num lot).
Par contre pourquoi une formule somme pour numero de lot ??????
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
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.
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.
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+
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+
Re,
fichier modifie, positionnement fiche ajoutee un aleatoire
https://www.cjoint.com/?DKqqFIW28UJ
A+
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
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
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
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+
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+
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
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