copie ligne d'une feuille vers la fin du tableau autre feuille

  • Initiateur de la discussion Initiateur de la discussion trol
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

trol

XLDnaute Nouveau
Bonjour,
je débute dans excel et j'ai un petit soucis.
Comment copier une ligne (de10 cellules) d'une feuille A vers la fin d'un tableau (de 10 cellules) qui se trouve sur la feuille B ?
Avec un bouton ?
Cette ligne correspond à des entrées qui sont modifiées régulièrement, et le bouton sert donc à actualiser le tableau.
Merci.
 
Re : copie ligne d'une feuille vers la fin du tableau autre feuille

Bonjour trol :

Voici un code VBA à mettre dans ton classeur.

Ce code copie la ligne active de ta feuillle vers la dernière ligne de la Feuil2.

Pour le copier, faire clic droit sur un onglet puis visualiser le code.

Ouvrir ta feuille contenant les données dans VBA Project puis coller ceci :
Code:
Sub Insertion()
ActiveCell.EntireRow.Copy
ActiveSheet.Paste Destination:=Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
Application.CutCopyMode = False
End Sub
@+
 
Re : copie ligne d'une feuille vers la fin du tableau autre feuille

J'ai parlé trop vite!!!!
Dans cette ligne il y a des formules, qui se retrouve tranférer dans le tableau.
Comment copier seulement le texte et pas les formules?
Merci
 
Re : copie ligne d'une feuille vers la fin du tableau autre feuille

Bonjour,

Voici un code qui répond à ta demande :

Code:
Sub Insertion()

    ActiveCell.EntireRow.Copy
    Sheets("Feuil2").Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour