Macro pour ajouter feuilles existantes dans classeur

bonsoir a tous,

j'aimerais savoir comment je pourrais faire pour creer une 4eme feuille dans mon fichier qui serait identique a la Feui1 uniquement quand je lui demande (si je clique sur un bouton grace a une macro ou si une option existe deja)

merci !!

Bonsoir,

Plus simple et sans macro.

Clique sur l'onglet feuil1 et tout laissant le bouton de souris appuyé, appuie sur la touche CTRL de ton clavier (cela fait apparaitre une icone avec un signe + dessus), déplace ta feuil1 vers où tu veux. Cela te créera une nouvelle feuille identique à la feuil1

Amicalement

Bonsoir.

Tu peux essayer de cette façon:

    Sub nouvelle_feuille()
Sheets("feuil1").Copy after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = sheets("feuil1").range("A1")
End Sub

On copie la feuille 1 et on la place à la fin de tous les onglets.

On renomme la feuille copiée avec le contenu de la cellule A1 de la feuille 1.

Je n'ai pas testé pour la nomination de la nouvelle feuille

excellent, ca marche tres bien par contre ca me met :

erreur d'execution 1004

erreur definie par l'application ou par l'objet

ca veut dire quoi ?

ah non c'est bon en fait, je crois que c'est parceque m case etait vide !

-- Lun Nov 22, 2010 9:37 pm --

autre question :

je voudrais que la nouvelle feuille s'appelle suivant le principe ci-dessous:

"suivi lombalgie" par exemple, sachant que "suivi" est une constante et que le mot "lombalgie" depend de ce qui est inscrit en Feuil1 et en case C2

comment dois je ecrire ca ?

-- Lun Nov 22, 2010 10:16 pm --

c'est bon tout marche !! j'ai trouvé !

Re,

fais comme ceci :

Sub nouvelle_feuille()
Sheets("feuil1").Copy after:=Sheets(Sheets.Count)
Activesheet.Name = "suivi" & "_" & Sheets("feuil1").Range("C2")
End Sub

Amicalement