Probléme avec NextRow

[Macjade62]

Bonsoir à tous.

J'espére que vous avez passé n bon Week-end
J'ai besoin de vous, et espére une solution,
J'ai un petit bout de code qui ne fonctionne pas cerainement à cause de son écriture.
Range("M10:U43").Select
Sheets("STK-CMER").Select
NextRow = Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=X1PasteValues)
A l'éxécution j'obtiens soit erreur 424, soit instruction attendue?
message Paste Special à échoué

Pouvez vous m'aider, et surtout m'expliquer
Merci d'avance à tous ceux qui ce pencheront sur cette question
Bien à vous

 

[Piboulet]

Re : Probléme avec NextRow

Bonjour
On dirai que tu veux coller qque chose.
Mais as tu copié?? Je ne vois pas de selection.copy...
A+

 

[Macjade62]

Re : Probléme avec NextRow

Bonsoir, PIBOULET merci de ton intêret,

Effectivemnt, je souhaite copier une plage de cellule d'une feuille,
vers une autre feuille à partir de la première cellule vide de la colonne A de cette feuille.
En écrivant le code pour la discussion j'ai omis le Selectio.Copy
mais il est bien dans le code.

A+

 

[Piboulet]

Re : Probléme avec NextRow

Je ferais un truc comme ça:
Range("M10:U43").Select
Selection.Copy
Sheets("STK-CMER").Select
Range("a1").Select

ActiveCell.End(xlDown)(2).Select'(RDV à la première cellule vide de la colonne A!
ActiveSheet.Paste'(collage normal)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False'(collage spécial des valeurs)
A condition que la destination ne soit pas "A2", cela devrait fonctionner.je ne sais pas pourquoi, mais ça bogue si une seule ligneoccupée.
a+

 

[wilfried_42]

Re : Probléme avec NextRow

Range("M10:U43").Select
Selection.Copy
Sheets("STK-CMER").Select
Range("a1").Select
ActiveCell.End(xlDown)(2).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False'(collage spécial des valeurs)

bonjour à tous

les select freinnent enormermement le programme
en une seule ligne un copier/coller sans select

Range("M10:U43").copy destination:= Sheets("STK-CMER").range("A" & range("65000").end(xlup).row+1).pasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[Macjade62]

Re : Probléme avec NextRow

Merci beaucoup, pour vos réponses (PIBOULET, WILFRIED 42)

Je vais mettre en place le code que vous m'avez envoyé.
Ce qui va prendre du temps, car j'ai beaucoup de fiches à traiter,
ce code est destiné à une gestion de stock.
Je me rends compte que j'ai un petit niveau en VBA,
à part l'aide de VBA, y-a-t'il une méthode pour apprendre les finesses de VBA

Bien à vous.

 

[wilfried_42]

Re : Probléme avec NextRow

re:

oui il y a des finesses, au mois de novembre, je ne connaissais pas le VBA, je ne concevais meme pas sont existence (dans excel), la finesse c'est ce forum qui m'a tout appris (merci encore à tous ces intervenant aonymes qui passent du temps à repondre)

 

[Macjade62]

Re : Probléme avec NextRow

Bonsoir, (Wilfried 42)

Je suis d'acord avec vous ce site, me permet d'apprendre beaucoup,
Compte tenu du nombre de pages de ce forum, c'est une mine d'or
Je fait mes recherches à partir des discussions, seulement je suis pris par
le temps.

a bientôt, et encore merci
Bien à vous

 

[Piboulet]

Re : Probléme avec NextRow

Bonsoir le Fil,wilfried_42,Macjade62
VROUMMM......
Un copier/coller en une ligne: fichtre, on part et on s'arrête plus. ça m'interesse beaucoup,mais je bloque régulièrement sur
pasteSpecial Paste
avec un code : erreur de compil attendu fin d'instruction
C'est surprenant que cela bloque là??.
De plus, pour copier coller d'un classeur1/feuille1à un classeur2/feuille2, comment peut s'organiser le code??
Merci de votre aide.
a+

 

[wilfried_42]

Re : Probléme avec NextRow

re:

en combien de lignes tu veux cela lol
bonjour piboulet

aller on essaye : une ligne

workbooks(1).shees("Feuil1").cells.copy destination:=workbooks(2).sheets("feuil2").range("A1").pasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

sinon si tu as des fonctions bizarres, utilise l'enregistreur de macro, il ne fait pas beaucoup de faute de frappe

 

[Pierrot93]

Re : Probléme avec NextRow

Bonjour Macjade62, Piboulet, Wilfried

@Wilfried
ca m'etonnerait que ton code marche en l'état, à ma connaissance on ne peut pas faire de collage spéciale en une seule ligne. Si chez toi ce code marche...

sinon pour copier des valeurs d'un classeur à un autre une autre solution :

Workbooks(1).Sheets(1).Range("A1:B10").Value = Workbooks(2).Sheets(1).Range("A1:B10").Value

bonne journée
@+

 

[wilfried_42]

Re : Probléme avec NextRow

re:

bonjour pierrot

j'en fait un certain nombre de collage speciale, mais de feuille à feuille
de classeur à classeur, pas encore tenté, un paste normal oui, mais special pas encore testé

mais la structure me parraissant logique, pourquoi pas ?

 

[Macjade62]

Re : Probléme avec NextRow

Bonsoir à tous,
bonsoir à Wilfried42, Piboulet et Pierrot93

Excusez moi, je ne me suis pas coupé de la discussion, mais je n'ai pas beaucoup avancé sur mon projet, un déplacement tres urgent !

Par contre, j'ai essayé les codes, et même problème que pour Piboulet,
Erreur compil, instruction attendu.

Comment résoudre cela !

J'ai peut être les yeux plus grand que le cerveau, mon classeur Excel fait environ 12 Mo, peut on le mettre en piéce jointe, pour affiner la discussion, ou faut-il faire un extrait des feuilles du classeur concernées.

Merci de l'intérêt, pour ma question

Bien à vous, macjade62

 

[Pierrot93]

Re : Probléme avec NextRow

Bonjour à tous

les pièces jointes ne peuvent être supérieures à 50k, essaye peut être de placer déjà uniquement le code.

bonne journée
@+

 

[Macjade62]

Re : Probléme avec NextRow

Bonsoir à tous,

Merci Pierrot 93, je te remercie pour cette précision.
Je vais vous préparer le plus explicitement possible les sujets sur lesquels je planche avec les code concernés.
Je ferais cela samedi 14/04, en ce moment je suis d'astreinte 24/24H pour mon boulot et j'ai peu de temps.
Merci de votre patience pour le débutant VBA que je suis
Dommage, je dois vous quitter appel d'urgence en cours
Merci à tous et à demain

Bien à vous Macjade62