Err 13 - Incompatibilité de Type - Calcul sur TextBox

Err 13 - Incompatibilité de Type - Calcul sur TextBox

Code problème début dans UserForm2

Code:

---

chq_Total = Me.TextBox14 + Me.TextBox15 + Me.TextBox16 + Me.TextBox17 + Me.TextBox18 + Me.TextBox19 + Me.TextBox20 + Me.TextBox21 + Me.TextBox22 + Me.TextBox23

---

Plusieurs essaie sur le même theme !
L'addition fct avec les 2 premiers TBox Mais ca me donne un chiffre concatener
TBox 14 +Tbox15
25+26 =2526 au lieu de 51

Code:

---

1 2 3 4 5 6

'chq_Total = Me.TextBox14 + Me.TextBox15 chq_Total = Me.TextBox14 + Me.TextBox15 + Me.TextBox16 + Me.TextBox17 + Me.TextBox18 + Me.TextBox19 + Me.TextBox20 + Me.TextBox21 + Me.TextBox22 + Me.TextBox23 'chq_Total = Me.TextBox14 * 1 + Me.TextBox15 * 1 + Me.TextBox16 * 1 + Me.TextBox17 * 1 + Me.TextBox18 * 1 + Me.TextBox19 * 1 + Me.TextBox20 * 1 + Me.TextBox21 * 1 + Me.TextBox22 * 1 + Me.TextBox23 * 1 'Total_ch = Format(45.23, "Currency") Total_ch = chq_Total UserForm1.TextBox17.Value = Sheets("Lst").Range("DsumCH")

---

J'ai tenter de corriger avec le code suivant (Une variante de solution trouvez ici) et plusieurs hres de lecture

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub PH_validate() Dim Ctrl As Control For Each Ctrl In UserForm2.Controls If TypeName(Ctrl) = "TextBox" Then MsgBox VarType(Ctrl) & " TB " & Ctrl If IsNumeric(Ctrl) Then Ctrl = Format(Ctrl.Value, "Currency") MsgBox Ctrl & " Numeric" 'CurrencyTransform (Ctrl) Else: MsgBox "Not Numeric Tbox" End If Else: MsgBox Ctrl & " Not TBox" End If Next Ctrl End Sub

---

Ca me dit que les chiffres sont bien en place mais le code continue de traiter ça comme du texte !

Je comprend pas pour les textBox traite les chiffres comme du texte et les + comme des &

Comment on peut débugger ça ? TRouver mon erreur ?

Merci
Note: les Dim sont OK (A mon avis !)

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit Dim Ws2 As Worksheet Dim cd_Secteur As String Dim cd_Depot As String Dim p_Date As Date Dim Total_ch As Currency   Private Sub CalculCH() Dim chq_Total As Currency

---

Rien d'etrange puisque comme leur nom l'indique les textbox donnent en sortie des texte le signe + appliqué aux string permet la concaténation
Pour faire la somme il faudra d'abord convertir.
Exemple

Code:

---

msgbox cdbl(textbox1)+cdbl(textbox2)

---

Toujours la même erreur 13
sur l'addition

Code:

---

1 2	chq_Total = CDbl(Me.TextBox14) + CDbl(Me.TextBox15) + CDbl(Me.TextBox16) + CDbl(Me.TextBox17) + CDbl(Me.TextBox18) + CDbl(Me.TextBox19) + CDbl(Me.TextBox20) + CDbl(Me.TextBox21) + CDbl(Me.TextBox22) + CDbl(Me.TextBox23) Total_ch = Format(chq_Total, "Currency")

---

Comme tu l'as dit TextBox c'est pour texte... Mais J'aimerais bien qu'il existe des ChiffresBox moi

J'envoie le detail de des TextBox dans excel et j'Obtiens l'addition avec BDSOMME(range). J'en conclut que les chiffre sont OK
Y a-t-l un truc pour savoir ou cela accroche ailleurs dans le module ?

Merci pour ton aide

Je vais laissé les convertisseur en place

Code:

---

chq_Total = CDbl(Me.TextBox14.value) + CDbl(Me.TextBox15.value) + etc

