Msgbox en cas d'erreur de saisie et l'empêché de continuer
Etudiantempc
-
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'ai une deuxième petite question :)
Dans mon userform j'ai crée un bouton continuer, l'utilisateur rentre une série de valeurs puis doit appuyer sur le bouton continuer pour passer à l'userform suivant.
Cependant si l'utilisateur clique sur continuer alors que E1 < 0 un message box s'affiche "Impossible de continuer, la valeur E1 doit être supérieur à 0" et l'utilisateur a de nouveaux accès à E1 pour le modifier et cliquer une seconde fois sur continuer.
Sachant que j'ai déjà codé pour des valeur critique quand l'utilisateur clique sur continuer un message s'affiche " Attention la valeur A1 est critique voulez-vous continuer" avec deux choix oui et non
J'ai une deuxième petite question :)
Dans mon userform j'ai crée un bouton continuer, l'utilisateur rentre une série de valeurs puis doit appuyer sur le bouton continuer pour passer à l'userform suivant.
Cependant si l'utilisateur clique sur continuer alors que E1 < 0 un message box s'affiche "Impossible de continuer, la valeur E1 doit être supérieur à 0" et l'utilisateur a de nouveaux accès à E1 pour le modifier et cliquer une seconde fois sur continuer.
Sachant que j'ai déjà codé pour des valeur critique quand l'utilisateur clique sur continuer un message s'affiche " Attention la valeur A1 est critique voulez-vous continuer" avec deux choix oui et non
A voir également:
- Vba msgbox avec saisie
- Saisie gestuelle iphone - Guide
- Saisie vocale whatsapp - Accueil - Messagerie instantanée
- Saisie vocale sms - Guide
- Gboard saisie vocale - Accueil - Applications & Logiciels
- Liste deroulante excel avec saisie semi-automatique - Guide
3 réponses
Bonjour,
Cette question fait donc suite à celle là : https://forums.commentcamarche.net/forum/affich-32068011-probleme-mettre-une-valeur-liee-a-une-formule-dans-un-textbox ?
Pourrait tu nous poster ton code ?
**** Attention ****
Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Et / Ou .. nous mettre un fichier à disposition (sur le site www.cinjoint.com par exemple ) ?
Cette question fait donc suite à celle là : https://forums.commentcamarche.net/forum/affich-32068011-probleme-mettre-une-valeur-liee-a-une-formule-dans-un-textbox ?
Pourrait tu nous poster ton code ?
**** Attention ****
Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Et / Ou .. nous mettre un fichier à disposition (sur le site www.cinjoint.com par exemple ) ?
Pour le fichier je ne peux pas c'est le résultat d'un projet en entreprise, désolé pour la coloration syntaxique, je ne suis pas spécialisé en VBA, je suis novice.
je vous ai copié mon code qui a résolu mon problème
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Merci d'y penser dans tes prochains messages.
.
je vous ai copié mon code qui a résolu mon problème
If Val(Me.Label2) < 9 Then MsgBox "Impossible de continuer, la valeur E3 doit être supérieur à 9" Else End If If Val(Me.Label2) < 9 Then Exit Sub
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Merci d'y penser dans tes prochains messages.
.
désolé pour la coloration syntaxique, je ne suis pas spécialisé en VBA,
Peu importe que tu connaisse le langage ou non ... c'est au niveau de l'utilisation du forum...
Le code est plus lisible lorsqu'il est mis entre BALISES DE CODE (voir le lien de mon message précédent) que SANS !
Par exemple :
If Val(Me.Label2) < 9 Then
MsgBox "Impossible de continuer, la valeur E3 doit être supérieur à 9"
Else
End If
If Val(Me.Label2) < 9 Then Exit Sub
Est moins bien que :
If Val(Me.Label2) < 9 Then MsgBox "Impossible de continuer, la valeur E3 doit être supérieur à 9" Else End If If Val(Me.Label2) < 9 Then Exit Sub
PS : Si la question est résolue..
Merci de ne pas oublier de clôturer le sujet
(en cliquant sur le lien "Marquer comme résolu" qui se trouve sous le titre de la question)
Cordialement,
Jordane
Bonjour,
J'ai crée un tableur excel avec de nombreuses valeurs dans ce tableaux il y a des valeurs qui sont une addition de plusieurs cellules c'est à dire AF38 = Q12 + Q13
Par la suite j'ai crée un logiciel VBA dans le but d'avoir une interface ergonomique.
L'utilisateur rentre les valeurs qui sont issu d'une combobox (liste) pour éviter que celui-ci rentre n'importe quoi. Exemple l'utilisateur rentre --->
Q12 = 3
Q13 = 5
Donc les valeurs Q12 et Q13 se reporte aussi sur mon tableur excel donc AF38 prend la valeur de 8 dans mon tableur excel.
Maintenant j'aimerais que mon userform avec un textbox prenne cette valeur
"TextBox12.Value = Sheets("Feuil1").Range("AF38").Value"
Pour l'instant presque aucun problème, maintenant si l'utilisateur change la valeur de Q12.
Q12 = 5 donc Q12 + Q13 = 10
la valeur de la textbox pour AF38 change automatiquement.
Car pour que cette valeur change il faut que je clique sur ma textbox :s
Mais f894009 m'a aidé sur ce petit problème, ce qui est très aimable de sa part.
Concernant ce topic j'ai réussi à regler mon problème seul :) mais je pense que mon code est moche mais il marche.
If Val(Me.Label2) < 9 Then
MsgBox "Impossible de continuer, la valeur E3 doit être supérieur à 9"
Else
End If
If Val(Me.Label2) < 9 Then Exit Sub