copier des lignes sur une nouvelle feuille

[ga3134]

Bonjour à tous,

J'ai récupéré une macro sur le forum qui me permet de copier des lignes en fonction d'une valeur dans une colonne.
je voudrais copier le résultat de ma recherche dans une nouvelle feuille qui n'est pas encore créée.
Je sais faire si la feuille existe, mais pas la créer !

Voici la macro:

sub copieligne()

dim A,B as worksheet
dim i,j as integer

set A=activesheet
set B=sheets("Groupe")
j=2
for i=1 to A.range("A65536").end(xlup).row
if range("A"&i)="G" then
A.rows(i).copy destination:=B.range("A" & j)
application.cutcopymode=false
j=j+1
end if
next i
end sub

Mon soucis est que la feuille 'Groupe' n'existe pas au lancement de la macro !

Quelqu'un pourrait-il me communiquer le bout de code qu'il me manque pour créer cette nouvelle feuille avant la copie des données ?

Par avance merci de votre aide

Cordialement

Ga3134

 

[VINCEGR]

Re : copier des lignes sur une nouvelle feuille

Re Paritec,
mon nom est VinceGR et non winceGr🙂ma feuille de saisie rempli via des formules sur les différents modèles les champs de facture que j'imprime sur papier en-tête.
ce que je souhaite c'est une copie de la feuille 'modèle 1' si celle-ci de remplie sans les formules et lui donné que nom le n° de la cellule B5 de la feuille de saisie.
@+
VinceGr

 

[Paritec]

Re : copier des lignes sur une nouvelle feuille

Re Vincegr le forum
tu peux me décoder cela
ce que je souhaite c'est une copie de la feuille 'modèle 1' si celle-ci de remplie sans les formules et lui donné que nom le n° de la cellule B5 de la feuille de saisie.
Toi tu sais ce que tu veux obtenir mais expliques le avec des termes compréhensible car là j'ai du mal si celle-ci de remplie sans les formules ??
a te lire
On va y arriver
a+
Papou 🙂

 

[VINCEGR]

Re : copier des lignes sur une nouvelle feuille

Re Paritec,
ok ok
je remplis la feuille "saisie", les feuilles "modèle 1-2-3" sont remplis suivant suivant les données de la feuille de saisie (une saisie est égal a un modele de facture utiliser) quand ma saisie est terminée, ma facture est terminée sur le modèle (1 ou 2 ou 3).
dans chaque modèle, je souhaiterais une commande qui me copie ce modèle "compléter" avec comme nom le numéro de ma facture (soit 101....).
je joins une ebauche avec vba mais me recopie aussi les formules.😕
merci
@+
VinceGR

 

[Paritec]

Re : copier des lignes sur une nouvelle feuille

Re Vincegr, le forum
bon voilà ton fichier avec la copie de la feuille modèle dans un nouvel onglet que j'ai appelé Nouvelle Facture puisque ce matin je t'ai demandé comment tu veux la nommer et j'attends toujours la réponse.
Donc tu as un bouton quand tu cliques dessus tu copies le modèle rempli par tes formules.
Après pour renommer exporter et autre si tu ne donnes pas de renseignements bah j'ai pas de boule de cristal
a+
papou 🙂

 

[Paritec]

Re : copier des lignes sur une nouvelle feuille

Re Vincegr le forum,
une deuxième version a tester et me dire
a+
Papou 🙂

 

[Paritec]

Re : copier des lignes sur une nouvelle feuille

Re Vincegr, le forum
pardon mais j'avais pas vu pour le numéro de facture tu l'as noté avant mais je ne l'avais pas bien lu en fait !!!! (pas beau d'accuser pour rien)
bref voilà la version 3 avec le numéro comme tu veux je pense
a+
Papou 🙂

 

[VINCEGR]

Re : copier des lignes sur une nouvelle feuille

re Paritec,
je souhaite nommer l'onglet avec le n° de facture cellule b5 (101....) 😀
merci
@+
VinceGR🙂

 

[Paritec]

Re : copier des lignes sur une nouvelle feuille

Re Vincegr
oui tu as la version avec cela dans le post 21 deux post avant en fait, et j'ai rajouté aussi le T ou G enfin le type de facture
a+
Papou 🙂
EDIT:bonjour Jean Marie, grognon aujourd'hui?

 

[Staple1600]

Re : copier des lignes sur une nouvelle feuille

Bonjour


Juste pour éviter de se mélanger les pinceaux

VINCEGR
Normalement, il est conseillé de créer son propre fil de discussion
plutôt que de poster sa question dans un fil ouvert par une autre personne

(cela est stipulé dans Lien supprimé)


Pour revenir à la question initiale
Pour créer une feuille et la nommer: une seule ligne peut suffire

Sub a()
Sheets.Add.Name = "TOTO"
End Sub

PS: bonjour Paritec, non pas grognon, mais un fil dans un fil dans un fil
cela finit par faire une pelote de fils.

 

[VINCEGR]

Re : copier des lignes sur une nouvelle feuille

re Paritec et Staple1600,
je vous remercie pour votre aide et le résultat va au dela de mes attentes 😀
je prends note et serait attentif à ne pas poser une question sur une discussion d'un autre internaute.
je souhaite respecter au mieux les membres et la charte du site
merci encore et bonne fin de journée 🙂
au plaisir de vous lire
@+
VinceGR

 

[ga3134]

Re : copier des lignes sur une nouvelle feuille

Bonjour à tous,

Je reviens vers vous pour ce sujet:

La macro de PAPOU-NET fonctionne nickel. Il suffit de supprimer la ligne 'Sheets("Groupe").Select' au dessus de End If. Sinon, seule la première ligne est recopiée.

Si j'ai une deuxième feuille existante sur laquelle il y a aussi des données à recopier, selon même critère, sur la feuille (en dessous des données venant d'être copiées) récemment créée et nommée 'Groupe', quelle est l'instruction qu'il me faut utiliser car j'ai une erreur puisqu'il ne peut pas y avoir 2 feuilles avec le même nom ?

Merci encore pour votre aide

Très cordialement

Ga3134

PS: Je voudrais automatiser cette recopie avec toutes les feuilles présentes dans le classeur en faisant la même manip autant de fois qu'il y a de feuilles et stocker toutes les données sur la même feuille 'Groupe' les unes en dessous des autres. Le souci, pour moi ! est que chaque fichier extrait n'a pas le même nombre de feuilles...

 

[Paritec]

Re : copier des lignes sur une nouvelle feuille

Bonjour Ga3134,
Tu pourrais remettre la macro ou le fichier STP car le post a été squaté par Vincegr et perso je ne la retrouve pas.
Ou un fichier ce serait encore mieux !!!!!!!
dans cette attente
a+
papou 🙂

 

[ga3134]

Re : copier des lignes sur une nouvelle feuille

Bonjour Paritec,

Ci-joint la macro en question:

Sub copieligne()

Dim A, B As Worksheet
Dim i, j As Integer

Set A = ActiveSheet
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Groupe"
Set B = Sheets(Sheets.Count)
A.Activate
j = 2
For i = 1 To A.Range("A65536").End(xlUp).Row
If Range("A" & i) = "G" Then
A.Rows(i).Copy Destination:=B.Range("A" & j)
Application.CutCopyMode = False
j = j + 1
'Sheets("Groupe").Select
End If
Next i
End Sub

Merci pour ta réponse rapide et merci encore de m'aider

Très cordialement

Ga3134

 

[Paritec]

Re : copier des lignes sur une nouvelle feuille

Re bonsoir Ga3134 le forum
tu parles de plusieurs feuilles que tu veux transférer les une en dessous des autres c'est bien cela?
Et tu précises que la feuille groupe peut exister c'est bien cela?
Dans ton classeur tu as donc x feuille + la seule feuille groupe dans laquelle tu veux toutes les lignes contenant G je crois?
a+
Papou 🙂

 

[Paritec]

Re : copier des lignes sur une nouvelle feuille

Bonsoir ga3134 le forum
voilà un fichier exemple en document joint
essayes et dis moi
a+
papou 🙂