Copier coller rapide

[philou]

Bonjour à tous,

La macro présentée ici par Hannoun vient de m'aider à régler un problème que j'avais, Mais... serait il possible de me dire comment faire pour que les données arrivent ( dans ce cas, c'est destiné à la feuil2 ) à partir d'une cellule bien précise.

Exemple : je voudrais que d'office les données arrivent en feuil2, et en partant de le cellule A19.

Un tout grand merci

( cette macro sert à recopier le résultat d'un filtre automatique dans une autre feuille )

Range("A1:G115").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Paste


Philou

 

[PhiBou]

Salut Philou

Quand PhiBou répond à Philou qu'est-ce qu'ils se disent...

Sub Essai()
Range("A1:G115").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A19").Select
ActiveSheet.Paste
End Sub

Bonne après-midi

 

[philou]

De Philou à PhiBou,

J'essaie ta petite histoire, et j'te dis quoi.


A+

Philou

 

[philou]

A Phibou,


Ca marche, I'am very content.

Un grand merci à toi.


( Je suis débutant débutant ).....

Faut bien commencer par des bêtes questions...


A+

Philou

 

[PhiBou]

Re Philou, le Forum

Content de t'avoir dépanné

par contre, je croyais que :

Sheets("Feuil2").Range("A19").Select
ou
Sheets("Feuil2").Cells(19,1).Select

fonctionnaient...

Peut-on me tuyauter ?

Merci d'avance

PhiBou

 

[Jean-Marie]

Bonjour, tout le monde


Pour avoir plus rapide, comme tu as parlé Philou comment faire pour que les données

Sub Essai()
Sheets("Feuil2").Range("A19:G134") =Activesheet.Range("A1:G115").Select
End Sub

Bonne journée

@+Jean-Marie

 

[philou]

A tous,


J'ai mis en oeuvre la solution proposée par Phibou, et ça marche.

Je vais essayer la formule de jean marie ( mais plus maintenant... demain , marre pour aujourd'hui ).

Ceci dit, je dis merci à tous et toutes pour les coups de mains qui se donnent à longueur de journée sur ce forum, Fantastique.

C'est aussi sympa de profiter de macro ( petite et grande ) que certains déposent sur le forum.

Si, et dès que l'occasion se présentera ( en fonction de mes petites connaissances ) je le ferai aussi, et avec le plus grand plaisir.


Philou

 

[PhiBou]

Salut Philou, Jean-Marie, Forum

Jean-Marie, je viens d'essayer ta macro.

Ca marche pas, j'ai le retour d'un booléen (VRAI) sur
toutes les lignes...

@+

 

[Jean-Marie]

Re...

Il suffit de remplacer .Select par .Value

Sub Essai()
Sheets("Feuil2").Range("A19:G134") =Activesheet.Range("A1:G115"). Value
End Sub


Merci Phibou

@+Jean-Marie

 

[PhiBou]

Re, Philou, et Jean-Marie

Impeccable Jean-Marie, je ne connaissais pas...

j'apprends, je note, je note...

Merci

PhiBou