copier coller et effacer sous VBA

[le plessis]

Re,
mon nouveau petit pbl :
Je désire copier les données de mon bon de commande dans deux fichiers et les effacer pour retrouver un bon de commande vierge. ci dessous mon code
Sub envoicommande()
'
' envoicommande
ActiveSheet.UsedRange.Rows("3:" & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Copy
Worksheets("demande outillage").Select
Range("a5").Select
ActiveSheet.Paste
ActiveSheet.UsedRange.Rows("3:" & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Copy
Worksheets("EQ 1").Select
Range("a5").Select
ActiveSheet.Paste
Worksheets("ordre commande").Select
ActiveSheet.UsedRange.Rows("3:" &ActiveSheet.UsedRange.Rows.Count).Select
Selection.ClearContents
Range("a5").Select

End Sub
msg erreur exec "9" indice en dehors de la plage
si qql a une idée

 

[Pierrot93]

Re : copier coller et effacer sous VBA

Bonjour,

quelle ligne bogue ??? sinon essaye peut être comme ceci :

With Rows("3:" & ActiveSheet.UsedRange.Rows.Count)
    .Copy
    Worksheets("demande outillage").Paste Range("A5")
    .Copy
    Worksheets("EQ 1").Paste Range("A5")
    .ClearContents
End With

bonne soirée
@+

 

[le plessis]

Re : copier coller et effacer sous VBA

Bsr,
c'est cette ligne qui bugue :
Worksheets("ordre commande").Select
ActiveSheet.UsedRange.Rows("3:" &ActiveSheet.UsedRange.Rows.Count).Select
Selection.ClearContents
Range("a5").Select
je vais essayé ton code.
D'avance merci pour ton aide
le plessis

 

[Pierrot93]

Re : copier coller et effacer sous VBA

Bonjour,

vérifie bien le nom de la feuille, espace et accentuation doivent être respectées....

bonne journée
@+

 

[le plessis]

Re : copier coller et effacer sous VBA

Je viens d'essayer ; cela bug mais je crois savoir pourquoi.
Merci de l infos.
A+😉

 

[le plessis]

Re : copier coller et effacer sous VBA

Re
voilà le code que j'ai fgais, faute de mieux :

Range("A5").CurrentRegion.Select
Selection.Copy
Sheets("Demande outillage").Select
Range("A5").Select
ActiveSheet.Paste
Sheets("EQ 1").Select
Range("A5").Select
ActiveSheet.Paste
Sheets("ordre commande ").Select
Range("A5").CurrentRegion.Select
Selection.ClearContents
Range("A5").Select
Cela marche ; la commande "currentregion" était pour mon cas ce qui fallait.
Mais je garde ton code pour autre chose en attente.
Merci encore 😉
le plessis