TEST 2 CONDITIONS POUR UN FORMULAIRE AVEC MESSAGE D'ERREUR

  • Initiateur de la discussion Initiateur de la discussion marti334
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

marti334

XLDnaute Nouveau
Bonjour a tous;

Je me lance pour creer un logiciel pour devis tout simple , mais je debute sous excel et je bloque sur un code qui doit etre tout bete; je vous explique:

Alors j'ai un formulaire de saisie avec les informations du client a remplir et ensuite des combobox pour selectionnez de quelle piece il s'agit et remplir directement les produits et les quantités;

Ce que je souhaite c'est que quand je clique sur mon bouton enregistrer, il me lance un test pour voir si une quantite est attribue à un produit, pour evitez les oubli; J'arrive pas a le faire avec and;


Exemple:
Si je saisi un produit et que j'oubli de rentrer un nombre il m'affiche un message dans une textbox que j'ai dejà; voir plus bas;


Ca c'est mon code pour obliger a rentrer un nom dans mon formulaire avant de quitter. Puis affiche dans une textbox(ERREUR) un message ;

If Len(Me.TextBox5) = 0 Then 'verifie et compare textbox'
ERREUR = "Saisir Nom du Client" 'saisie obligatoire du nom'
Me.TextBox5.SetFocus 'NOM en subrillance'
Exit Sub
End If

Merci de votre aide, je ne sais pas si c'est tres clair mais hesitez pas a demander
 

Pièces jointes

  • formulaire .png
    formulaire .png
    118.7 KB · Affichages: 35
Bonjour Marti334
Bonjour Le Fil ,Le Forum
je pense que tu devrais mettre un petit fichier exemple avec quelques Lignes de données , Non confidentielles.
Pas évident de devoir recréer un projet pour le faire avancer Lol
Dans l'attente
Bonne Journée
Amicalement
Jean marie
 
Salut ChTi160; c'est pas faux, je me doutais que c'etait pas tres clair..

Donc j'ai un code actuel:

Private Sub CommandButton1_Click()

If Len(Me.TextBox5) = 0 Then 'verifie et compare textbox'
ERREUR = "Saisir Nom du Client" 'saisie obligatoire du nom'
Me.TextBox5.SetFocus 'NOM en subrillance'
Exit Sub 'reste sur le formulaire
ElseIf Len(Me.ComboBox13) = 1 And Len(Me.ComboBox14) = 0 Then
ERREUR = "Selectionner Quantité"
Me.ComboBox14.SetFocus
Exit Sub
End If

Le 1er if fonctionne tres bien mais le 2eme avec les 2 conditions , sa fonctionne pas.
ce que je souhaite c'est quand ComboBox13 est rempli et que ComboBox14 ne l'est pas alors il m'affiche "selectionner quantité" sur la textbox ERREUR.

J'ai rajouté le code focus mais je sais pas si on peut sur une combo.

J'espere que sa suffira merci et bonne soirée.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour