Aide sur les userforms

Bonjour,

j'ai crée un userform, avec une zone de saisie, et un bouton valider.
dans la zone de saisie, l'utilisateur doit entrer un nombre, je dois récupérer ce nombre pour pouvoir m'en reservir (ça semble logique) :p
j'ai coller ce nombre dans une cellule de mon tableau excel, et au lieu de m'afficher le nombre que j'ai entré, il m'affiche:

Citation:

---

05/01/1900

---

8O

je vous montre mon code:

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim i As Integer i = TextBox1.Value Call test(i) Unload Me End Sub

---

Code:

---

1 2 3 4 5

Sub test(i) Windows("Logiciel.xls").Activate Range("M1").Value = i End Sub

---

La case en question n'a pas été formaté (clic droit, format de la celleule) pour contenir une date ? Auquel cas, l'entier i aura été converti en date (i = nombre de seconde depuis 01/01/1900 par exemple).

Pour un nombre à 2 décimales avec séparateur de milliers.

Code:

---

Selection.NumberFormat = "#,##0.00"

---

A adapter en fonction de votre type de données numériques

La solution de Solkien ce qu'il me fallait :?

par contre j'aimerai faire un test sur ce que l'utilisateur entre (enfait y'a 2 tests a faire),
Le 1er, vérifier qu'il a bien entré un entier
Le 2eme, que la valeur qu'il a rentré en < a 26

Aurore

Le test de la saisie d'un entier est déja effectué puisque que i est de type integer

Code:

---

1 2 3

Dim i As Integer i = TextBox1.Value

---

pour le 2 eme test

Code:

---

1 2 3 4 5 6 7 8

Sub test(i) Windows("Logiciel.xls").Activate If i < 26 Then Range("M1").Value = i End If   End Sub

---

Bonjour

Citation:

---

Envoyé par jfontaine

Le test de la saisie d'un entier est déja effectué puisque que i est de type integer

Code:

---

1 2 3

Dim i As Integer i = TextBox1.Value

---

pour le 2 eme test
[CODE]

---

Pas si simple que cela, car si tu rentres un chiffre qui n'est pas de type Integer (rentre 1 000 000 pour voir), tu vas avoir une erreur 06 pour dépassement de capacité, il va falloir gérer cette erreur.

Starec

Bonsoir,

Un bon million de façons de traiter la chose...
En voilà une "rigolote" (et loin d'être la plus simple) ... juste pour rigoler...:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Command2_Click() Dim a As String a = "10000000.2" MsgBox controlons(a) a = "100000002" MsgBox controlons(a) a = "10000000a" MsgBox controlons(a) End Sub     Private Function controlons(b As String) As String If Len(Trim(Str(Val(b) \ 1))) = Len(b) Then controlons = "entier" Else controlons = "non entier ou non numérique" End If End Function

---

Allez !
Je vous laisse découvrir toutes celles qui sont plus simples (elles sont légion)...;)

Bonne continuation

en fait j'aimerai que si l'utilisateur rentre un nombre > a 26, il relance le userform

il est aussi possible de faire le test lors de la saisie de ta zone.

dans l'éditeur VBA, tu selectionne ton userform et tu double clique sur la zone de saisie, ca va te positionner dans un code du type

Code:

---

1 2 3

Private Sub Textbox_Change()   End Sub

---

là dedans tu peux ajouter

Code:

---

1 2 3 4

If Not IsNumeric(Textbox.Value) or Textbox <= 26 Then MsgBox "Doit être une valeur numérique supérieure à 26" Textbox = "" End If

---

avec Textbox étant le nom de ta zone de saisie.