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

InputBox

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

Denis

Guest
Bonjour le forum,

je suis au milieu d'une macro et je coince...

A l'aide d'une InputBox je demande à l'utilisateur de saisir un numéro de semaine avec l'instruction suivante :
NumSem = InputBox("Entrer le numéro de la semaine ")
(j'ai défini NumSem comme Integer)
Je compare ensuite cette valeur à d'autres valeurs de type Integer.

Lorsqu'utilisateur saisit bien une valeur, pas de problème.

Par contre, s'il appuie sur le bouton "Annuler", le programme plante. J'ai vu en fait que, lorsqu'un clic sur le bouton "Annuler" est effectué, la valeur False est renvoyée. Comme ma variable NumSem est de type integer il y a incompatibilité de type...

Comment faire pour garder la valeur saisie par l'utilisateur sous forme de nombre pour pouvoir la comparer et éviter ce plantage ?

Merci pour votre aide et bonne journée à vous tous

Denis
 
Trier par date Trier par votes
salut,

tu peut par exemple récupérer t'a valeur dans un Variant, ce qui te permet donc de récup autant les integer que les boolean et après tu test ta variable pour savoir son type en faisant un IsNumeric(TaVariable)
si tu reçois true c que ta chaine est numéric.
 
Vote positif 0 Vote négatif
Bonsoir Denis, Arnaud, le Forum

La réponse d'Arnaud est tout à fait correcte. Mais juste dans un autre ordre d'idée on peut aussi créer un gestionnaire d'erreur simple :

Sub InputBoxNumSem()
Dim NumSem As Byte

On Error GoTo ErrorHandler
NumSem = InputBox("Entrer le numéro de la semaine ")

'<<<< Ta Macro Ici

Exit Sub

ErrorHandler:
If Err = 13 Then
MsgBox "Vous devez Saisir un Numéro de Semaine, sinon la macro ne s'exécutera pas"
Else
MsgBox "Erreur non gérée " & Err.Number & " " & Err.Description
End If
End Sub

Bonne Soirée
@+Thierry
 
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

F
  • Question Question
XL 2021 bug "lib32" suite à passage à office 2021
Réponses
6
Affichages
345
fredl
F
Z
  • Question Question
XL 2021 InputBox and focus à la fin de la ligne d'une valeur par défaut
Réponses
4
Affichages
502
zedude
Z
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
695
loreak
L
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
411
Lu76Fer
G
  • Résolu(e)
XL 2019 [Résolu] VBA inputbox sélection d'une plage de cellulle
Réponses
2
Affichages
946
grodep
G
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
664
Lu76Fer
H
  • Résolu(e)
XL 2019 Erreur 1004 et erreur d'exécution 13 après Inputbox
Réponses
4
Affichages
896
Phil69970
D
  • Question Question
Microsoft 365 Erreur d'execution 13 Incompatibilité de type
Réponses
14
Affichages
2 K
fanch55
S
  • Résolu(e)
Microsoft 365 Amelioration Inputbox
Réponses
7
Affichages
988
sgangbadjo
S
@
  • Question Question
Autres Report de données Access avec VBA
Réponses
2
Affichages
662
@Tech
@
N
  • Résolu(e)
XL pour MAC AIDE erreurs VBA MAC-Excel (2019)
2
Réponses
25
Affichages
3 K
job75
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
M
  • Question Question
XL 2013 Somme par semaine
Réponses
5
Affichages
4 K
Mercenr
M
T
  • Question Question
Autres Arrêt macro avec InputBox - Message "Incompatibilité de type
Réponses
2
Affichages
2 K
tamatave33
T
L
  • Question Question
Word Liaison de données Word Excel et "méthode range de l'objet global a échoué"
Réponses
6
Affichages
2 K
Lapinturbo
L
W
  • Question Question
XL 2019 VBA msgbox IF ELSE et END IF
Réponses
0
Affichages
1 K
watt3211
W
R
  • Question Question
XL 2016 Gestion de chemin de fichiers + VBA
Réponses
0
Affichages
3 K
Ryoken
R
L
  • Question Question
XL 2013 Centrer une image (.jpg ou .png) verticalement et horizontalement dans une cellule excel.
Réponses
10
Affichages
3 K
ludolmrb
L
M
  • Question Question
liste dans userform pour choix inputbox
Réponses
1
Affichages
2 K
gilbert_RGI
R
  • Question Question
incompatibilité de type vba
Réponses
4
Affichages
1 K
Jacou
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…