Discussion :

[magnum812]

Bonjour,

J'ai toujours un souci avec mes décimales.
J'ai un TextBox qui contient un chiffre avec une décimale, quand il s'insère dans la cellule appropriée (avec l'UserForm) il n'affiche pas la décimale.
Je ne sais pas comment formater la variable :
Quand je la formate avec As Variant, il insère la valeur comme du texte;
Quand je la formate avec As Integer, il insère la valeur avec une décimale à valeur 0 .
J'ai bien vu sur le site qu'il faut peut être utiliser "CDec" avec As Variant, mais je n'ai vu aucune explication sur le sujet...
Merci pour votre aide.

Cordialement
Magnum812

[mercatog]

Bonjour
Un TextBox donne en sortie un texte, si tu affecte directement la valeur contenue dans un textbox (qui est du texte) vers une cellule excel, se dernier convertit ce texte en conséquence selon sa particularité.

Pour pallier à ceci, il faut faire un petit traitement qui dépend aussi du séparateur décimal d'excel (pour le cas des nombres)

Exemple (si on a la virgule comme séparateur décimal)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim MaVal As Double
Dim Contenu As String
 
Contenu = TextBox1.Value                                             'On récupère la valeur texte du textbox
Contenu = Replace(Contenu, ",", ".")                                 'on remplace la virgule par le point (pour vba le point est toujours le séparateur décimal)
MaVal = Val(Contenu)                                                 'On convertit le texte en nombre (avec le point comme séparateur décimal)
Range("A1").Value = MaVal                                            'On écrit notre valeur dans A1
 
'Ce qui revient à ceci:
Range("B1").Value = Val(Replace(TextBox1.Value, ",", "."))
End Sub

[magnum812]

Bonsoir,

Merci à toi mercatog,
Je vais essayer ça demain et je te dirais si ça fonctionne...

Encore merci de m'avoir accordé de ton temps.

Cordialement
Magnum812

[Didier Gonard]

Bonjour,

Vois ceci : V-F. Écrire la valeur de notre textbox dans la feuille

cordialement,

Didier

[magnum812]

Bonjour,

Un grand Merci à toi ormonth
C'est exactement ce que je cherchais. Mon problème est résolu.
Merci également à toi mercatog, ton explication m'a permis de comprendre un peu mieux le comportement d'un Texbox.

Bonne journée à vous

Cordialement
Magnum812