Choix obligatoire Liste déroulante Combobox et textbox

Bonjour Cher Forum

Comment rendre obligatoire le choix et saisi dans un userform pour

Liste déroulante combobox

saisie dans Textbox

SVP

Merci d'avance

Bonjour

    If ComboBox1.ListIndex = -1 Then
        MsgBox "Vous devez faire une sélection dans la liste déroulante !", 16
        Exit Sub
    End If

    If TextBox1 = "" Then
        MsgBox "Vous devez faire une saisie dans le TextBox':", 16
        Exit Sub
    End If

Bye !

Bonjour gmb

merci super pour la réponse et pour compléter mon besoin ... si j'ai deux liste déroulante en combobox je fais

If ComboBox1.ListIndex = -1 and ComboBoxé.ListIndex = -1 Then ? cela ne fonctionne pas

Pour faire autrement si un champs du userform n'est pas renseigné, je ne peux valider la saisie, voici le code :

Private Sub CommandButton3_Click()
'permet d'inscrire dans les colonnes les données saisies dans le formulaire
Dim contenant
Dim L As Integer
contenant = materiel.Value
If contenant = "SR" Then
Sheets("SR").Activate

Else
If contenant = "Caisse Ajourée" Then
Sheets("Caisse Ajourée").Activate

Else
Sheets("Caisse Pleine").Activate
End If
End If
If MsgBox("Etes-vous certain de vouloir inserer cette ligne ?", vbYesNo, "Demande de confirmation") = vbYes Then 'condition : si oui au message
L = Range("a65536").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
If site.ListIndex = -1 And materiel.ListIndex = -1 Then
MsgBox "Vous devez faire une sélection dans la liste déroulante !", 16
Exit Sub
End If
'Insère la donnée de la liste déroulante dans la colonne A
Range("A" & L).Value = Date
Range("B" & L).Value = site 'Insère la donnée de la textbox1 dans la colonne B
'et à suivre....
Range("C" & L).Value = materiel
Range("D" & L).Value = qte_entree
Range("E" & L).Value = qte_sortie
End If
End Sub

Bonsoir hamila92, gmb

Essaie :

If ComboBox1.ListIndex = -1 Or ComboBoxé.ListIndex = -1 Then