Disponibilité d'un nom de feuille
Bonjour,
Je cherche a créer un code qui permettra de valider la disponibilité d'un nom de feuille lors de la création d'une nouvelle feuille.
Voici mon code jusqu'à présent. Il me permet de valider si le nom de la feuille est disponible ou non. Toutefois, j'aimerais bonifier le code afin qu'il puisse trouver le prochain nom disponible pour la nouvelle feuille. Je m'explique.
Tous les noms de feuille début par "Analyse". Alors si "Analyse 1" et "Analyse 2" sont déjà utilisés, le nom de la nouvelle feuille devrait être "Analyse 3".
Je joins le fichier Excel en pj.
Merci à l'avance!
OB
Next
Sub NomNouvelleFeuille()
Dim TotalDeFeuilles As Integer
Dim NomDeFeuille As String
Dim Disponibilite As Range
TotalDeFeuilles = ThisWorkbook.Worksheets.Count
NomDeFeuille = Feuil1.Range("B4").Value
Set Disponibilite = Range("B5")
For i = 1 To TotalDeFeuilles
If ThisWorkbook.Worksheets(i).Name = NomDeFeuille Then
Disponibilite = False
Exit Sub
Else
Disponibilite = True
End If
End Sub
Bonjour,
Un essai ...
Sub ChercheUnNomDeFeuille()
Dim Sh As Worksheet
Dim No As Integer
Dim X As Integer
For Each Sh In ThisWorkbook.Worksheets
If Left(Sh.Name, 7) = "Analyse" Then X = CInt(Right(Sh.Name, Len(Sh.Name) - 7))
If X > No Then No = X
Next Sh
MsgBox "Le prochain numéro sera : " & No + 1
End Subric