Insertion d'une nouvelle feuille et nommage dynamique

Staple1600

XLDnaute Barbatruc

• 20 Avril 2014

• #2

Re : Insertion d'une nouvelle feuille et nommage dynamique

Bonjour à tous

Sans plus de contexte (comme un fichier exemple ...)

Code:

Sub a()
Dim n: n = 1
Sheets.Add.Name = "xxxxx." & n + 1
End Sub

et pour coller un peu plus à la question

Code:

Sub b()
Dim t, n&, x$
t = Split(ActiveSheet.Name, ".")
x = t(0): n = CLng(t(1))
Sheets.Add.Name = x & "." & n + 1
End Sub

 

Dernière édition: 20 Avril 2014

Vote positif 0 Vote négatif

X

XIRPONOM

XLDnaute Nouveau

• 20 Avril 2014

• #3

Re : Insertion d'une nouvelle feuille et nommage dynamique

Merci, la version collante o) est quasi-parfaite:
la nouvelle feuille est insérée avant; il est certainement possible qu'elle le soit après ?

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 20 Avril 2014

• #4

Re : Insertion d'une nouvelle feuille et nommage dynamique

Bonjour,

Pour placer la nouvelle feuille à la fin ...

Ajouter avant end sub :

Sheets(x & "." & n + 1).Move After:=Worksheets(Sheets.Count)

Cliquez pour agrandir...

Geli

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 20 Avril 2014

• #5

Re : Insertion d'une nouvelle feuille et nommage dynamique

Bonjour Geli, Bonjour Gelinotte, Salut Staple

Pour mettre tout de suite la feuille à coté de sa sœur, et au cas où le feuille existe....

VB:

Sub b_()
Dim t, n&, x$, F As Worksheet
t = Split(ActiveSheet.Name, ".")
x = t(0): n = CLng(t(1))
On Error Resume Next
Set F = Sheets(x & "." & n + 1)
If Err Then
    Err.Clear
    Sheets.Add(After:=Sheets(ActiveSheet.Index)).Name = x & "." & n + 1
Else
    MsgBox " L'onglet " & x & "." & n + 1 & " est déja  présent" & vbLf & vbLf & "traitement interrompu", 1048640, "Feuille existante"
End If
End Sub

Cordialement

 

Vote positif 0 Vote négatif

X

XIRPONOM

XLDnaute Nouveau

• 20 Avril 2014

• #6

Re : Insertion d'une nouvelle feuille et nommage dynamique

C'est tout bon.
J'ai adapté et ça marche.
Encore merci.
Cordialement.

 

Vote positif 0 Vote négatif

X

XIRPONOM

XLDnaute Nouveau

• 20 Avril 2014

• #7

Re : Insertion d'une nouvelle feuille et nommage dynamique

Merci pour cette nouvelle réponse.

 

Vote positif 0 Vote négatif