Discussion :

[Cadet69]

Bonsoir à tous,

Je parviens à imposer le format nombre lors du renseignement d'un textBox mais lorsqu'il arrive à destination, il se change en texte.

Voici le code utilisé

Code :

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

1
2
3
4
5
6
7
8
Private Sub textBox1_Change() 'Force le format numérique pour le nombre entier du textBox1
    On Error Resume Next
 
    If Not IsNumeric(Right(TextBox1, 1)) Then
        MsgBox "Le caractere saisi n'est pas valide"
        TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
    End If
End Sub

Ce code fonctionne dans la mesure ou il impose de taper du chiffre dans le textBox.
En revanche, une fois arrivé à destination il renvoie bien le bon nombre mais au format texte malgré que la cellule d'arrivée soit bien au format nombre.

Pourriez-vous me dire l'erreur que je commet ici.

J'ajoute que j'ai le même genre d'ennuis pour un numéro de sécurité sociale.

Merci d'avance.

[Qwazerty]

Salut

Je ne vois pas le code qui transmet la valeur à une cellule mais le principe est de transtyper la valeur, par exemple :

Code :

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

1
2
 
macellule.value = cdbl(textbox1.text)

Petite remarque pour le contrôle du contenu du textbox, je serais toi je testerais le fait de contrôler la touche pressée en testant si elle fait partie des valeurs numérique 0 à 9 plus le séparateur décimal, tout ça dans KeyPress plutôt que dans change.
L'avantage ? J'en vois un très gros !
Si l'utilisateur à l'idée farfelue de corriger sa saisie en ajoutant un caractère ailleurs qu'en fin de texte :
"245" puis j'ajoute la lettre "A" entre le 2 et 4 ... ça garde le "A" et ça t'efface le 5...


++
Qwaz

[(WOLF)]

Bonjour, pardonnez ma question si elle est bête. la saisie dans le textbox est alphanumérique ou entièrement numérique ?

[Qwazerty]

Salut

Pas de question bête.

Le Textbox à l'origine accepte n'importe quel caractère, donc on peut le décrire comme alphanumérique.
Ici le but et de faire en sorte qu'il n'accepte que des valeurs numériques.

++
Qwaz

[(WOLF)]

Sans aucun doute Qwazerty, quand je lis l'enoncé je comprends que le résultat final(dans sa cellule) n'est pas exploitable en tant que donnée numérique. D'où ma question sur la nature de la saisie car je pense que l'erreur vient d'ici. Il renseigne dans sa cellule des lettres et des chiffres mais ne peut ensuite les exploiter pour du calcul :/

Ceci dit je peux me tromper car il est tard pour mon pauvre cerveau
:/

[Cadet69]

Bonsoir à vous,

Non, je confirme bien que je n'entre que du numérique dans mon textBox1.
D'autres textBox de mon userform ne renseignent que du texte.

Le problème est donc bien à l'arrivée.

Voici le code utilisé pour renseigner les cellules.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub CommandButton1_Click()
 
Dim ctrl As Control
Dim Colonne As Integer
Dim derligne As Integer
 
'TextBox1.Value = Format(TextBox1.Value, "0"" ""00"" ""00"" ""00"" ""000"" ""000"" ""00")
'TextBox4.Value = Format(TextBox4.Value, "dd/mm/yyyy") 'Voir le Private Sub TextBox4_Change()pour ce control
'TextBox5.Value = Format(TextBox5.Value, "0000")
'TextBox7.Value = Format(TextBox7.Value, "00000")
'TextBox9.Value = Format(TextBox9.Value, "00"" ""00"" ""00"" ""00"" ""00")
'TextBox10.Value = Format(TextBox10.Value, "00"" ""00"" ""00"" ""00"" ""00")
 
TextBox1.Value = CDbl(TextBox1)
'TextBox4.Value = CDbl(TextBox4)
'TextBox5.Value = CDbl(TextBox5)
'TextBox7.Value = CDbl(TextBox7)
'TextBox9.Value = CDbl(TextBox9)
'TextBox10.Value = CDbl(TextBox10)
 
'If Not IsDate(TextBox4) Then
        'MsgBox "Format incorrect"
        'TextBox4 = ""
        'Exit Sub
        'Else
        'MsgBox "Format correct"
        '...la suite de la procédure
    'End If
 
' derligne est le numéro de la première ligne vide du tableau à remplir
derligne = Sheets("Répertoire").Range("A2000").End(xlUp).Row + 1
 
' Balaye tous les control un par un avec le for ... next
For Each ctrl In UserForm1.Controls
 
' La colonne de destination est donnée par la valeur du TAG de chaque control
Colonne = Val(ctrl.Tag)
 
' Si la valeur du TAG n'est pas 0, l'intersection de derligne et de colonne est une cellule
' qui prendra la valeur "ctrl" cad celle contenue dans le control
If Colonne > 0 Then Sheets("Répertoire").Cells(derligne, Colonne) = ctrl
 
' Ici le next fait passer au ctrl suivant
Next
End
 
End Sub

Désolé j'ai gardé beaucoup de commentaires.

Merci à vous.

[(WOLF)]

Entendu, alors dans se cas là pourquoi pas essayer ceci, (a titre d'exemple si la cellule de destination est la C26)

Code :

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

Sheets(machin).range("c26") = Sheets(machin).range("c26") * 1

En multipliant par 1 vous forcez, il me semble, le format numérique.