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

 

[Paritec]

Re : copier des lignes sur une nouvelle feuille

Bonjour GA3134 le forum
pour ajouter une feuille

Sheets.Add

a+
papou 🙂

EDIT: Bonjour le voleur de Nom !!! Bonjour Papou-Net, en plus t'as raison il fallait lui renommer la feuille créé , bref merci pour lui.

 

[Papou-net]

Re : copier des lignes sur une nouvelle feuille

Bonjour ga3134, Paritec,

Pour ajouter une feuille en dernière position, et lui donner un nom :

Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Groupe"

Cordialement.

(Moi aussi je suis un papou)

 

[ga3134]

Re : copier des lignes sur une nouvelle feuille

Merci pour la réponse,

J'ai essayé ce code mais mon soucis est comment revenir à la feuille précédente pour copier les données ? car sinon la macro s'exécute dans la nouvelle feuille créée..... vide !

Merci

Ga3134

 

[Paritec]

Re : copier des lignes sur une nouvelle feuille

Re GA3134 Papou-net,
tu rajoutes

sheets("le nom de ta feuille ou il y a les données").select

avant set A et c'est bon
a+
papou 🙂

 

[ga3134]

Re : copier des lignes sur une nouvelle feuille

Re bonjour tous le monde, Papou-Net et Paritec,

La feuille active déclarée en Set A n'a jamais le même nom (extractions de données) sinon il suffisait effectivement de la ré-activer.

En fait mon problème peut se résumer à çà:

Comment une fois la nouvelle feuille créée, revenir à la feuille précédente et retrouver mes données pour les copier ?!

Merci pour votre aide

Ga3134

 

[VINCEGR]

Re : copier des lignes sur une nouvelle feuille

bonjour tous le monde,ga3134, Papou-Net et Paritec,

je vous mets le fichier d'essai car je suis interessé pour création de feuille avec données mais cela me donne feuille vide.😕

merci pour votre aide
VinceGR🙂

 

[Papou-net]

Re : copier des lignes sur une nouvelle feuille

bonjour tous le monde,ga3134, Papou-Net et Paritec,

je vous mets le fichier d'essai car je suis interessé pour création de feuille avec données mais cela me donne feuille vide.😕

merci pour votre aide
VinceGR🙂

Bonsoir VINCEGR,

Si j'ai bien compris ta demande, tu peux essayer en modifiant ton code ainsi :

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

Espérant avoir répondu.

Cordialement.

 

[Papou-net]

Re : copier des lignes sur une nouvelle feuille

Re bonjour tous le monde, Papou-Net et Paritec,

La feuille active déclarée en Set A n'a jamais le même nom (extractions de données) sinon il suffisait effectivement de la ré-activer.

En fait mon problème peut se résumer à çà:

Comment une fois la nouvelle feuille créée, revenir à la feuille précédente et retrouver mes données pour les copier ?!

Merci pour votre aide

Ga3134

Oups, je t'ai squizzé.

Regardes la réponse que j'ai faite à VINCEGR, celà devrait correspondre à ton voeu.

Avec mes excuses.

Cordialement.

 

[VINCEGR]

Re : copier des lignes sur une nouvelle feuille

Bonjour Papou-net,
je viens d'essayer le code mais ne fonctionne pas ne recopie pas la feuille 1 dans feuille "groupe"
voici le résultat
Merci pour ton aide
VinceGR

 

[Paritec]

Re : copier des lignes sur une nouvelle feuille

Bonjour Wincegr Papou-net le forum
pour moi elle recopie toutes les lignes qui sont égale à G
mais tu veux quoi ?
Tu veux copier toute la feuille 1 et la renommer groupe ?
a te lire pour infos car là je plane
a+
papou 🙂

 

[VINCEGR]

Re : copier des lignes sur une nouvelle feuille

Bonjour Paritec,
je souhaite une copie de la feuille.
l'utilisation que j'en aurais c'est que je crée des factures suivant un model avec des liens et je suis obligé actuellement de faire un copier coller de ma feuille de calcul et de faire un copier des valeurs uniquement sinon il me modifie mes calculs.
je voulais un lien vba pour copier la feuille sous un autre nom sans les formules.
si le lien peux me proposer de lui donner le nom ce serait parfait.
merci pour votre aide
VinceGR

 

[Paritec]

Re : copier des lignes sur une nouvelle feuille

Bonjour Wincegr le forum, tu écris en bleu
c'est que je crée des factures suivant un model avec des liens
Pourquoi les liens?
je suis obligé actuellement de faire un copier coller de ma feuille de calcul et de faire un copier des valeurs uniquement sinon il me modifie mes calculs.
C'est des copie de factures que tu veux faire ou de nouvelles factures?
si tu veux faire des nouvelles factures, tu fais un modèle avec les formules et après on te fera une macro qui copie et renomme ta facture comme tu le souhaites, mais avant le modèle.
a+
papou 🙂

 

[VINCEGR]

Re : copier des lignes sur une nouvelle feuille

re paritec,
je veux faire de nouvelles factures, mon fichier a 3 modèle et 1 feuille de saisie et suivant ma facturation j'utilise les différents modèles.
J ai trouvé sur forum une formule qui permet de copier la feuille mais elle copie 1 seule fois après bloquer et copie avec formule et moi je souhaite copie sans formule.
merci
@+
VinceGr

 

[Paritec]

Re : copier des lignes sur une nouvelle feuille

Re Bonjour Wincegr le forum
Ok pour les modèle parfait, maintenant tu travailles sur ta feuille saisie pourquoi faire?
tu dois recopier ce que tu tapes dans tes nouveaux documents? car tes modèles actuels sont sans entête, sans numéro, sans rien quoi et si tu veux que je te fasse un bon boulot il me faut des explications et après ce sera bon
Tu souhaites d'après ce que je vois ajouter dans ta feuille saisie, les
N° FEUILLE SAISIE 1 date début travaux MONTANT FEUILLE 1 date fin travaux les uns en dessous des autres, mais les feuilles copiées tu veux les renommer comment ? et les envoyer dans quel classeur.
a te lire
a+
papou 🙂