Saisies obligatoire

Le 17/09/2015 à 15:12

Bonjour tout le monde

le code suivant me permet de controler que les différents textbox et combobox soient complétés pour la validation des données

Toutefois dans le formulaire il y a aussi 2 autres textbox ( 8 et 9 )qui peuvent être vides sans interdire la validation.

Par contre je souhaiterais que si dans la valeur dans la combobox7 = "toto" ou "tata" alors les textbox8 et textbox9 doivent être obligatoirement renseignés ( labels correspondants en rouge)

J'ai fais plusieurs tentatives mais sans succès

merci d'avance pour vos bons conseils.

Je n ai pas joint de fichier car je pense que le code suffira à des pros comme vous

Private Sub Cmd_Validation_Click()
'Valider les données du formulaire

Dim Ctrl As Control
Dim r As Integer
Dim Derligne As Integer
Dim Rep As Integer

 'Coloration des Labels en rouge
     Label_Km.ForeColor = RGB(0, 0, 0)
     Label_Litres.ForeColor = RGB(0, 0, 0)
     Label_Montant.ForeColor = RGB(0, 0, 0)
     Label_Agence.ForeColor = RGB(0, 0, 0)
     Label_Model.ForeColor = RGB(0, 0, 0)
     Label_Carb.ForeColor = RGB(0, 0, 0)
     Label_Obj.ForeColor = RGB(0, 0, 0)
     Label_Immat.ForeColor = RGB(0, 0, 0)
     Label_Refact.ForeColor = RGB(0, 0, 0)
     Label_Remark.ForeColor = RGB(0, 0, 0)

     'Contrôles de contenu
     If TextBox4.Value = "" Then 'SI pas de "nom" ...
         Label_Km.ForeColor = RGB(255, 0, 0) 'Label "nom" en rouge
             MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"

     ElseIf TextBox5.Value = "" Then
         Label_Litres.ForeColor = RGB(255, 0, 0)
            MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
     ElseIf TextBox6.Value = "" Then
         Label_Montant.ForeColor = RGB(255, 0, 0)
            MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
     ElseIf ComboBox3.Value = "" Then
         Label_Agence.ForeColor = RGB(255, 0, 0)
            MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
     ElseIf ComboBox4.Value = "" Then
         Label_Model.ForeColor = RGB(255, 0, 0)
            MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
    ElseIf ComboBox5.Value = "" Then
         Label_Immat.ForeColor = RGB(255, 0, 0)
            MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
    ElseIf ComboBox6.Value = "" Then
         Label_Carb.ForeColor = RGB(255, 0, 0)
            MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"
    ElseIf ComboBox7.Value = "" Then
         Label_Obj.ForeColor = RGB(255, 0, 0)
            MsgBox (" Données manquantes à compléter  !"), vbOK + vbExclamation, "SAISIE INCOMPLETE !"

Else

With Feuil1

Range("B2") = ComboBox2.Text
Derligne = .Range("A65536").End(xlUp).Row + 1

For Each Ctrl In USF_Saisie.Controls

r = Val(Ctrl.Tag)

If r > 0 Then Cells(Derligne, r) = TrouveType(Ctrl)

Next

End With

'Initialise le formulaire
Unload Me
USF_Saisie.Show

End If

End Sub

Le 17/09/2015 à 16:36

Bonjour

Si tu joignais ton fichier, il serait plus facile de te proposer quelque chose.

Bye !

Le 17/09/2015 à 17:11

Bonsoir et merci pour ta réponse

j ai du modifier le fichier car données professionnelles

avec le code existant ( y a plus simple je pense ! ) même si les textxbox 8 et 9 sont renseignées je ne peux pas valider les données

merci pour ton aide

11suivi-carburant-test.xlsm (57.87 Ko)

Le 17/09/2015 à 20:09

Un essai à tester. Te convient-il ?