pb de copie de valeur de textbox vers cellule

[jf27]

bjr le forum

je calcule des valeurs dans un usf.
Ces valeurs sont correctes dans l'usf

Je recopie ces resultats pour l'ensemble des contrôles de l'usf dans une feuille excel.

Certaines valeurs recopiées sont alors incorrectes et énormes.

Par exemple une valeur de testbox à 60 dans un usf devient 332993289283 dans la cellule.

Comment déclarer mes variables et formatter les données pour éviter ca


Voici comment je recopie
voici comment je calcule le contenu d'un textbox

fcb = (nrjcb / icb)

fcb est un textbox, la valeur calculée et affichée dans l'usf est correcte

je recopie ainsi dans la feuille excel

For colonne = 3 To 200
    For Each ctr In UserFormNewFile.Controls
        If ctr.Name = Cells(4, colonne).Value Then
        Cells(ligne, colonne).Value = ctr.Value
    End If
    Next ctr
Next colonne

La majorité des valeurs sont correctes mais quelques unes sont énormes alors qu'elles sont correctes dans l'usf

...
Merci par avance

@+
JF

 

[tototiti2008]

Re : pb de copie de valeur de textbox vers cellule

Bonjour jf27,

à tester dans la boucle :

Cells(ligne, colonne).Value = CDbl(ctr.Text)

 

[jf27]

Re : pb de copie de valeur de textbox vers cellule

merci de ton aide

j'ai eu erreur d'incompatibilité de type avec ta proposition ?

Cells(ligne, colonne).Value = CDbl(ctr.Text)

 

[tototiti2008]

Re : pb de copie de valeur de textbox vers cellule

Re,

alors essaye peut-être :

Cells(ligne, colonne).Value = CDbl(Replace(ctr.Text,".",","))

 

[jf27]

Re : pb de copie de valeur de textbox vers cellule

non, mêm erreur...

comment puis je formatter les textbox en numérique ??

 

[tototiti2008]

Re : pb de copie de valeur de textbox vers cellule

Re,

tu ne peux pas. Une textbox contient du texte, à ton code de l'interpréter correctement.
Quel est ton séparateur décimal dans Excel ?
quand tu tapes des nombres décimaux dans la textbox tu les tapes avec des "." ou des "," ?

à tester peut-être :

Cells(ligne, colonne).Value = Val(ctr.Text)