Copier Coller en vba

lapix

XLDnaute Occasionnel

• 11 Novembre 2006

• #2

Re : Copier Coller en vba

bonjour,

La reference VBA donne

Worksheets("Sheet1").Range("A1😀4").Copy _ destination:=Worksheets("Sheet2").Range("E5")


comme exemple. Peut etre cela correspond a ton besoin

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Novembre 2006

• #3

Re : Copier Coller en vba

Bonjour E et F, Lapix

Peut être une autre approche avec un collage spécial, si les lignes des cellules de destination changent, la première ligne de la feuille 2 contient des titres !!!

Code:

Sheets("Feuil1").Range("A1").Copy
Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial xlValue
Sheets("Feuil1").Range("G4:G5").Copy
Sheets("Feuil2").Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial xlValue, , , True

Bon week end
@+

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 11 Novembre 2006

• #4

Re : Copier Coller en vba

un grand merci a vous deux

Donc pierrot93 , il semblerait donc qu'on est oblige de copier et coller par cellules ou bloc contigue !!? les un apres les autres !!
je cherchais desesperement a le faire en une seule ligne de macro , je pensais que c etait possible , d'ou ma question

je fais les essais ....................
a toute
E et F

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 11 Novembre 2006

• #5

Re : Copier Coller en vba

re ^pierrot93

Sheets("Feuil1").Range("A1").Copy
Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial xlValue
fonctionne ,
mais me renvoie REF! dans la cellule coller , car la valeur est le resultat d'une formule
(je voudrais copier le contenu (valeurs))
as- tu une idée ?
merciiii d avance

E et F

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Novembre 2006

• #6

Re : Copier Coller en vba

Re E et F

Sauf erreur de ma part, non la copie n'est pas possible sur des selections multiples même en VBA, comme le dit d'ailleurs la boite de dialogue quand on essaye.

Bonne soirée
@+

 

Vote positif 0 Vote négatif

malcy45

XLDnaute Occasionnel

• 11 Novembre 2006

• #7

Re : Copier Coller en vba

coucou tout le monde,
sans etre un fortiche, quand je souhaite comprendre un code, je fais une nouvelle macro et j'execute ce que je recherche et je reouvre la macro fait modifier et regarde le code employé
En faisant cela pour le copiage sans valeur, j'ai trouvé ça.
J'espère que ca te sera utile :

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False

Cliquez pour agrandir...

amities
rémi

 

Vote positif 0 Vote négatif

malcy45

XLDnaute Occasionnel

• 11 Novembre 2006

• #8

Re : Copier Coller en vba

re
je viens de trouver ca dans un post ulterieur si tu sais le decrypter, ca doit le faire

https://www.excel-downloads.com/threads/copier-coller-vba.40726/
re amities 😉
remi

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 11 Novembre 2006

• #9

Re : Copier Coller en vba

VOILA vous avez trouvez !!!

malcy45 j ai supprimé les "selection" de ta ligne , et tout est OK
comme ca c est bien le contenu qui est coller

Private Sub CommandButton1_Click()
Sheets(1).Range("C3").Copy
Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(1).Range("Q19").Copy
Sheets(2).Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(1).Range("R19").Copy
Sheets(2).Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

un grand merci à vous 3
E et F

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Novembre 2006

• #10

Re : Copier Coller en vba

Re Rémi, E et F

Rémi, ici la problèmatique est de copier des sélection multiples, soit des plage non adjacentes, et a priori Excel ne le veux pas, ni en live ni pas le code.

Le lien que tu nous as donné permet de copier une plage vers une autre, mes les plages de cellules se touchent.

Bonne fin de journée
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Novembre 2006

• #11

Re : Copier Coller en vba

Re

mon code initial avait un bogue, il fallait lire

Code:

Sheets("Feuil1").Range("A1").Copy
Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, , , True
Sheets("Feuil1").Range("G4:G5").Copy
Sheets("Feuil2").Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, , , True

Désolé, j avais testé avec des données pas des formules, ce qui fait que ca marchait.

Rémi ne tiens pas compte de ce que j ai dit precedemment, j'ai été un peu vite ....

Autant pour moi...

Bonne fin de soirée
@+

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 11 Novembre 2006

• #12

Re : Copier Coller en vba

RE PIERROT93

desolé ??? ha non !
effectivement je n'avais pas tout expliqué correctement!!
je viens de faire l essais avec ta macro
ca va au poil !!!!
plus propre et plus court

Merci beaucoup sincerement
bonne soirée

E et F

 

Vote positif 0 Vote négatif

M

Moa

XLDnaute Occasionnel

• 11 Novembre 2006

• #13

Re : Copier Coller en vba

Salut à tous !

Une autre macro qui fait la même chose, mais en consommant moins de ressource :

Sub Recop()
Dim i As Integer
i = Sheets(2).Range("B65535").End(xlUp).Row + 1
Sheets(2).Range("B" & i) = Sheets(1).Range("A1").Value
Sheets(2).Range("C" & i) = Sheets(1).Range("G4").Value
Sheets(2).Range("D" & i) = Sheets(1).Range("G5").Value
End Sub

Maintenant, si tu avais beaucoup plus de cellules à recopier, on peut gagner en écriture, tel que :

Sub Recop()
Dim i As Integer
i = Sheets(2).Range("B65535").End(xlUp).Row + 1
With Sheets(2)
.Range("B" & i) = Sheets(1).Range("A1").Value
.Range("C" & i) = Sheets(1).Range("G4").Value
.Range("D" & i) = Sheets(1).Range("G5").Value
End With
End Sub

Et si tu devais recopier les valeurs de ta feuille 1 dplusieurs fois, il est possible de déclarer dans des variables, tes 3 valeurs de départ, afin d'éviter des longues lignes de code.




@ +++

ChrisOne

 

Dernière édition: 11 Novembre 2006

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 11 Novembre 2006

• #14

Re : Copier Coller en vba

bonjour MOA
de mieux en mieux
vraiment bien ça , bravo !!et merci
E et F

 

Vote positif 0 Vote négatif

M

Moa

XLDnaute Occasionnel

• 11 Novembre 2006

• #15

Re : Copier Coller en vba

Re E et F !

La suite de ce que je te disais (Coupure Internet oblige)...Héhé !

Sub Recop()
Dim i As Integer
Dim Vala, Valb, Valc As Variant

i = Sheets(2).Range("B65535").End(xlUp).Row + 1
Vala = Sheets(1).Range("A1").Value
Valb = Sheets(1).Range("G4").Value
Valc = Sheets(1).Range("G5").Value

With Sheets(2)
.Range("B" & i) = Vala
.Range("C" & i) = Valb
.Range("D" & i) = Valc
End With

End Sub

Tu remarqueras que j'ai déclaré les 3 variables en "Variant", cela te permet d'avoir soit du texte ou des chiffres dans tes cellules à recopier.

Cei dit, quand tu déclares une variable, si tu ne mets pas son type, Excel, par défaut, lui accorde "Variant".

@ +++

ChrisOne

 

Vote positif 0 Vote négatif