Remplacer le . par une , dans un userform

**baggie** · 11/11/2007, 11h17

Bonjour,

j'ai d'abord cherché sur gougueul des solutions pour mon problème, mais en vain, ne sachant pas exactement où placer mon code :/

Voila mon problème : j'ai un userform dans mon vba, où l'utilisateur rentre des nombres dans des textbox du genre 9.6 ou 8.7 par exemple.

Sur ces textbox, je fais un contrôle de valeurs : si c'est infèrieur à 0 ou supérieur à 10, ce n'est pas bon.
Or, si je mets un "." dans mes valeurs, ça ne marche pas, alors que si je mets une "," ça marche. Le truc c'est que l'utilisateur ne met pas forcément une virgule mais il peut mettre un point.

Donc comment faire pour que ce point soit changé automatiquement en virgule quand on rentre un nombre ? ou du moins que ça soit détecté comme une virgule même si on a un point ?

J'avais testé ceci mais je ne sais pas où je dois le mettre :

Code :

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

1
2
3
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Donc si quelqu'un peut m'aider ... =)

**fred65200** · 11/11/2007, 11h55

bonjour

Code :

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

1
2
3
4
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
End Sub

cordialement

**baggie** · 11/11/2007, 12h56

Merci pour le code, il marche !

Par contre, est-ce que je dois faire à chaque fois le même code pour chaque textbox existante ?

Ou normalement un seul suffit pour toutes les textbox ?

**LeForestier** · 11/11/2007, 14h46

Bonjour,
une autre façon de faire,

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
'Solution 1: à mettre dans chaque textbox (Si peu de textbox)
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
       text1Box1.Text = Virgule(TextBox1.Text)
    End If
End Sub
'
'Solition 2: Si bouton appliquer.. Action...
Private Sub CommandButton1_Click()
    ValideTxt
End Sub
 
Sub ValideTxt()
Dim Cont As Control
    For Each Cont In Me.Controls
        If TypeOf Cont Is MSForms.TextBox Then
            Cont.Object.Text = Virgule(Cont.Object.Text)
        End If
    Next
End Sub
 
Function Virgule(Str As String) As String
    Virgule = Replace(Str, ".", ",")
End Function

J'ai testé, les 2 solutions fonctionnent
A toi de faire ton choix.
A+

**baggie** · 11/11/2007, 14h48

En fait, j'ai toujours un problème. J'ai donc mis le code actif pour toutes mes textbox et ça marche sauf à la fin quand je calcule mon résultat.

Les valeurs de mes textbox sont mises dans des cellules d'une feuille excel, mais là j'ai l'erreur comme quoi le nombre est stocké sous forme de texte. Du coup, ma formule de somme ne prend pas en compte les valeurs avec une ",".

Quelqu'un peut-il m'aider ?

[edit] je vais tester aussi cette seconde solution, mais je pense avoir le même problème après, dans ma feuille Excel :/ [/edit]

**LeForestier** · 11/11/2007, 15h02

Comment tu incorpore les textes dans les cellules ?
Essaye déjà avec... cellule = Val(TextBox.Text)
Sinon, met ta formule dans un poste.

**baggie** · 11/11/2007, 15h29

Code :

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

feuille.Cells(3, 1).Value = Me.TextBox1.Value

Voila mon code général pour toutes mes textbox.
La "," est bien prise en compte dans les textbox, mais après sous excel quand je fais "=SOMME(...)" ben ça me reconnait pas les valeurs.
Donc je vais tester ta solution pour voir ce que ça donne.

[Edit] solution testée : excel me vire ce qu'il y a après la virgule ! [/edit]

**LeForestier** · 11/11/2007, 16h00

Bon, c'est le contraire qu'il faut faire, mettre un point à la place d'une virgule.
J'ai aussi eu quelques petits problèmes pour résoudre..
Enfin voilà une solution qui je chez moi fonctionne.
J'ai ajouter l'insertion directe des textes dans les cellules, mais elles doivent êtres contigues.

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
'Solition 2: Si bouton appliquer.. Action...
Private Sub CommandButton1_Click()
    ValideTxt2
End Sub
 
'ATTENTION, fonction modifiée
Function Virgule(Str As String) As String
    Virgule = Replace(Str, ",", ".")
End Function
Sub ValideTxt2()
Dim Cont As Control
Dim i As Integer
    Workbooks("TonClasseur.xls").Activate
 
    Sheets("LaFeuille").Select
    i = 1
    For Each Cont In Me.Controls
        If TypeOf Cont Is MSForms.TextBox Then
            Cont.Object.Text = Virgule(Cont.Object.Text)
            Cells(i, 2).Value = Cont.Object.Value
            i = i + 1
        End If
    Next
End Sub

A+

**baggie** · 11/11/2007, 17h49

Bon ben j'ai testé, et de nouveau ça me fait comme au début, le contrôle de valeurs ne reconnait pas que le nombre est entre 0 et 10.

J'ai mis 9.6 dans la textbox mais il ne le reconnait pas ...

**LeForestier** · 11/11/2007, 18h41

Tu a fait un copier coller des dernières modifs ? car cette fois, chez moi ca fonctionne impec. Donc FAIRE UNE COPIER/COLLER.
Je te fait remarquer que j'ai marquer au dessus Fonction Modifiée.
A+

**baggie** · 13/11/2007, 20h22

J'ai bien fait exactement comme tu l'a donné, j'ai copié/collé et tout mais rien à faire ça ne marche pas.

C'est fort possible que ça vienne du fait que dans mon bouton_click il n'y a pas qu'une seule chose, non ?

**LeForestier** · 14/11/2007, 02h54

Alors met le code qu'il y a dans l'événement clic du bouton.
A+

**baggie** · 14/11/2007, 16h44

En fait dans l'évènement click du bouton, il y a déja d'autres trucs. Si je rajoute ça, et que je copie/colle comme tu as mis ben ça ne marche pas!

Sinon y'a pas moyen de forcer le type sous excel pour qu'il reconnaisse des valeurs avec "," ou "." ?

**fred65200** · 14/11/2007, 16h47

bonjour

Alors met le code qu'il y a dans l'événement clic du bouton.

@+

**baggie** · 14/11/2007, 17h02

Désolée, j'avais mal compris le sens de la phrase

Bon le code est pas très très court mais bon ...

[EDIT] Bon en fait maintenant ça marche, il faut que je copie le même code pour toutes mes textbox, mais ça marche !
Voila ce que j'ai mis :

Code :

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

1
2
3
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub

[/EDIT]

[EDIT 2] j'ai parlé trop vite, Excel ne me reconnait toujours pas les valeurs comme il faut, vous connaissez pas un moyen de forcer le type d'une cellule excel en type nombre ? [/EDIT 2]

(car il me le reconnait en type texte)

**LeForestier** · 14/11/2007, 23h47

Salut............................................j'abandonne

**fred65200** · 14/11/2007, 23h50

bonsoir,

Garde le moral LeForestier

**kiki29** · 15/11/2007, 04h29

Soir Bon voir http://www.developpez.net/forums/sho...d.php?t=436559

Invité · 15/11/2007, 06h19

Bonjour

Quel est le séparateur de décimal dans ton panneau de configuration ?

Et essayes après l'affectation de ta cellule

Code :

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

1
2
feuille.Cells(3, 1).Value = Me.TextBox1.Value
feuille.Cells(3,1).NumberFormat = "#,##0.00"

Le point dans la mesure ou le séparateur décimal est le point dans les options régionales de ton panneau de configuration windows.

**baggie** · 15/11/2007, 16h22

Le séparateur de décimales est la "," .

Sinon j'ai testé les solutions proposées (celle de l'autre topic également) et rien à faire :

- Soit c'est reconnu comme du texte qu'il faut convertir en nombre si je veux que ça marche
- Soit ça reconnait que c'est un nombre, mais ça ne le prend pas en compte dans le calcul de la somme ...

Remplacer le . par une , dans un userform

Macros et VBA Excel

Discussions similaires

Partager

Partager