Problème copier coller

[greg06500]

Bonjour à tous,

Voila, j'ai 2 feuilles excel, je voudrais copier les données de la feuille14 des colonnes A à G seulement sur la feuille15 toujours sur les colonnes A à G seulement car j'ai des données dans le colonne H, mais ça ne marche pas.

Voici mon code :

Dim cel As Range
With Feuil14
For Each cel In .Range("A1:G" & .Range("A65536").End(xlUp).Row)
If cel.Offset(0, 6) = TextBox3.Text Then
 Feuil14.Select
 cel.Range("A2:G65000").Select
 Selection.Copy
 Feuil13.Activate
 Range("A65000").End(xlUp).Offset(1, 0).Select
 ActiveSheet.Paste
 Application.CutCopyMode = False
 End If
 Next
 End With

Quelqu'un aurait il une idée.

Merci d'avance

GREG

 

[Cousinhub]

Re : Problème copier coller

Bonjour greg,
je ne comprends pas la boucle, car quoi qu'il arrive tu copies toute la zone, donc pas besoin de test, ni de boucles?????

tu peux alors remplacer par :

Range("A2:G65000").Copy Sheets("Feuil13").Range("A65000").End(xlUp).Offset(1, 0)

sur une seule ligne

Edit, pour libérer de la mémoire :
Range("A2:G"& Range("A65000").End(xlUp).Row).Copy .....

 

[greg06500]

Re : Problème copier coller

Salut,

Merci beaucoup pour ta réponse j'ai testé ce week et ça fonctionne.

Merci encore

@+

GREG