Bonjour,
J'ai un fichier avec un USF qui va servir à plusieurs personnes dans mon entreprise.
J'ai un souci de transfert des valeurs de mes Textbox de mon USF vers ma feuille Excel suivant les postes utilisés. Apparemment, le problème vient du fait que mon séparateur décimal est le point sur mon poste et que sur certains autres postes, le séparateur décimal est la virgule.
Dans mon code, j'ai saisi :
With Worksheets("Fiche")
.Range("B19") = 1
.Range("B21") = CDbl(BoxNominal.Value)
.Range("B23") = CDbl(BoxPlus.Value)
.Range("B25") = CDbl(BoxMoins.Value)
.Range("B27") = LabelTol.Caption
End With
Sur mon poste, pas de problème. sur un autre poste, j'ai le message d'erreur "Incompatibilité de type".
Il me semble bien que la fonction CDbl convertit mes Textbox en valeur numérique ? non ?
Quelqu'un pourrait-il me dire où je fais erreur ?
Merci de votre collaboration
J'ai un fichier avec un USF qui va servir à plusieurs personnes dans mon entreprise.
J'ai un souci de transfert des valeurs de mes Textbox de mon USF vers ma feuille Excel suivant les postes utilisés. Apparemment, le problème vient du fait que mon séparateur décimal est le point sur mon poste et que sur certains autres postes, le séparateur décimal est la virgule.
Dans mon code, j'ai saisi :
With Worksheets("Fiche")
.Range("B19") = 1
.Range("B21") = CDbl(BoxNominal.Value)
.Range("B23") = CDbl(BoxPlus.Value)
.Range("B25") = CDbl(BoxMoins.Value)
.Range("B27") = LabelTol.Caption
End With
Sur mon poste, pas de problème. sur un autre poste, j'ai le message d'erreur "Incompatibilité de type".
Il me semble bien que la fonction CDbl convertit mes Textbox en valeur numérique ? non ?
Quelqu'un pourrait-il me dire où je fais erreur ?
Merci de votre collaboration
Dernière édition: