copier des données d'une feuille à une autre

Question

Bonjour, 

je d&#233;veloppe actuellement une base de donn&#233;es sous excel et je d&#233;sire copier des donn&#233;es &#224; partir d'une feuille pour les coller dans une autre feuille &#224; la suite des donn&#233;es d&#233;j&#224; dessus.

Cette derniere feuille regroupe tous les noms de la base. J'ai essay&#233; toutes les methodes que j'ai vu mais elle ne semble pas march&#233; chez moi.

Je pr&#233;cise que j'utilise un bouton &#224; partir d'une userform pour transf&#233;rer les donn&#233;es.

Le code qui marche pas est de la forme

Sub histo_click()
Application.ScreenUpdating = False
Sheets("Feuil1").Range("B2:D65536").Copy
ActiveSheet.Paste Destination:=Sheets("Feuil2").Range("A1").End(xlDown).Offset(1, 0)
End Sub

Merci d'avance pour votre aide.

mortalino · Answer

Salut,

essai de modifier certains termes :

Sub histo_click()
Application.ScreenUpdating = False
Sheets("Feuil1").Range("B2:D65536").Copy
Sheets("Feuil2").Range("A1").End(xlDown).Offset(1, 0).Select
Selection.Paste
Application.ScreenUpdating = True
End Sub

Dis moi si ça le fait, 

@++
Mortalino

cs_BaM_BaM · Answer

merci de repondre si vite.

par contre j'ai une erreur 438
propri&#233;t&#233; ou m&#233;thode non g&#233;r&#233;e par cet objet

j'ai vraiment cherch&#233; comment faire depuis 2 jours et ca marche toujours pas, je comprend vraiment pas pourquoi.

mortalino · Answer

Sub histo_click()
Application.ScreenUpdating = False
Sheets("Feuil1").Range("B2:D65536").Copy
Sheets("Feuil2").Range("A1").End(xlDown).Select  'modifie ici
Offset(1, 0).Select                              'et là
Selection.Paste
Application.ScreenUpdating = True
End Sub

ca devrait le faire.

Tiens moi au courant !

mortalino

cs_BaM_BaM · Answer

j'ai une erreur de compilation sur le offset

sub ou fonction non d&#233;finie

est-que ca veut dire que je dois le d&#233;finir comme variable?

mortalino · Answer

Autant pour moi, remplace Offset(1, 0).Select
par ActiveCell.Offset(1, 0).Select
c'est une propriété, il faut lui indiqué à partir de quoi il se déplace.

Là ... ca devrait le faire (du moins je l'espère)

Mortalino

cs_BaM_BaM · Answer

bon..
j'ai chang&#233; un peu mon code et maintenant j'ai fais

Sub histo_click()

Application.ScreenUpdating = False
Sheets("Feuil1").Range("A2:Q2", [A2:Q2].End(xlDown)).Copy
Sheets("Feuil2").Range("A2").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.Paste
Application.ScreenUpdating = True

End Sub

Il fait bien le copier mais quand il s'agit de coller les infos sur l'autre page il s'arr&#234;te et me fait l'erreur 1004 : la m&#233;thode select de la classe range a &#233;chou&#233;.

Je comprend pas j'ai d&#233;j&#224; fait plusieurs macros de cette fa&#231;on pourquoi ca marcherait pas avec ma form sous VBA??

Merci Mortalino pour l'aide aussi

cs_BaM_BaM · Answer

C'est bon j'ai trouv&#233; et ca marche y avait juste quelques arangements &#224; faire sur ton code.

Merci beaucoup Mortalino d'avoir passer du temps sur mon code.

mortalino · Answer

De rien,
&#231;a fait plaisir de trouver soi m&#234;me.


Bon courage pour la suite.


@ ++

  Mortalino

Copier des données d'une feuille à une autre

8 réponses

Discussions similaires