Ajouter une feuille si elle n'existe pas

Bonjour à tous,

J'aimerai pouvoir créer une feuille d’après une liste. Cette feuille reprend le nom choisi dans la liste et est la copie d'un modèle.

Par contre, si cette feuille existe déjà, il ne faut pas la créer.

Voici le code que j'ai créé, la feuille se crée avec le bon nom, par contre elle va se créer plusieurs fois.

Private Sub ComboBox2_AfterUpdate()
    Dim NomSalle As String
    NomSalle = ComboBox2

    Sheets("Modele").Copy after:=Sheets("Modele")
    Sheets("Modele (2)").Name = NomSalle

    If Sheets("listes").Range("A2").Value = "" Then
        Sheets("listes").Range("A2").Value = NomSalle
        Exit Sub
        End If
         If Sheets("listes").Range("A1").Offset(1, 0).Value = "" Then
        Sheets("listes").Range("A1").Offset(1, 0).Value = NomSalle
    Else

    End If

End Sub

Bonjour Richard, bonjour le forum,

Essaie comme ça :

Private Sub ComboBox2_AfterUpdate()
Dim OE As Worksheet 'déclare la variable OE (Onglet Existant)
Dim NomSalle As String

NomSalle = ComboBox2.Value
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
Set OE = Worksheets(NomSalle) 'définit l'onglet OE (génère une erreur si cet onglet n'existe pas)
If Err <> 0 Then 'condition : si une erreur a été générée
    Err.Clear 'supprime l'erreur
    Sheets("Modele").Copy after:=Sheets("Modele") 'copie l'onglet Modèle après ljui-même
    ActiveSheet.Name = NomSalle 'renome l'onglet actif
End If 'fin de la condition
On Error GoTo 0 'annule la gestion des erreurs

If Sheets("listes").Range("A2").Value = "" Then
    Sheets("listes").Range("A2").Value = NomSalle
    Exit Sub
End If
If Sheets("listes").Range("A1").Offset(1, 0).Value = "" Then
    Sheets("listes").Range("A1").Offset(1, 0).Value = NomSalle
End If
End Sub

Bonjour,

Bonjour ThauThème,

Range("A2") = Range("A1").Offset(1,0) ?

Cdlt.

Re,

@Jean-Éric

Ça fait partie du code de Richard je n'y ai pas touché et j'avoue ne l'avoir même pas analyser vu que ça ne concernait pas directement le problème posé...

Merci à vous deux, cela à l'air de fonctionner.

Je vais continuer ma progression de ma création de code