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

robpellan52 · 26 Décembre 2023

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é

oguruma · 26 Décembre 2023

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

Phil69970 · 26 Décembre 2023

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 · 26 Décembre 2023

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

robpellan52 · 26 Décembre 2023

Merci ca fonctionne

robpellan52 · 26 Décembre 2023

Phil69970 à dit:
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

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

robpellan52

XLDnaute Nouveau

oguruma

Phil69970

XLDnaute Barbatruc

oguruma

XLDnaute Occasionnel

robpellan52

XLDnaute Nouveau

robpellan52

XLDnaute Nouveau

Discussions similaires