Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Forcer l'utilisateur à répondre dans une InputBox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gody1954
  • 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 !

S'inscrire
G

gody1954

Guest
Bonjour,

J'ai utilisé le code Inputbox pour inviter l'utilisateur à faire un choix entre 2 possibilités
1 pour joint NBR
2 pour joint EPDM

J'utilise le chiffre entré dans une boucle If....Then
en fonction de la valeur j'affiche dans une cellule bien spécifique le texte correspondant.

mais j'ai un soucis

j'ai pu trouver une ligne de code qui m'affiche "Non défini" si l'utilisateur entre un chiffre supérieur à 2.
Par contre, si l'utilisateur tappe sur Enter sans entrer de valeur, la procédure bug, et le module VBA souvre.
 
Trier par date Trier par votes
Re : Forcer l'utilisateur à répondre dans une InputBox

Bonjour gody,
j'ai pu trouver une ligne de code qui m'affiche "Non défini" si l'utilisateur entre un chiffre supérieur à 2.
Cliquez pour agrandir...
il te reste à faire une ligne de code pour le cas où l'utilisateur rentre une valeur inférieure à 1

mais qu'en sera-t'il s'il rentre des caractères au lieu de chiffres?

je pense que tu devra ajouter:
On Error Exit Sub
ou
ajouter un avertissement concernant la saisie attendue

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Forcer l'utilisateur à répondre dans une InputBox

pour le contrôle de la valeur numérique suffit de faire un contrôle:


Dim answer as variant
réponse:
answer = inputbox("saisir le choix..."," saisi", 1) '1 pour que la valeur la plus souvent choisi déjà sélectionnées.
if isnumeric(answer) =true then goto réponse
if answer > 2 then goto réponse
if answer <1 then goto réponse
 
Vote positif 0 Vote négatif
Re : Forcer l'utilisateur à répondre dans une InputBox

Bonsoir à tous
Une proposition simple, sinon simpliste :
Code: 
[COLOR="DarkSlateGray"][B]Sub toto()
Dim choix$
   Do Until choix = "1" Or choix = "2"
      choix = InputBox("1 pour joint NBR" & vbLf & "2 pour joint EPDM", "Choisir...")
   Loop
End Sub[/B][/COLOR]
ROGER2327
#3593

Vendredi 13 Merdre 137 (Sainte Lunette, solitaire, SQ)
11 Prairial An CCXVIII
2010-W21-7T23:53:04Z
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Y
  • Résolu(e)
XL 2013 Bloquer la saisie dans une plage selon un critère
Réponses
6
Affichages
683
TooFatBoy
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
276
PR.
P
F
  • Question Question
XL 2021 bug "lib32" suite à passage à office 2021
Réponses
6
Affichages
432
fredl
F
P
  • Résolu(e)
Microsoft 365 Une forme change de couleurs à chaque clic (3 couleurs)
Réponses
5
Affichages
274
vgendron
E
  • Question Question
Power Query Index TP de l'INSEE - Ajuster une formule à chaque mise à jour d'un tableau généré avec PQ
2
Réponses
21
Affichages
2 K
laurent950
C
  • Question Question
XL 2019 Récupérer titre de ligne et colonne quand une cellule est rempli dans un tableau
Réponses
3
Affichages
574
Clemee61
C
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
784
job75
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
1 K
Xender
X
X
  • Question Question
XL pour MAC Colorier une cellule dans les lignes impaires de mon tableau, dont la valeur est > à 150
2
Réponses
15
Affichages
1 K
TooFatBoy
J
  • Question Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
T
  • Résolu(e)
Microsoft 365 Conditionner l'accès à une page d'un multipage
2
Réponses
26
Affichages
3 K
TooFatBoy
E
  • Question Question
XL 2013 VBA : filtre multicritères d'un TCD selon une liste définie dans un array
Réponses
6
Affichages
1 K
erictran
E
G
  • Question Question
XL 2019 Répondre à des conditions d'une feuille pour un affichage dans un Userforms
Réponses
3
Affichages
1 K
cp4
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
M
  • Résolu(e)
XL 2019 Mettre une valeur dans des cellules, en fonction d'une autre valeur
2
Réponses
15
Affichages
2 K
soan
S
S
  • Résolu(e)
Microsoft 365 Bug de macro pour effacer une ligne
Réponses
4
Affichages
1 K
ShrekL
S
M
  • Question Question
Microsoft 365 Recherchev dans un autre classeur VBA EXCEL
Réponses
2
Affichages
2 K
manue971
M
C
  • Résolu(e)
Microsoft 365 chercher un mot dans une cellule et en coller une partie dans une case
Réponses
5
Affichages
1 K
Catsnroses
C
C
  • Résolu(e)
XL 2016 Récupérer la première valeur non-vide au dessus correspondant à un critère
Réponses
1
Affichages
1 K
AtTheOne
  • Question Question
XL 2019 Format heure dans une formule
Réponses
14
Affichages
1 K
AIXELS
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…