Recopier feuil1 sur feuil 2

Bonjour,

Je m'explique, j'ai une feuille 1 avec :

Colonne A : Nom

Colonne B : Prénom

Colonne C : ... etc

J'aimerai copier cela sur la feuille 2.(déjà fait grave à =Feuil1!A6)

Mais le soucis c'est que si je rajoute une nouvelle ligne sur la feuille 1, ça ne la recopie pas sur la feuille.

Comment puis-je faire?

Cdlt.

une boucle VBA

Sheets("Feuil1").activate
lignemax = Cells(Rows.Count, 1).End(xlUp).Row
sheets("feuil2").activate
lignesuiv = Cells(Rows.Count, 1).End(xlUp).Row+1

Sheets("Feuil1").activate
For i=1 to lignemax
Do While ActiveCell.Value <> Empty 
    cells(i,1).copy sheets("Feuil2").range("A"&lignesuiv)
    cells(i,2).copy sheets("Feuil2").range("A"&lignesuiv)
    cells(i,3).copy sheets("Feuil2").range("A"&lignesuiv)
Loop 
next i

Re,

Et ou dois-je insérer ce code ?

Cdlt.

creer la macro:

Il faut coller la macro dans un module Standard de ton classeur.

Alt+F11 pour ouvrir l'éditeur VBE.

Clic-droit sur le projet à gauche pour ajouter un module.

il faut créer un bouton:

option excel>standard>afficher l'onglet develloppeur

dans l'onglet develloppeur>inserer>bouton

et attaché la macro au bouton(clic droit sur le bouton et "affecter macro")

J'ai bien tout créé, mais quand je clique sur le bouton, rien ne se passe.

envoi un bout du fichier....

D'accord.

16testv1.xlsm (21.23 Ko)

Voila

j'avais fait une erreur...au temps pour moi.

10testv1-5.xlsm (20.58 Ko)

Merci niquel.

Bonne journée.

Rechercher des sujets similaires à "recopier feuil1 feuil"