RÉSOLU. Imprimer avec condition Combobox et Textbox

Bambi35 · 27 Mars 2019

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 · 27 Mars 2019

Bonjour,

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

VB:

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

piga25 · 27 Mars 2019

Bonjour Bambi35, le forum
regarde si cela peut convenir

Il faut ajouter ceci :

Code:

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

Le code complet

Code:

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 · 27 Mars 2019

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 · 28 Mars 2019

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

RÉSOLU. Imprimer avec condition Combobox et Textbox

Bambi35

XLDnaute Occasionnel

Pièces jointes

Iznogood1

XLDnaute Impliqué

piga25

XLDnaute Barbatruc

Bambi35

XLDnaute Occasionnel

Bambi35

XLDnaute Occasionnel

Discussions similaires

RÉSOLU. Imprimer avec condition Combobox et Textbox

Bambi35

XLDnaute Occasionnel

Pièces jointes

Iznogood1

XLDnaute Impliqué

piga25

XLDnaute Barbatruc

Bambi35

XLDnaute Occasionnel

Bambi35

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency