Accélérer: VBA copier/coller

JNP

XLDnaute Barbatruc

• 11 Janvier 2011

• #2

Re : Accélérer: VBA copier/coller

Bonsoir Titine06 ,
Peut-être

Code:

Dim Cellule As Range, I As Integer
I = 0
With Workbooks("fusionééééééééééééééééé.xlsx").Sheets("Feuil1")
For Each Cellule In .Range("E2:E" & .Range("E2").End(xlDown).Row)
Workbooks("Test.xls").Sheets("Feuil2").Range("H3").Offset(I, 0) = Cellule.Value
I = I + 1
Next
End With

mais non testé, vu que pas de fichier test fourni ...
Bonne soirée

 

Vote positif 0 Vote négatif

T

titine06

XLDnaute Junior

• 11 Janvier 2011

• #3

Re : Accélérer: VBA copier/coller

Bonsoir JNP,

Merci beaucoup, ca marche direct rapide et clair désolés de pas avoir joint un fichier !
J'en mettrai les prochaines fois

A bientot

Titine

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 11 Janvier 2011

• #4

Re : Accélérer: VBA copier/coller

Bonsoir, salut JNP ,
Faut se soigner quand on éternue comme ça...

Code:

Dim c As Range
With Workbooks("fusionééééééééééééééééé.xlsx").Sheets("Feuil1")
Set c = .Range("E2:E" & .Range("E65000").End(xlUp).Row)
End With
c.Copy Workbooks("Test.xls").Sheets("Feuil2").Range("H3")

A+
kjin

 

Vote positif 0 Vote négatif

T

titine06

XLDnaute Junior

• 11 Janvier 2011

• #5

Re : Accélérer: VBA copier/coller

Bonjour Kjin,

Super code, merci beaucoup !! Juste une chose, j'aimerai que le copier soit uniquement en valeur. Comment dois je adapter ton code ?

MErcii !!

Titine

 

Dernière édition: 11 Janvier 2011

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 11 Janvier 2011

• #6

Re : Accélérer: VBA copier/coller

Salut

ne copie que les valeurs

Code:

   Dim tablo

  Windows("fusionééééééééééééééééé.xlsx").Activate
  With Sheets("Feuil1")
    tablo = .Range("E2", .Range("E65000").End(xlUp))
    Workbooks("Test.xls").Activate
    Sheets("Feuil2").Range("H3:H" & UBound(tablo) + 2) = tablo
  End With

 

Vote positif 0 Vote négatif

T

titine06

XLDnaute Junior

• 11 Janvier 2011

• #7

Re : Accélérer: VBA copier/coller

Coucou,

merci pour ta solution, mais je vais rester sur celle de Kjin.

Je souhaite juste modifier:
Copy Workbooks("Test.xls").Sheets("Feuil2").Range("H3")

pour que ca copie uniquement les valeurs.


Merci d'avance !!

Titine

 

Vote positif 0 Vote négatif

T

titine06

XLDnaute Junior

• 12 Janvier 2011

• #8

Re : Accélérer: VBA copier/coller

Bonsoir !!


Merci Jean-Marcel, ca marche très bien !

Mais je voudrais revenir sur le code de Kjin, car j'aime beaucoup l'idée de définir préalablement ce qui va être copié:

c.Copy Workbooks("Test.xls").Sheets("Feuil2").Range("H3")

J'aimerai savoir si il existe l'équivalent de ".Copy" qui copierait uniquement les valeurs. J'ai cherché sur le web mais je n'ai rien trouvé. J'ai essayé .Value et d'autre cobinaison mais rien ne passe...


Merci d'avance

Bonne soirée

Titine

 

Vote positif 0 Vote négatif