Sécurité si donnée manquante dans une Textbox

Bonjour,

Voila mon pb.

Je tente de mettre un msg d'erreur si on ne remplit pas la case1 mais je ne comprends pas ou ca coince

Si c'est vide on a un msgBox et en cliquant sur OK ca efface la page dupliquée sur Excel sans faire disparaitre la USF1

Autrement si ce n'est pas vide on copie la page en nommant l'onglet de la page dupliquée par ce qu'on a écrit en Case 1 et ça suit les autres instructions.

' Bouton OK de la USF1
Private Sub cmdok_Click()

Sheets("Trame").Copy Before:=Sheets("Trame")

   ' Si Case1 vide
    If Me.TextBox1.Value = "" Then

        If MsgBox("Case vide!!" & Chr(10), vbOKOnly + vbCritical, "Error") = vbYes Then
            ActiveSheet.Delete
        End If
    ' Si NON VIDE, validation des données d'entrées à écrire sur la feuille dupliquée
    Else
ActiveSheet.Name = Me.TextBox1.Value         
        With ActiveSheet
            ' Case1
           .Range("C1").Value = Me.TextBox1.Value
            ' Titre
            .Range("G3").Value = Me.TextBox2.Value

                ' Si NON satisfait, effacer la feuille et rééditer sur Entrees_2D
                If MsgBox("Voulez-vous continuer ?" & Chr(10), vbYesNo + vbQuestion, "Confirmation") <> vbYes Then
                    ActiveSheet.Delete
                ' Si OUI, Lancer USF2
                Else
                    Unload Me
                    USF2.Show
                End If

        End With
    End If

End Sub

Quelle est mon erreur ?

Merci

Bonjour

Essayes en changeant l'ordre des vérifications, avant de créer la page, on vérifie si un nom existe

Private Sub cmdok_Click()

  If Me.TextBox1 = "" Then
    MsgBox "Case vide", vbCritical + vbOKOnly, "Error"
    Exit Sub
  End If

  Sheets("Trame").Copy Before:=Sheets("Trame")
  ActiveSheet.Name = Me.TextBox1.Value
  With ActiveSheet
    ' Case1
    .Range("C1").Value = Me.TextBox1.Value
    ' Titre
    .Range("G3").Value = Me.TextBox2.Value
    If MsgBox("Voulez-vous continuer ?" & Chr(10), vbYesNo + vbQuestion, "Confirmation") <> vbYes Then
      ' Si NON satisfait, effacer la feuille et rééditer sur Entrees_2D
      Application.DisplayAlerts = False
      ActiveSheet.Delete
      Application.DisplayAlerts = True
    Else
      ' Si OUI, Lancer USF2
      Unload Me
      USF2.Show
    End If
  End With
End Sub

effectivement,

je n'ai pas mis les choses dans le bon ordre.

Ca marche maintenant

merci