Transfert de ligne dans une autre feuille

[Mimi]

Bonjour à tous,
Voila dans mon fichier, je recherche à transferer la zone en gris dans la feuil3
à partir de la cellule A4, j'ai réussi pas sans mal à fabriquer une formule, mais elle
transfere que la premiere ligne et pas le prix
Ensuite je fais plusieurs transferts dans la journée, et il faudrait que sa se mettre à la suite en feuil3
D'avance je vous remercie pour votre aide
Michel

 

[néné06]

Re : Transfert de ligne dans une autre feuille

Bonjour Michel,

Regardes cet exemple si il te convient ?

A+

René

 

[Mimi]

Re : Transfert de ligne dans une autre feuille

Bonjour René,
Je pense que sa devrait aller, je vais tester sa de suite
Merci et à bientôt
Michel

 

[Dranreb]

Re : Transfert de ligne dans une autre feuille

Bonjour.
Comme je l'ai écrit différemment je le montre:

Sub CopieALaSuite()
Feuil18.Cells(Feuil18.UsedRange.Rows.Count + 1, 1).Resize(4, 6).Value = Feuil1.[D16:I19].Value
Feuil1.[D16:I19].ClearContents
End Sub

 

[Mimi]

Re : Transfert de ligne dans une autre feuille

Bonjour Dranreb,
Ta formule me copie le texte en ligne 76 de la feuil18 au lieu du commencement ligne 4
Merci
Michel

 

[Mimi]

Re : Transfert de ligne dans une autre feuille

re Bonjour à tous,

Merci pour vos réponse.
C'est possible de faire la même chose pour le bouton35 mais pour le tableau 2, et le bouton 36 pour le tableau 3
Merci

 

[Dranreb]

Re : Transfert de ligne dans une autre feuille

Ta formule me copie le texte en ligne 76 de la feuil18 au lieu du commencement ligne 4

Oui j'avais vu, c'est parce que ce n'est pas complètement vide tout ça. Supprimer d'abord un coups les lignes 4:76

Alors s'il y a plusieurs tableaux à empiler on ne peut plus utiliser UsedRangee. Plutôt:

Sub CopieALaSuite()
Const C = 1
Feuil18.Cells(Feuil18.Cells(65536, C).End(xlUp).Row + 1, C).Resize(4, 6).Value = Feuil1.[D16:I19].Value
Feuil1.[D16:I19].ClearContents
End Sub

Bonsoir Néné

 

[néné06]

Re : Transfert de ligne dans une autre feuille

Salut Michel,

Regardes cette version ?

A+

René

Edit:Bonsoir Dranreb

 

[Mimi]

Re : Transfert de ligne dans une autre feuille

Bonjour René, Dranreb,
Merci de m'avoir aidé dans mon projet, ça me convient très bien
Encore merci
Michel

 

[Mimi]

Re : Transfert de ligne dans une autre feuille

Bonjour René et à tous,
Voila j'ai adapté ce que tu m'as fait dans le fichier que j'avais joint allégé pas de souci, je l'ai adapté au mien et le problème c'est que dans les 4 lignes (D:16 et D:19, j'ai mis la formule en D18, D19) il i a une formule et là il me copie les 4 lignes au lieu de ce qui est rempli.
Je joint le fichier avec la formule.
D'avance merci

Michel