Passer à la ligne suivante

Bonjour, je suis débutante en ce qui concerne Excel !

J'ai créer une macro qui me permet d'enregistrer des montants d'une feuille d'un classeur et de les transférer dans un tableau qui se trouves sur une autres feuille.

Voici la macro affecter

Sub Save()

'

' Save Macro

'

'

Range("K21:P21").Select

Selection.Copy

Sheets("Journal des ventes Nov").Select

Range("A30").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Rows("31:31").Select

End Sub

L'enregistrement s'effectue toujours de A30 à F30, je voudrais que le prochain enregistrement s'effectue en A31:F31 tout en sauvegarder l'enregistrement sur A30,F30 et ainsi de suite

Bonjour

c'est plus rapide

Bonsoir,

Ecrit ainsi je commencerais à trouver le code lisible !

Sub Save()
    Worksheets("Journal des ventes Nov").Range("A30:F30").Value = ActiveSheet.Range("K21:P21").Value
End Sub

Code que le machin enregistré ne produira jamais...

Il n'en reste pas moins que tel quel ce code n'aura pas grande utilité. Servir la ligne suivante ne présente pas de difficulté, on utilise une variable qu'on incrémente... Il faut cependant savoir pourquoi c'est la ligne 30 qu'on sert ici, si la ligne 29 a été servie antérieurement, ou si on commence à 30, si on servira plusieurs lignes à la fois ou une seule à chaque fois, etc. De même pour la source, est-elle fixe ou variable et quel est le déclencheur d'une opération...

Autant d'indication que tu n'as pas fournies, il convient donc que tu précises ton objectif global (et évidemment un fichier serait éminemment souhaitable).

Cordialement.