Copier cellules en bas dernier enregistrement [Résolu/Fermé]

Signaler
Messages postés
2
Date d'inscription
dimanche 20 novembre 2016
Statut
Membre
Dernière intervention
20 novembre 2016
 -
Messages postés
2
Date d'inscription
dimanche 20 novembre 2016
Statut
Membre
Dernière intervention
20 novembre 2016
 -
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.

1 réponse

Réponse 1 / 1
Messages postés
15723
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
10 avril 2021
 1 481
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
Signaler
Messages postés
2
Date d'inscription
dimanche 20 novembre 2016
Statut
Membre
Dernière intervention
20 novembre 2016
Bonjour,

C'est toujours la même chose quand on y arrive pas on fait appel à l'équipe et puis finalement je viens de trouver la solution suivante assez simple

Range("G2:H3").Select
Selection.Copy
Sheets("Synhtèse").Select
Cells(65535, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False‹

Et çà marche

Merci pour votre aide
Posez votre question