Enchainement de 2 codes

Bonjour a tous,

L'idée est de supprimer une "fiche d'un combobox et d'afficher un message d'erreur si la fiche est vide (suppression de la fiche vide)

le premier vérifie que le frame1 est bien vide avec ce code (ça fonctionne) :

Dim c As Control

For Each c In Frame1.Controls

Select Case TypeName(c)

Case "TextBox": c.Value = ""

End Select

Next c

MsgBox "Impossible ! La fiche patient est vide"

Exit Sub

***la je sais pas faire****

et si les case "textbox" sont différent de vide alors on passe a ce code la :

If MsgBox("Etes vous sûr de vouloir supprimer " & Range("A" & Ligne).Value & " ?", vbYesNo) = vbYes Then _

Rows(Ligne).Delete

Unload UserForm1

UserForm1.Show

End Sub

Merci de votre support

Fred

Bonjour

Essaie en ajoutant le End If qui manque :

...
     If MsgBox("Etes vous sûr de vouloir supprimer " & Range("A" & Ligne).Value & " ?", vbYesNo) = vbYes Then _
         Rows(Ligne).Delete

         Unload UserForm1
         UserForm1.Show
   End If
End Sub

Bye !

Bonjour GMB,

déja essayer cela m'indique :

erreur de compilation

end if sans bloc if......

Il faudrait mettre un else qqle part...

dans userform1

Alors, joins ton fichier complet, on regardera ça de plus près.

Bye !

Bonjour GMB,

c'est fait, dans l'userform

Merci

En retour.

Bye !

Bnjour GMB

parfait

Merci