Tester la présence d'une feuille

Bonjour Bat,

Tu peux essayer la fonction personnalisée suivante :

Sub Test()
Dim NF As String
      NF = ActiveSheet.Range('A65').Value
      MsgBox 'La feuille ' & NF & IIf(FeuilleExiste(NF), ' existe', ' n'existe pas')
End Sub

Function FeuilleExiste(NF As String) As Boolean
Dim F As Worksheet
        On Error Resume Next
        Set F = Worksheets(NF)
        On Error GoTo 0
        FeuilleExiste = Not F Is Nothing
End Function

Cliquez pour agrandir...

Cordialement,

Bonjour Bat,

voici un bout de code pour résoudre ton problème :


Dim iii As Integer

'Nom de la feuille
rep = activeworkbook.sheets('tafeuille').Range('A65')

'Vérifie que le nom saisi ne correpond pas a une feuille déjà existante
For iii = 1 To Sheets.Count
If rep = Worksheets(iii).Name Then
MsgBox 'Une feuille portant le même nom existe déjà.', vbOKOnly Or vbInformation, 'Saisie Incorrecte'
Exit Sub
Exit For
End If
Next iii

'si cellulevide alors messagebox, sinon ajoute une feuille partant le nom de la cellule
If rep = '' Then

MsgBox 'Pour exécuter cette macro, vous devez saisir un nom', vbOKOnly Or vbInformation, 'vous n'avez pas saisi de nom'

Else
Sheets.Add.Name = rep
EndIf


je n'ai pas vérifié le code mais en gros c'est quelque chose dans ce genre.

a+

Bonjour

Anuki ton exit for dans ton test ne sert pas à grand chose (pour ne pas dire à rien vu que tu as un exit sub juste avant

Bonne soirée

bonjour bascal et tous les utilisateurs du forum,

Merci pour ta remarque très judicieuse

tu as raison, j'avais la tête ailleur, c'est surment le fait de travailler un jour de pont avec personne au boulot, c'est déprimant et ça fait écrire des baitises.

Bonjour à tous

MErci pour vos solutions qui fonctionnent toutes les deux!