[Macro Excel] Ajout ligne automatiquement sur feuille 2

Bonjour à tous,

Je me permet de poster un nouveau sujet afin d'avoir un aide à la construction de ma macro (simple).

J'ai un tableau avec plusieurs critères sur Feuille 1 représentant une saisie.

Lorsque je saisie l'ensemble des informations, celles-si sont copiées et transposées à l'horizontal (en ligne) sur feuille 2.

J'aimerais savoir comment je pourrais faire un retour à la ligne automatiquement suite au copier\coller avec incrémentation du numéro sur feuille 2. Avec une vérification si ligne d'en haut je passe à la suivante.

En vous remerciant

Cordialement

PS : Ma macro

Sub Macro1()

'

' Macro1 Macro

Range("B4:B19").Select

Selection.Copy

Sheets("Feuil2").Select

Range("B2").Select

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

False, Transpose:=True

Sheets("Feuil1").Select

Range("A1").Select

Application.CutCopyMode = False

End Sub

8explication.xlsm (53.27 Ko)

Bonjour,

Sub Macro1()
    Dim Lni%, wsC As Worksheet
    Set wsC = Worksheets("Feuil2")
    Lni = wsC.Range("B" & wsC.Rows.Count).End(xlUp).Row + 1
    With Worksheets("Feuil1").Range("B4:B19")
        .Copy
        wsC.Range("B" & Lni).PasteSpecial xlPasteAll, , , True
        .ClearContents
    End With
    Application.CutCopyMode = False
End Sub

Cordialement.

Bonjour,

Un énormissime merci

En plus, vous m'avez fait un clean de mes données de saisie que je souhaitais faire.

Merci au top votre modification.

Excellente journée

Bonne continuation !

Merci bien ^^

Rechercher des sujets similaires à "macro ajout ligne automatiquement feuille"