Contrôler le type

Bonjour,

je souhaiterais contrôler le type de donnée (integer ou string) que l'utilisateur entre dans une textbox d'un userform, et afficher un messsage d'erreur si c'est une chaine et non un nombre. Mon problème est que je ne trouve pas de fonction permettant de déterminer le type de la saisie. Cela existe t'il et si oui, qu'est-ce?

Merci d'avance.

seb13

Bonsoir,

IsNumeric ou IsDate par exemple

Salut
x = Application.InputBox("corps de la question", "Titre", "val défaut", , , , , 1)
la valeur du type peut être :

Code:

---

1 2 3 4 5 6 7 8 9

Valeur Signification 0 Une formule. 1 Un nombre. 2 Texte (une chaîne). 4 Une valeur logique (True ou False). 8 Une référence de cellule, sous la forme d'un objet Range. 16 Une valeur d'erreur, telle que #N/A. 64 Un tableau de valeurs.

---

A+

Gorfael,

Ce que tu décris, ce sont les valeurs que peut prendre la fonction TYPE() de la feuille de calcul. Je ne crois pas que ce soit ce qu’il veut.

Il cherche à repérer si ce qu’a entré l’utilisateur dans un Textbox par exemple est un nombre :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() If IsNumeric(TextBox1) Then ' Traitement Else MsgBox "L’information à fournir doit être un nombre !" End If End Sub

---

à étoffer bien sûr.

Merci pour vos réponses rapides.

Citation:

---

Envoyé par Bigalo

Gorfael,

Ce que tu décris, ce sont les valeurs que peut prendre la fonction TYPE() de la feuille de calcul. Je ne crois pas que ce soit ce qu’il veut.

Il cherche à repérer si ce qu’a entré l’utilisateur dans un Textbox par exemple est un nombre :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() If IsNumeric(TextBox1) Then ' Traitement Else MsgBox "L’information à fournir doit être un nombre !" End If End Sub

---

à étoffer bien sûr.

---

Salut
non ce n'est pas la fonction TYPE()
il pourrait utiliser VARTYPE() pour savoir si c'est une chaîne, un nombre etc;;;
Mais ce que je proposait c'est de vrrouiller la réponse de inputbox à un nombre : si la réponse est autre chose, la boite la refuse.
Ce ,'est pas une instruction, mais une méthode de l'objet application
A+

Excuse-moi, j’ai lu trop vite, parce que ce sont les mêmes valeurs que celles que renvoie TYPE().

Toutefois, sur le fond je ne suis toujours pas d’accord : la question initiale portait sur le contrôle d’un TextBox dans un UserForm. Rien ne permet de penser que le UserForm ne comporte pas d’autre contrôle et peut être remplacé par un InputBox.

En outre, et je l’ai déjà exprimé à plusieurs reprises, je considère qu’InputBox (qu'il s'agisse de la fonction ou de la méthode) est une cochonnerie, bien pire encore que les Select et Activate des débutants, à éviter systématiquement et à remplacer par un UserForm, bien plus souple d’emploi.

Soir Bon, à adapter

En effet, un InputBox ne peut pas être utilisé ou alors l'irruption de nombreuses petites fenêtres ferait mal aux yeux. Merci pour votre aide.

Et merci à kiki29, ton code va m'être bien utile. C'est un moyen auquel je n'avais pas du tout pensé et qui va me faciliter la tâche pour d'autres contrôles à effectuer.

Citation:

---

Envoyé par Bigalo

Excuse-moi, j’ai lu trop vite, parce que ce sont les mêmes valeurs que celles que renvoie TYPE().

Toutefois, sur le fond je ne suis toujours pas d’accord : la question initiale portait sur le contrôle d’un TextBox dans un UserForm. Rien ne permet de penser que le UserForm ne comporte pas d’autre contrôle et peut être remplacé par un InputBox.

En outre, et je l’ai déjà exprimé à plusieurs reprises, je considère qu’InputBox (qu'il s'agisse de la fonction ou de la méthode) est une cochonnerie, bien pire encore que les Select et Activate des débutants, à éviter systématiquement et à remplacer par un UserForm, bien plus souple d’emploi.

---

Salut
et moi, jai confondu les questions Oups :oops:
J'étais parti sur vartype, puis j'ai eu une discussion sur inputbox, et j'ai confondu les 2 sujets.
Des fois, les questionneurs doivent être forts pour comprendre de quoi je parles. Heureusement c'est pas souvent, mais je vais essayer de faire attention
A+