Discussion :

[tatiana21]

g un pb que je narrive pas a débogué
le code c :

Code :

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

1
2
3
4
5
6
If tbK.Text = "" Then
  tbK.Text = "0"
Else: strK = Replace(tbK.Text, ".", ",")
 
End If
K = strK

alors kan dans la textbox je marque 0.8 par exemple cela fonctionne mais si je ne met rien ca beug
jaimerai savoir comment le débogué
merci d'avance

Balises "code" ajoutées par AlainTech
Merci d'y penser à l'avenir

[dbozec]

Est-ce qu'il ne faut pas que tu mettes strK = "0" après ton Then plutôt que tbK.Text = "0" ?
Parce que si je comprend bien c'est la valeur de strK que tu envoi au final et non tbK.

PS: utilises les balises Code lorsque tu en met plusieurs lignes comme ça.

[ouskel'n'or]

Hello,

tbK.Text

C'est un textbox ?
comment as-tu déclaré tsk ?
Quelle est la ligne qui coince ?

A+

[leroissejp]

Bonsoir,
Je viens d'essayer ton code (j'ai déclarer la variable K et celà fonctionne.
Qu'as-tu comme message d'erreur ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Command1_Click()
Dim K
If tbK.Text = "" Then
 tbK.Text = "0"
Else:  tbK.Text = Replace(tbK.Text, ".", ",")
End If
K = tbK.Text
MsgBox K
End Sub

jpleroisse

[tatiana21]

le message d'erreur c :

"erreur d'exécution '13" type incompatible

pour la textbox c la page form1 on insère une fenètre npour pouvoir entré du texte et moi kan je rentre 0.8 avec le code suivant g le message d'erreur précédent

Code :

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

1
2
3
4
5
6
If tbK.Text = "" Then
            tbK.Text = "0"
        Else: strK = Replace(tbK.Text, ".", ",") ' changement des points en virgules
 
        End If
        K = strK

g bien sur définit la variable k avec

Code :

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

dim K as single

et la variable strK avec

Code :

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

dim strK as single

voila

[ouskel'n'or]

Sur quoi travailles-tu ? VB ? VBA ? Quel version ?
Replace n'est pas accepté avec VBA97

A+

[ouskel'n'or]

PS - Enfin, son utilisation est différente
Extrait de l'aide

Recherche et remplace des caractères dans les cellules d'une plage. N'affecte ni la sélection ni la cellule active.

A+

[tatiana21]

je suis en vb6.0 je croi chui novice la dedans

[ouskel'n'or]

Tu déclares dim K as single alors que tu analyse un string. Replace est utilisé sur des string et tu dis k (single) = strk (string)
Déclare k as string ou variant, ou mets k = val(strk)
Pour val, je ne connais pas la syntaxe en vb pour un single mais c'est CDbl(strk) en VBA pour un double.

Tu essaies et tu nous dis

A+

[ProgElecT]

Suggestion

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
Private Sub Command1_Click()
tbK.Text = "Blabla 1 fois"
End Sub
 
Private Sub tbK_Change()
'pour modifier eventuellement l'entrée attribuée à tbK.Text
'exemple: tbK.Text = Mavariable
If tbK.Text <> "" Then
 If IsNumeric(tbK.Text) Then
  tbK.Text = Replace(tbK.Text, ".", ",") ' changement des points en virgules
  tbK.SelStart = Len(tbK.Text)
  Else
  MsgBox tbK.Text & Chr$(13) & Chr$(10) & "cette entrée n'est par numerique"
  tbK.Text = ""
 End If
End If
End Sub
 
Private Sub tbK_KeyPress(KeyAscii As Integer)
'surveiller l'entrée de l'utilisateur
'pour supprimer toutes autres caractéres que les chiffres et l'effacement
Select Case KeyAscii
 Case 8, 48, 57
 Case 46: KeyAscii = 44 'le point
 Case Else: KeyAscii = 0
End Select
End Sub

Par contre, pour moi, la virgule n'est pas utilisable pour du calcul (separateur decimal = . (un point))

[leroissejp]

Bonsoir,
Essaie comme ceci (Bien que le code que je t'ai founi avant fonctionne très bien)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Command1_Click()
  Dim K, strK As String
  If tbK.Text = "" Then
    tbK.Text = "0"
  Else: strK = Replace(tbK.Text, ".", ",") ' changement des points en virgules
    tbK.Text = strK
  End If
  K = strK
  Label1 = K
End Sub

J'ai ajouté un Label simplement récupérer la variable K

jpleroisse

[méphistopheles]

attention leroisse, si tu met: Dim K, strK As String , k sera décraré as string et strk as variant (ou l'inverse).

si tu veut tous les deux les déclarer à string, tu dois l'écrire deux pfois.

salut