créer le nouvel onglet à la suite des autres

[pascal21]

Sub test()
numero = 0
For n = 1 To Sheets.Count
If InStr(Sheets(n).Name, Sheets("Feuil1").Range("A1")) <> 0 Then
  If Sheets(n).Name = Sheets("Feuil1").Range("A1") Then
   If numero < 1 Then numero = 1
  Else
   num = CInt(Replace(Sheets(n).Name, Sheets("Feuil1").Range("A1"), ""))
   If num >= numero Then
     numero = num + 1
   End If
  End If
exist = True
End If
Next n
If exist Then
 Sheets.Add.Name = Sheets("Feuil1").Range("A1") & numero
Else
 Sheets.Add.Name = Sheets("Feuil1").Range("A1")
End If
End Sub

bonsoir ce code permet de nommer les nouvelles feuilles
mais j'aimerais intégrer une ligne qui ferait que le nouvel onglet soit crée à la suite de la feuil1 et non devant comme c'est le cas actuellement
je sais qu'il faut mettre sheets.copy after ou alors sheets after mais je ne sais pas où le mettre
merci de votre aide

 

[Pierrot93]

Re : créer le nouvel onglet à la suite des autres

Bonsoir,

regarde ceci :

Dim ws As Worksheet
Set ws = Worksheets.Add(after:=Sheets("Feuil1"))
ws.Name = Sheets("Feuil1").Range("A1").Value

bonne soirée
@+

 

[pascal21]

Re : créer le nouvel onglet à la suite des autres

bonsoir pierrot
merci pour le code
faute de mieux (l'intégration de after dans le code je j'ai proposé j'ai utilisé le tien
je vais voir pour ajouter une cellule pour éviter les doublons toujours possibles

 

[Pierrot93]

Re : créer le nouvel onglet à la suite des autres

bonsoir pierrot
merci pour le code
faute de mieux (l'intégration de after dans le code je j'ai proposé j'ai utilisé le tien
je vais voir pour ajouter une cellule pour éviter les doublons toujours possibles

bonjour,
comprends pas trop, répond à ta question :

bonsoir ce code permet de nommer les nouvelles feuilles
mais j'aimerais intégrer une ligne qui ferait que le nouvel onglet soit crée à la suite de la feuil1 et non devant comme c'est le cas actuellement

Sinon tu peux aussi coder ainsi :

Dim ws As Worksheet
Set ws = Worksheets.Add(after:=Sheets(Sheets.Count))
ws.Name = Sheets("Feuil1").Range("A1").Value

tout dépend de ce que tu veux.....

bonne journée
@+