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
Regardes dans les archives du forum (la loupe en haut à droite)
Cette question a déjà été traitée de nombreuses fois sur le forum.

Une piste d'inspiration dans ce fil issu des discussions similaires (tout en bas de la page)
https://www.excel-downloads.com/threads/inserer-feuille-avec-un-nom-precis.87819/

 

[grisan29]

Re : inserer feuille avec nom

bonsoir staple1600
depuis ta réponse je cherche dans la loupe, mais ce que j'y trouve renomme la feuille avec des données sur la feuille initiale
le lien que tu a donné ne correspond pas car il renomme les feuilles a partir d'une date
Pascal

 

[camarchepas]

Re : inserer feuille avec nom

Bonjour Staple, Les Ami(e)s du Forum , Grisan

Ne sachant pas les paramètres qui engendre le besoin de création d'une nouvelle feuille

Voici un code permettant de créer les feuilles S1,S2,S3 .

Le code que tu avait initialement te permettait de copier la feuille Matrice

Cordialement

Sub DuplicationFeuille()
Dim Tourne As Long
'
    For Tourne = 1 To 3
     Sheets.Add after:=Sheets("Matrice")
     ActiveSheet.Name = "S" & Tourne
    Next Tourne
   
End Sub

 

[grisan29]

Re : inserer feuille avec nom

bonjour camarchepas,staple1600 et le forum

mea culpa, je me suis mal exprimer dans mon 1er post ce n'est pas

j créer d'autres feuilles a la suite en les nommant "S2,S3,S4,ETC..."

du moins pas toutes en même temps une par une soit 1 a chaque appuie sur le bouton

camarchepas autrement ton code fonctionne bien

Pascal

 

[Si...]

Re : inserer feuille avec nom

salut

en disposant d'une cellule* libre dans la feuille Matrice (ici A1) contenant 1 au début puis le dernier numéro, dans le module de cette feuille,

Sub DuplicationFeuille()
  [A1] = [A1] + 1
  Sheets("Matrice").Copy Sheets(Sheets.Count)
  Sheets("Matrice (2)").[A1] = ""
  Sheets("Matrice (2)").Name = "S" & [A1]
End Sub

*pour garder le nombre en mémoire après enregistrement, fermeture et réouverture du classeur

 

[grisan29]

Re : inserer feuille avec nom

bonjour si...
merci de ta réponse mais il y a une erreur13 incompatibilité de type a

[A1] = [A1] + 1

Pascal

 

[Si...]

Re : inserer feuille avec nom

re

en disposant d'une cellule* libre dans la feuille Matrice (ici A1) contenant 1 au début puis le dernier numéro, dans le module de cette feuille,

à respecter !

 

[grisan29]

Re : inserer feuille avec nom

bonsoir si...
merci de ta réponse mais j'avais déja mis 1 en A1 mais si je mets 1 tout seul dans le module de la feuille il y a un bug, avec instruction incorrect dans la procédure

Pascal

 

[Si...]

Re : inserer feuille avec nom

re

vraiment bizarre ! (un contenu numérique + 1 ne peut pas renvoyer d'erreur).
Voir fichier joint (Ctrl +d pour ajout)

 

[camarchepas]

Re : inserer feuille avec nom

Re Bonjour à tous,

Ok , le bouton était pas forcément précisé au départ ...

Voici donc une autre maniére, a chaque appelle , l'on regarde la feuille Sxx la plus élevée,
l'on créé une nouvelle feuillle en la nomant S xx + 1

Voici le code

Sub DuplicationFeuille()
Dim Tourne As Long
Dim Feuille As Worksheet
Dim SMax As Integer

For Each Feuille In ThisWorkbook.Worksheets
  If Left(Feuille.Name, 1) = "S" And Mid(Feuille.Name, 2) > SMax Then SMax = Mid(Feuille.Name, 2)
Next
Sheets.Add after:=Sheets("Matrice")
ActiveSheet.Name = "S" & SMax + 1
   
End Sub

 

[Staple1600]

Re : inserer feuille avec nom

Bonsoir à tous

grisan29

bonsoir staple1600
le lien que tu a donné ne correspond pas car il renomme les feuilles a partir d'une date
Pascal

J'avais pourtant pris le soin de préciser...

Une piste d'inspiration dans ce fil issu des discussions similaires

Et l’inspiration à trouver dans le fil que je cite était plutôt celle-ci.

Set ws = sheets.add after:=sheets(sheets.count) ' Pour la mettre à la fin
ws.name = "Récapitulatif-" & nouvelle(sheets(sheets.count-1).name)

 

[grisan29]

Re : inserer feuille avec nom

bonsoir a vous
comme je n'arrive pas et que j'ai passer 3h a chercher quelquechose qui correspondrais hier soir et rien trouvé, par conséquent je vous joint le fichier épuré pour que vous essayer mieux que moi

Pascal

 

[camarchepas]

Re : inserer feuille avec nom

Bonsoir Pascal ,

As-tu vérifié ma dernière proposition ?

Post 11

 

[grisan29]

Re : inserer feuille avec nom(RESOLU par camarchepas)

bonsoir camarchepas
non je n'avais pas vu ta dernière proposition et je t'en remercie car le code fonctionne bien, il ajoute les feuilles si le besoin se fait sentir merci beaucoup
ton pseudo ne correspond pas a ton savoir

ceci clos le post

Pascal