créer le nouvel onglet à la suite des autres

pascal21 · 17 Janvier 2011

Code:

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 · 17 Janvier 2011

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

Bonsoir,

regarde ceci :

Code:

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

bonne soirée
@+

pascal21 · 17 Janvier 2011

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 · 18 Janvier 2011

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

pascal21 à dit:
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 :

Code:

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
@+

créer le nouvel onglet à la suite des autres

pascal21

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires

créer le nouvel onglet à la suite des autres

pascal21

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency