petit pb dans un code

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

Code:

---

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

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.

Hello,

Citation:

---

tbK.Text

---

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

A+

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:

---

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

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:

---

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:

---

dim K as single

---

et la variable strK avec

Code:

---

dim strK as single

---

voila

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

A+

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

Citation:

---

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

---

A+

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

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+

Suggestion

Code:

---

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

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

Code:

---

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

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 :wink: