Discussion :

[Un Internaute]

Voilà et encore merci pour ton dévouement
Bien cordialement

[Daniel.C]

Tu ne peux pas écrire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

An = Val(Split(.Name, " ")(1))

puisque l'index maxi est 0 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "Index maximum : " & UBound(Split(.Name, " "))

Le nom de ta feuille ne se prête pas à cette manipulation.

[casefayere]

oui Daniel (bonjour) on a déjà vu le problème, voici une proposition mais il reste 2 problèmes pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    .Shapes("SéancesPlus").Delete
    .Tab.ColorIndex = Couleur((An - 2000) Mod 12)

[Un Internaute]

Félicitations à vous deux.
Juste un petit problème ça accroche à la ligne ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Tab.ColorIndex = Couleur((An - 2000) Mod 12)

Si je la met en commentaires plus de débogage mais la couleur est la même pour chaque onglet.
Encore une question: Comment fait-on pour que le bouton Nouvelle Série suive la nouvelle feuille?
Un grand merci à vous 2
Un dernier petit effort!!!!
Bien cordialement

[Un Internaute]

J'ai légèrement modifié mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Sub NouvellesSeances()
Dim NomFeuille As String
Dim An As Integer, sh As Shape
Dim Couleur
 
  Couleur = Array(3, 5, 43, 6, 7, 33, 29, 27, 38, 46, 26, 6)
  An = Application.InputBox("Numéro de la nouvelle Série", Type:=1)
  If An = 0 Then MsgBox "Entrez un Nombre": Exit Sub
  With ActiveSheet
    .Unprotect
    NomFeuille = "Série " & An
    .Copy after:=Sheets(Sheets.Count)
  End With
  With ActiveSheet
    .Name = "Serie " & An
    .Shapes("SeancesPlus").Delete
'    .Tab.ColorIndex = Couleur((An - 2000) Mod 12)
    .Protect
  End With
End Sub

[casefayere]

ça y est, le "é" devait etre "e"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    .Shapes("SeancesPlus").Delete

fichier corrigé avec cette macro nettoyée