Excel Macro

Soko75 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
 Soko75 -
Bonjour,

J'ai un problème très simple et à la limite du ridicule.

Sur la Feuille 1 j'ai une fiche avec Nom, Prénom et Age à renseigner, en cliquant sur un bouton je souhaiterai que c'est informations ce colle dans un tableau à la Feuille 2 sans qu'elle supprime ma première ligne.

Je ne souhaite pas passer par du UserForm.

Si qql peut m'aider please.

voilà mon fichier :
https://mega.nz/#!Q8IR0aoY!6d_KHIN7D3XVEGw_mN1QCBaqFAJ5fyaTgcf-59LbMqs

Merci.

1 réponse

  1.
    Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour, 

    Sub Macro1()
        Sheets("Fiche").Range("B1:B3").Copy
        With Sheets("Base de donnée")
            .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial , Transpose:=True
        End With
        Application.CutCopyMode = False
        Sheets("Fiche").Range("B1:B3").ClearContents
    End Sub

    A+
    1
    1. Soko75
       
      Merci !
      0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses