Ne pas autoriser la validation si TextBox et ComboBox non remplis

[degap05]

Bonjour le forum,

J'ai besoin de votre aide.
L'USF du fichier joint, comprend des TextBox et ComboBox.
Je souhaiterais que le bouton "Valider" ne soit actif que si ceux-ci sont remplis.
Mais avec une dérogation pour les TextBox 5 et 6, uniquement.

Merci d'avance.
A+

 

[Compte Supprimé 979]

Re : Ne pas autoriser la validation si TextBox et ComboBox non remplis

Salut Degap05 😉

Dans le code de ton bouton de validation, tout a fait au début,
tu peux mettre

Private Sub CommandButton1_Click()
  Dim I As Integer
  For I = 1 To 9
    If I <> 5 And I <> 6 Then
      If Me("TextBox" & I) = "" Then
        Me("TextBox" & I).SetFocus
        MsgBox "Merci de bien vouloir saisir une valeur !"
        Exit Sub
      End If
    End If
  Next I
  For I = 1 To 4
    If Me("ComboBox" & I) = "" Then
      Me("ComboBox" & I).SetFocus
      MsgBox "Merci de bien vouloir saisir une valeur !"
      Exit Sub
    End If
  Next I

A tester

A+

 

[Robert]

Re : Ne pas autoriser la validation si TextBox et ComboBox non remplis

Bonjour Degap, bonjour le forum,

Dans un premier temps j'ai renommé la TextBox11 (Date de la prescription) par TexBox10. pour avoir une suite de textboxes de 1 à 11.

Ensuite je te propose le code ci-dessous à rajouter au debut du code du CommandButton Valider. (non testé...)

Dim x As Byte
For x = 1 To 10
    Select Case x
        Case 5, 6
        Case Else
            With Me.Controls("TextBox" & x)
                If .Value = "" Then .SetFocus: MsgBox "Vous devez remplir ce champ !": Exit Sub
            End With
    End Select
Next x
For x = 1 To 4
    With Me.Controls("ComboBox" & x)
        If .Value = "" Then .SetFocus: MsgBox "Vous devez remplir ce champ !": Exit Sub
    End With
Next x

Édition :

Bonjour Bruno on s'est croisé... On parle la même langue je vois lol

 

[degap05]

Re : Ne pas autoriser la validation si TextBox et ComboBox non remplis

Bonjour BrunoM45 et Robert,

C'est parfait comme toujours!!!

Merci.