Discussion :

[a.dequidt]

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:

05/01/1900

je vous montre mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Sub test(i)
    Windows("Logiciel.xls").Activate
    Range("M1").Value = i
End Sub

[Solkien]

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).

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.NumberFormat = "#,##0.00"

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

[a.dequidt]

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

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim i As Integer
i = TextBox1.Value

pour le 2 eme test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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