[VBA][EXCEL]Conversion d'une chaine en single

Bonjour à tous

J'utlise une UserForm afin d'acquérir des données. le problème est lorsque je veux affecter la valeur d'une textbox dans une variable de type single

Code:

---

Zone(compteur).Surf = ufDonnéesZone.tbSurface.Value

---

lorsque j'execute ce code il me donne une erreur de type 13 soit une incompatibilite de type

je vous remercie d'avance pour vos reponse

Tu n'as pas ça dans ton aide ?

Citation:

---

Les fonctions ci-dessous convertissent une expression en un type de données spécifique.

Syntaxe

CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CVar(expression)
CStr(expression)
L'argument expression peut être n'importe quelle expression de chaîne ou expression numérique.

Types renvoyés

Le nom de la fonction détermine le type renvoyé, comme le montre le tableau suivant :

Fonction Type renvoyé Plage de valeurs de l'argument expression
CBool Boolean Toute chaîne ou expression numérique valide.
CByte Byte 0 à 255.
CCur Currency -922 337 203 685 477,5808 à 922 337 203 685 477,5807.
CDate Date Toute expression de date valide.
CDbl Double -1,79769313486232E308 à
-4,94065645841247E-324 pour les valeurs négatives ; 4,94065645841247E-324 à 1,79769313486232E308 pour les valeurs positives.
CDec Decimal +/-79 228 162 514 264 337 593 543 950 335 pour les nombres sans décimales. La plage de valeurs des nombres à 28 décimales est
+/-7,9228162514264337593543950335. Le plus petit nombre différent de zéro est 0,0000000000000000000000000001.
CInt Integer -32 768 à 32 767 ; les fractions sont arrondies.
CLng Long -2 147 483 648 à 2 147 483 647 ; les fractions sont arrondies.
CSng Single -3,402823E38 à -1,401298E-45 pour les valeurs négatives ; 1,401298E-45 à 3,402823E38 pour les valeurs positives.
CVar Variant Même plage de valeurs que le type Double pour les nombres et que le type String pour les chaînes non numériques.
CStr String Les valeurs renvoyées par Cstr dépendent de l'argument expression.

---

A+

Tout d'abord je vais repondre a ta question

non je n'ai pas trouver ca dans l'aide avec l'index en tout cas
sinon en utilisant Csng j'ai toujours le mm pb d'incompatibilité de type

Code:

---

Zone(compteur).Surf = CSng(ufDonnéesZone.tbSurface.Value)

---

je vais te donner la définition de mon type ou cas ou ca viendrait de la.

Code:

---

1 2 3 4 5 6 7 8 9

Public Type DonneesZones   Nom As String Surf As Single GV As Single ModeChauffagePrimaire As String ModeChauffageSecondaire As String   End Type

---

Meme quand je passe par l'intermediaire d'une variable tampon ca ne marche pas

A priori l'erreur apparaît , si le text box et vide ... où s'il contient des caractéres autre que des chiffre ou , ... , fais une petite recherche sur le forum .. il y as pas longtemps, un post à traité du probléme d'autoriser ou pas certain cractéres dans textbox...

puis avant convertion du textbox ... assure toi qu'il ne soit pas vide ...

Code:

---

1 2 3 4 5

if ufDonnéesZone.tbSurface.Value <> "" then Zone(compteur).Surf = ufDonnéesZone.tbSurface.Value else Zone(compteur).Surf = 0

---

:roll: :wink:

PS .. je vais voir si je retrouve ce fameux post..
[edit] .. bon j'ai trouvé et donc j'en ai déduit ce code à rajouter à ton text box...

Code:

---

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

Private Sub tbSurface_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)   Select Case KeyAscii Case Asc(",")   Case Asc(".") KeyAscii = Asc(",") 'Remplace . par virgule Case Else If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 End Select   End Sub

---

Salut,

Le premier test à faire, je pense, est de contrôler que tu a bien affaire à une valeur numérique.

Pour cela tu as une fonction qui s'appelle "IsNumeric".

Pour ton cas, ça devrait donner quelque chose comme cela:

Code:

---

1 2 3 4 5

If IsNumeric(ufDonnéesZone.tbSurface.Value) then Zone(compteur).Surf = CSng(ufDonnéesZone.tbSurface.Value) Else MsgBox "Valeur non numérique" End If

---

Voilà

J'espère que cela te donnera des pistes pour résoudre ton problème

+

Théo

Je remercie tt le monde pour toutes les réponses.

le problème venait de la virgule sous d'excel donc un grand merci à bbil