---

Solution Possible ?

Bonjour,

au lieu de te perdre en considération sur la qualité de la réponse apportée par mercatog, et une tentative de refaire le monde alors qu'il est déjà disponible dans l'aide VBA, peux-tu plutôt :

- nous montrer ton code entier
- indiquer la ligne exacte où ça plante
- nous donner quelques exemples de valeurs qui sont dans les textbox

là clairement, je vois deux possibilités :

- ta variable chq_Total (ou un autre) n'est pas du bon type
- t'as des chiffres avec un séparateur qui coince lors de la conversion (j'y crois moins)

Merci Joe

Code:

---

Dim chq_Total As Currency

---

et

Code:

---

Dim Total_ch As Currency

---

L'erreur est en jaune dans le calcul avec convertisseur indiquer par mercatog,
elle arrive quand on clique sur calcul du total des chèques UserForm2 dans le modele en PJ

J'ai pas beaucoup de variable - Elle sont toute Currency

Merci

re
bonsoir

Code:

---

truc= cdbl(replace(txtbox1,",",".")) +cdbl(replace(txtbox2,",","."))

---

après avoir remplacer le "," tu peut aussi utiliser "Val" a la place "cdbl" mais perso je le ferait en amont
dans le keypress ou keydown(forcer le point comme sep... decimal)
tu trouvera cela dans une de mes discussion de ces derniers jours et plein d'autre exemple sur ce forum ainsi que les contribs

Merci Patrick pour ton commentaire

entre temps j'ai résolue autrement !

Voir plus bas la Version finale du code qui fct

En fait la réponse que j'avait besoin de lire c'est :

Si vous voulez faire des calculs à partir de Valeur qui sont dans des TextBox
Créer des Variables avec les type approprié pour chaque textBox qui contient les valeurs requises pour les calculs
et utiliser ces variables pour faire les calculs et non les textBox (au lieu des TBox)
Comme ça la vie est belle !

SVP: Aux experts de me dire si ma conclusion est un "Best Practice" ou non !

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Option Explicit   Dim Ws2 As Worksheet Dim cd_Secteur As String Dim cd_Depot As String Dim p_Date As Date Dim Total_ch As Single Dim Ch1 As Single Dim Ch2 As Single Dim Ch3 As Single Dim Ch4 As Single Dim Ch5 As Single Dim Ch6 As Single Dim Ch7 As Single Dim Ch8 As Single Dim Ch9 As Single Dim Ch10 As Single   Private Sub CalculCH() Dim chq_Total As Single   'CalculCH1   Ch1 = Me.TextBox14 Ch2 = Me.TextBox15 Ch3 = Me.TextBox16 Ch4 = Me.TextBox17 Ch5 = Me.TextBox18 Ch6 = Me.TextBox19 Ch7 = Me.TextBox20 Ch8 = Me.TextBox21 Ch9 = Me.TextBox22 Ch10 = Me.TextBox23   chq_Total = Format(Ch1 + Ch2 + Ch3 + Ch4 + Ch5 + Ch6 + Ch7 + Ch8 + Ch9 + Ch10, "0.00")   Total_ch = Format(chq_Total + Sheets("Lst").Range("DsumCH"), "0.00") ' addition des ch en cours + ceux dans BD   UserForm1.TextBox17.Value = Format(Total_ch, "0.00") 'Update Ttl Ch dans UsF1   End Sub

---

Je relis le texte de Patrick

J'ai déja mis en place des validations "keypress" et c'est très efficace !!!

Concernant cbdl ca semble convertir des variables de type"XYZ" en Double. Mais moi je veut traiter les strings de mes TBox pour faire des calculs
J'ai essayer et cela n'a pas fct.

Par ailleurs comme je suis à Montréal et que je voit des "," au Lieu de "." dans certaine de mes boites....
Je retiens ta solution.
J'utilise Office 2013 Francais sur ma surface W10 et Office 2010 anglais W7 au bureau alors ca peut être mélangeant de passer d'un à l'autre avec le meme fichier.

à suivre

Merc