Problème compatibilité VBA windows XP et seven

Bonjour,

J'ai réalisé un code sous VBa avec un Userform.... et tout fonctionne chez moi (windows XP service 3). En revanche quand je suis au bureau (windows 7 entreprise) le programme bloque à

Code:

---

1 2 3 4 5 6 7 8

Dim PenteFruit As Double If ComboBox1.Text = "H/L (ex: 1/2)" Then PenteFruit = UserForm1.TextBoxHpente.Value / UserForm .TextBoxLpente.Value Sheets("FOSSE_Aval").Range("I5").Value = UserForm1.TextBoxH.Value / PenteFruit 'calcul longueur L1 et renvoi dans feuille UserForm1.LabelL1.Caption = Round(Sheets("FOSSE_Aval").Range("I5").Value, 2)

---

et j'ai le message

Citation:

---

erreur d'exécution 13 - incompatibilité de type

---

Je ne comprends pas vraiment le problème. Je précise tout de même que la cellule "I5" est renommée "Largeur" quand je clique sur la cellule dans excel. Mais je ne pense pas que ce soit le problème étant donné que dans la première partie de mon programme le même cas se présente.

Est-ce un problème de compatibilité windows ?

Merci de votre aide

Apparemment après plusieurs tests, le problème vient de la récupération de la valeur dans le userform.

En définissant une variable en VARIANT, j'ai tenté de récupérer la valeur

dim A as variant

A = UserForm1.TextBoxH.Value 'valeur de H dans la textbox

et VBA précise que A est de type STRING.....

Donc 2 questions :
1/ Pourquoi le programme fonctionne sur mon PC (windows XP excel 2007 ou 2010 je ne sais plus car je suis au bureau là) et pas sur mon PC du travail (windows 7 excel 2010) ?

2/ Pourquoi userform.textbox.value renvoie un STring et pas une valeur numérique ? et du coup comment la convertir en valeur numérique ?

MERCI pour votre aide

Bonjour,

Hum... Pour la compatibilité xp -> seven je ne sais pas je risque peut être d'avoir le même problème je travaille sous xp... On verra.

Pour ce qui est de passé a une valeur numérique, il suffit d'utiliser la fonction

Code:

---

CInt(userform.textbox.value)

---

Si bien sur tu veux un Integer, sinon il y a également CSgl, CDbl.

Merci de votre réponse.

Au final après de nombreuses recherches j'ai fini par comprendre que cela venait du paramétrage régional virgule ou point.

Pour éviter ce problème en changeant de PC, j'utilise

Code:

---

Val(Userform1.TextBox.text)

---

Donc pour moi pas de problèmes XP -> seven mais un problème d'option régionale

Problème résolu :D