ajouter feuille

[apdf1]

Bonjour,

Comment je peut ajouter feuille et la nommée en VBA

Merci d'avance

Max

 

[Dull]

Re : ajouter feuille

Salut apdf1, Jean Marcel🙂, le Forum

Dans un Module

[COLOR=BLUE]Sub[/COLOR] AjoutFeuille()
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Cequetuveux"
[COLOR=BLUE]End Sub[/COLOR]

Bonne Journée

 

[apdf1]

Re : ajouter feuille

Bonjour Jean-Marcel,

Et merci de la réponse mais le problème j'ai plusieurs feuille a ajouter avec un nom différend, j'aimerais pouvoir ajouter une feuille et lui donnée un nom différend.

Merci encore

Max

 

[apdf1]

Re : ajouter feuille

Re,

Super sa marche! mais si je n'abuse pas trop je voudrais compliquer les choses.
J’ai fait un userform avec un textbox tous simple et j’ai essayé de l’arranger avec votre code mais de ma manière et bien sûr ça ne marche pas. Pourriez-vous m’aider?

Voici le code que j’ai essayé !

Private Sub TextBox1_Change()
 NomdeMaFeuille = TextBox1("Donner le nom de la feuille")
    Sheets.Add
    ActiveSheet.Name = NomdeMaFeuille
End Sub

Merci d’avance

Max

 

[apdf1]

Re : ajouter feuille

Re Bonjour,

Suite aux réponses que j'ai eues ce matin je vous remercie beaucoup.
J'ai deux nouveau problèmes si on peut dire problème quand j'ajoute une feuille j'aimerais qu’elle se place toujours à la fin.
Le deuxième j’ai mis un lien sur la deuxième feuille pour revenir à la feuille accueil est-il possible d’avoir le lien à chaque feuille ajouter ?

Mon fichier joint qui parlera certainement mieux que moi.

Merci d’avance

Cordialement

Max
.

 

[apdf1]

Re : ajouter feuille

Re,

Merci Jean-Marcel super le code.
Pour le lien j'ai oublié de le mettre j'ai mis juste un lien retour vers la feuille d'accueil mais comme j'avais dit sur le post précédent j'aimerais si possible qu'il se mette à chaque nouvelle feuille car j'ai a peut prés 300 feuilles à faire.

Je joins mon fichier avec le lien.

Merci d’avance

Cordialement

Max

 

[apdf1]

Re : ajouter feuille

Re

Vraiment merci Jean-Marcel ses genial

@

Max