inserer feuille avec nom

[grisan29]

bonjour a vous
j'ai ce code qui me permet d'ajouter une feuille après celle nommé "Matrice"

Sub DuplicationFeuille()
Dim nbfeuille As Integer
'
    Sheets("Matrice").Copy after:=Sheets(3)
    nbfeuille = Sheets.Count
    'Active Sheets.Count
    Sheets("Matrice (2)").Name = "S2"

    
End Sub

mais je ne sais pas comment faire pour créer d'autres feuilles a la suite en les nommant "S2,S3,S4,ETC..."
car a chaque fois le code me dit que le nom est déja utiliser
merci de votre compréhension

Pascal

 

[Staple1600]

Re : inserer feuille avec nom

Bonsoir à tous

grisan29
S'il s'agit d'insérer un nouvelle feuille et non plus de dupliquer
(comme on pouvait le comprendre dans le premier message, cf le nom de ta macro)
Ceci fonctionne aussi
(Il faut qu'au départ il y ait une feuille nommée S01)

Sub a()
Sheets.Add.Name = Format(Sheets.Count + 1, """S""00")
End Sub

Dommage que le post soit clos 😉

 

[grisan29]

Re : inserer feuille avec nom

re bonsoir

si... je n'avais pas vu que tu avais joint un exemple, car maintenant je comprends pourquoi je n'arrivais pas
je mettait le code dans un module séparé et non dans le module de la feuille

staple1600 avec mes excuses si les termes ont été mal utilisé😕

Pascal

 

[Staple1600]

Re : inserer feuille avec nom

Re

grisan29
Pourquoi des excuses?

Tu as testé le code vba de mon précédent message?

Et au final, tu veux copier une feuille existante ou insérer une nouvelle feuille vierge qui se nommera S02 s'il existe une S01 et ainsi de suite ?

 

[grisan29]

Re : inserer feuille avec nom

re staple1600
non ce n'est pas avec S01 mais S1, oui c'est une feuille vierge qui sera remplie par l'appui sur un bouton

Pascal