Copier cellules en bas dernier enregistrement Résolu

Question

Bonjour, 

Je souhaite copier de multiples cellules excel sur une ligne dans un onglet à part.
A chaque fois que je copie la fiche (via un bouton) j'aimerais que la nouvelle ligne se mette en dessous de la dernière copiée.

f894009 · Answer

Bonjour,

_Mettez le contenu de vos cellules Fiche dans un tableau
_Chercher la prmeiere cellule vide en fin de la page "a part"
    code: derlig = Range("A" & Rows.Count).End(xlUp).Row+1
_Copier le tableau cellules fiche a cette ligne

exemple de code a adapter:
Sub test()
    Dim TInfos(10)      'tableau Infos cellules fiche a adaptrr
    'recuperation des Infos cellules fiche
    With Worksheets("feuil1")
        TInfos(0) = .Range("A1").Value
        TInfos(1) = .Range("B2").Value
        TInfos(2) = .Range("C3").Value
    End With
    'recherche ligne et ecriture Infos Fiche
    With Worksheets("feuil2")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Rows(derlig) = TInfos
    End With
End Sub

Copier cellules en bas dernier enregistrement

1 réponse

Discussions similaires

Newsletters