RÉSOLU. Imprimer avec condition Combobox et Textbox

[Bambi35]

Bonjour à tous
Je viens vers vous car je n’arrive pas à finaliser mon formulaire
Dans le formulaire je demande si les personnes ont une adresse Mail
S’ils ne répondent pas ils ne peuvent pas imprimer la fiche
S’ils réponsent « non » dans le Combobox (Adresse Mail) le TextBox (E-mail) ainsi que le Label disparaissent et l’on peut imprimer la fiche
S'ils répondent « oui » alors le TextBox (E-maill) doit être renseignée pour pouvoir imprimer.
Je n’arrive pas à trouver la formule pour mettre dans Private Sub btnimprime_Click()
Je suis donc passé par une formule en G3 (feuille Exe)
Mais la cellule G3 ne s’actualise pas en temps réelle et donc ils peuvent imprimer sans renseigner l’adresse Mail
Merci d’avance de votre aide
Ci-joint mon Fichier


Bambi35

 

[Iznogood1]

Bonjour,

Pourquoi passes-tu par une formule.
Ne suffit-il pas d'ajouter un test lors de la validation de ton formulaire:

If Me.cbomail.Value = "OUI" And Me.txtmail.Value = "" Then Msg = Msg & "Adresse email obligatoire" & vbCrLf

 

[piga25]

Bonjour Bambi35, le forum
regarde si cela peut convenir

Il faut ajouter ceci :

If txtmail = "" _
And cbomail.ListIndex = 0 _
Then Msg = Msg & "votre adresse mail" & vbCr

Le code complet

Private Sub btnimprime_Click()
Dim Msg As String
If txtnom = "" Then Msg = "Nom" & vbCr
If txtprenom = "" Then Msg = Msg & "Prenom" & vbCr
If txtadresse = "" Then Msg = Msg & "Adresse" & vbCr
If txtcommune = "" Then Msg = Msg & "Commune" & vbCr
If txtcode = "" Then Msg = Msg & "Code Postal" & vbCr
If cbomail = "" Then Msg = Msg & "Mail Oui ou Non" & vbCr
If Sheets("Exe").Range("F3") = "Faux" Then Msg = Msg & "Adresse Mail" & vbCr

If txtparent1 = "" _
And txtparent1port = "" _
Then Msg = Msg & "Au moins 1 numéro de Téléphone" & vbCr
If txtmail = "" _
And cbomail.ListIndex = 0 _
Then Msg = Msg & "votre adresse mail" & vbCr
If Len(Msg) > 0 Then
    MsgBox "Veuillez renseigner" & vbCr & Msg & vbCr, _
              vbInformation + vbOKOnly, _
              "Données incomplètes"
   Exit Sub
End If
  'Me.PrintForm-pour-apreçu
    Me.Hide
     'Sheets("Fiche").Visible = True
    'Aperçu avant impression de la Feuil1
    Sheets("Fiche").PrintPreview
      'Sheets("Fiche").Visible = False
    Me.Show
End Sub

Edit: Oups pas rafraichie, bonjour Iznogood1

 

[Bambi35]

Bonsoir [U]Iznogood1[/U],[U]piga25[/U]

Merci à vous 2 Nickel
Mais après test la personne qui mets son adresse mail en premier et décide de mettre "non" dans le Combobox (Adresse Mail) et bien l'adresse reste sur la fiche. Peut-on évité cela

Merci encore de votre réactivité

Bambi35

 

[Bambi35]

Bonjour à tous
J'ai rajouter ceci pour éviter le problème si on écrit une adresse mail et que la personne met ''non''
If Me.cbomail.Value = "NON" Then txtmail = ""

Merci à tous
Bambi35