Discussion :

[Jeanvaljean44]

Salut le forum,

Je rencontre un ptit souci sur le code ci-après :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Nomenclature.Sheets(1).Range("A6:C" & LastrowNomenclature & ",E6:E " & LastrowNomenclature & "").Copy
Sheets("PiecesAFabriquer").Activate
LastrowPieceAFabriquer = Sheets("PiecesAFabriquer").Range("A1").End(xlDown).Row + 1 
Sheets("PiecesAFabriquer").Range("A" & LastrowPieceAFabriquer).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Message d'erreur apparaissant : erreur définie par l'application ou par l'objet..

Quelqu'un aurait-il une ptite idée sur la question????

@+ Jeanvaljean

[patbou]

bonjour,

une apostrophe en trop ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Nomenclature.Sheets(1).Range("A6:C" & LastrowNomenclature & ",E6:E " & LastrowNomenclature & ").Copy

[Jeanvaljean44]

Je pense que c'est quelque chose comme ça mais, en supprimant celle-ci le pb persiste...

[patbou]

sur quelle ligne as tu l erreur
tes variables sont elles bien valides

[Jeanvaljean44]

C'est bon patbou j'ai trouvé!!!

J'ai un espace qui s'est glissé derrière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

",E6:E "

ça fonctionne,

Merci,

Jeanvaljean