Msgbox en cas d'erreur de saisie et l'empêché de continuer

Fermé
Etudiantempc - 5 juin 2015 à 11:57
jordane45 Messages postés 38296 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 19 novembre 2024 - 5 juin 2015 à 16:59
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
A voir également:

3 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
5 juin 2015 à 16:42
c'était quoi la première question ?
0
Etudiantempc
5 juin 2015 à 16:46
La 1er Question était :

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
0
jordane45 Messages postés 38296 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 19 novembre 2024 4 704
5 juin 2015 à 16:47
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 ) ?
0
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
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.
.
0
jordane45 Messages postés 38296 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 19 novembre 2024 4 704
5 juin 2015 à 16:59
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
0