Textbox au format nombre

[lanoe]

Bonjour le forum,

J’ai un userform avec 122 textbox. Le résultat des textbox est utilisé pour réaliser des calculs. Je souhaite par conséquent pour les touches « ajouter une nouvelle fiche » et « Enregistrer les modifications « coller » les textbox au format nombre…et je ne parviens pas à trouver la formule.

Merci pour votre aide.

lanoe

 

[Guest]

Re : Textbox au format nombre

Lanoe

si toutes tes saisies sont des numériques avec la virgule comme séparateur tu peux mettre:

For i = 1 To 122
    Sheets(£feuille1).Cells(£ligne2, i) = cdbl(Me.Controls("t" & i))
Next i

Ou alors:

For i = 1 To 122
    If IsNumeric(Me.Controls("t" & i)) then
         Sheets(£feuille1).Cells(£ligne2, i) = cdbl(Me.Controls("t" & i))
    else
         Sheets(£feuille1).Cells(£ligne2, i) = Me.Controls("t" & i)
   end if
Next i

A+

 

[lanoe]

Re : Textbox au format nombre

Re,

Je n'ai que des numeriques, mais j'ai un probleme à reprendre ton code j'ai une erreur d'excusion 13. Est-il possibl de collé le code dans mon fichier du premier message.

Merci d'avance.

lanoe

 

[Guest]

Re : Textbox au format nombre

Re Lanoe,

Essaie de reproduire le problème sur un userform exemple plus simple. Là il faudrait tester les 122 textbox pour voir où est le problème.

Sinon vois l'aide excel sur les conversion de données de Texte vers numériques.

De plus c'est un sujet maintes fois abordé sur le forum. Fais des recherches.

A+

 

[lanoe]

Re : Textbox au format nombre

Re-,

Si la solution de jouer sur les textbox est trop compliquer j'ai trouvé sur le forum une proposition qui visent à "après avoir copié la valeur du textbox dans la feuille fait ceci sur les cellules concernées"

If IsNumeric(Cells(i, j)) Then Cells(i, j) = CDbl(Cells(i, j))

mais je n'arrive toujours pas à l'appliquer à mon cas...

https://www.excel-downloads.com/threads/vba-textbox-en-numerique.109372/

Si une bonne volonté peu m'aider...

lanoe