Copie d'une plage variable vers une autre feuille à partie de la derniere cellule

[Macjade62]

Bonjour,

Je suis tout nouveau sur le forum, et j'ai besoin d'aide.
Je commence utiliser le VBA pour Excel
Je developpe une petite application Excel pour facturation et stocks.
J'essaie de faire un report d'information entre deux feuilles d'un classeur,
avec un petit module VBA, rédigé comme suit

Sheets("Facture").Select
Range("P21").Currentregion.Copy

Sheets("Sortie stock").Select
NextRow= Range("A65536").End(x1up).Row+1
NextRow.Select
Selection.PasteSpecial Paste:=X1PasteeValues, Opération:=X1None,
SkipBlanks:=False, Transpose:=False

Lors de l'éxécution j'ai une erreur 424 au niveau de la ligne NextRow.Select

Pouvez vous m'aider ! Merci d'avance

J'utilise PC avec Xp et Excel 2003

 

[Catrice]

Re : Copie d'une plage variable vers une autre feuille à partie de la derniere cellule

Bonsoir,

L'erreur vient du fait que NextRow est une valeur (Num ligne + 1)
On ne peut pas faire un select sur un nombre mais sur une Range.
Tu pourrais ecrire plutot :
NextRow= Range("A65536").End(x1up).offset(1,0)
NextRow.Select

Essaye le code ci-dessous.
Il evite les Select, ça peut aller plus vite ;-)

Sub test()
Sheets("Facture").Range("P21").CurrentRegion.Copy
Sheets("Sortie stock").Range("A65536").End(x1up).Offset(1, 0).PasteSpecial Paste:=X1PasteeValues
End Sub

 

[Macjade62]

Re : Copie d'une plage variable vers une autre feuille à partie de la derniere cellule

Bonsoir,

Merci Catrice pour cette réponse aussi rapide
et merci, pour la correction de mon code.
J'ai modifié en fonction de ton code et aprés essais tout fonctionne comme je souhaitais.
Cette forme d'entraide est géniale.
Bonsoir et à bientôt sur le forum