Re : compléter un code d'userform si incomplet
bonjour à tous
grand Chaman, si toutefois tu lis ce message, aurai tu une idée pour cette autre condition ?
si la cellule E, située sur la ligne reprise dans le ComboBox1, contient les caractères "A commander" afficher un msgbox d'avertissement puis fermer l 'userform
voici le code entier de validation de l'userform tel qu'il est depuis la première modif
Private Sub CommandButton1_Click()
Dim dest As Range
With Sheets("Feuil2")
Set dest = IIf(.Range("A6").Value = "", .Range("A6"), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
End With
dest.Value = Worksheets(3).Range("l1") 'le
dest.Offset(0, 1).Value = Date 'date du retrait
dest.Offset(0, 2).Value = Time 'heure du retrait
dest.Offset(0, 3).Value = Worksheets(1).Range("I1") 'identifiant du professionel '
dest.Offset(0, 4).Value = Worksheets(3).Range("l2") 'a sorti
dest.Offset(0, 5).Value = Me.TextBox2.Text 'nombre de produits
dest.Offset(0, 6).Value = Me.ComboBox1.Text 'nom du produit
dest.Offset(0, 7).Value = Worksheets(3).Range("l3") 'pour
dest.Offset(0, 8).Value = Me.TextBox1.Text 'nom du patient
Sheets("Feuil1").Cells(Me.ComboBox1.ListIndex + 6, 4) = Sheets("Feuil1").Cells(Me.ComboBox1.ListIndex + 6, 4) - Me.TextBox2.Text
Dim bValid As Boolean
Dim TB As Control
'Validation du formulaire
bValid = True 'valeur par défaut
For Each TB In Me.Controls
If TypeName(TB) = "TextBox" Then
If TB.Value = "" Then bValid = False
End If
Next TB
If Not bValid Then
MsgBox "Formulaire incomplet ! veuillez remplir toutes les cases avant de valider", vbExclamation
Exit Sub 'si formulaire incomplet sortie de la fonction
End If
Unload Me
MsgBox "Servez vous maintenant"
ThisWorkbook.Save
End Sub