If ComboBox1.Value = "" And TextBox29.Value = 0 Then
MsgBox "sélectionner une salle et une lampe.", vbCritical + vbOKOnly, "Erreur"
End If
If ComboBox1.Value = "" And TextBox29.Value = 1 Then
MsgBox "sélectionner une lampe.", vbCritical + vbOKOnly, "Erreur"
End If
If ComboBox1.Value <> "" And TextBox29.Value = 0 Then
MsgBox "sélectionner une salle.", vbCritical + vbOKOnly, "Erreur"
End If
Exit Sub