Copier coller rapide

P

PhiBou

Guest

• 8 Août 2003

• #2

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

 

Vote positif 0 Vote négatif

P

philou

Guest

• 8 Août 2003

• #3

De Philou à PhiBou,

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


A+

Philou

 

Vote positif 0 Vote négatif

P

philou

Guest

• 8 Août 2003

• #4

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

 

Vote positif 0 Vote négatif

P

PhiBou

Guest

• 8 Août 2003

• #5

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

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 8 Août 2003

• #6

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

 

Vote positif 0 Vote négatif

P

philou

Guest

• 8 Août 2003

• #7

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

 

Vote positif 0 Vote négatif

P

PhiBou

Guest

• 8 Août 2003

• #8

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...

@+

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 8 Août 2003

• #9

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

 

Vote positif 0 Vote négatif

P

PhiBou

Guest

• 8 Août 2003

• #10

Re, Philou, et Jean-Marie

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

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

Merci

PhiBou

 

Vote positif 0 Vote négatif