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

[robpellan52]

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é

 

[Phil69970]

Bonjour @robpellan52 et bienvenu sur XLD

J'ai pas vu ton fichier

En général on peut se passer des select et activate .... mais à l'aveugle c'est plus compliqué....

 

[oguruma]

bonsoir, hummm ça sent l'enregistreur de macro ça
déjà un début de code propre

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

Selection.Copy

devient

Range("PLAGE").Copy

"PLAGE" = Nom de champ
et

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

pourrait être

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

 

[robpellan52]

Merci ca fonctionne

 

[robpellan52]

Bonjour @robpellan52 et bienvenu sur XLD

J'ai pas vu ton fichier

En général on peut se passer des select et activate .... mais à l'aveugle c'est plus compliqué....

merci j ai resolu mon probleme