XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur

robpellan52

XLDnaute Nouveau
Bonjour

J'ai des données contenues dans un onglet ( nom de onglet est AUTO )et je veux copier par macro ces données vers un autre onglet ( nom de cet onget est DATABASE)

Code utilisé et qui ne fonctionne pas :

Sheets("Auto").Range("A4:I4").Select

Selection.Copy
Sheets("database").Select
Range("a1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Auto").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False


Au moment de l'exécution de cette macro je recois un message d'erreur
Erreur d'exécution 1004
La méthode Select de la classe range a échoué
 
Solution
bonsoir, hummm ça sent l'enregistreur de macro ça ;)
déjà un début de code propre
Code:
Sheets("Auto").Range("A4:I4").Select

Selection.Copy

devient
VB:
Range("PLAGE").Copy

"PLAGE" = Nom de champ
et

Code:
Range("a1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

pourrait être

Code:
Range("DESTINATION").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

DESTINATION = Nom de champ

Ce n'est pas la solution Full 100 % mais tu peux t'en inspirer et consulter les codes postés sur le Forum il y a matière à te dépanner.
Exemple si tu prends le mien "RTV :: Range To Value" tu as...

oguruma

XLDnaute Occasionnel
bonsoir, hummm ça sent l'enregistreur de macro ça ;)
déjà un début de code propre
Code:
Sheets("Auto").Range("A4:I4").Select

Selection.Copy

devient
VB:
Range("PLAGE").Copy

"PLAGE" = Nom de champ
et

Code:
Range("a1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

pourrait être

Code:
Range("DESTINATION").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

DESTINATION = Nom de champ

Ce n'est pas la solution Full 100 % mais tu peux t'en inspirer et consulter les codes postés sur le Forum il y a matière à te dépanner.
Exemple si tu prends le mien "RTV :: Range To Value" tu as du code de recopie de formules en valeur par exemple et d'autres contributeurs chevronnés du Forum ont aussi déposé du code de ce genre :).... un peu de spéléo ;)
 

Discussions similaires

Statistiques des forums

Discussions
312 866
Messages
2 093 032
Membres
105 615
dernier inscrit
fm74