[VBA] : Nombres provenant de textBox dynamiques Résolu/Fermé

Question

Bonjour, 

J'ai un programme me permettant de rentrer des notes à l'aide de textBox créées dynamiquement en fonction de la quantité souhaitée. Lorsque je renvoie ces valeurs sur ma feuille excel, mes nombres sont considérés comme du texte. Ainsi,si je souhaite calculer une moyenne c'est impossible. Comment pourrais-je transformer ces valeurs en nombres sachant que ce sont des textBox dynamiques ?
Merci



Configuration: Windows 7 / Chrome 24.0.1312.52

lermite222 · Answer

Re,
Dans ta question précédante sur les TextBox créer en dynamique  tu parlais du nom des élèves.
C'est toujours la même chose mais avec des nombres ? entier ou décimale ?

anton26 · Answer

Re, 
Oui c'est le même principe mais avec des nombres .

pijaku · Answer

Bonjour Messieurs,
Mr Lermitte222,

Excusez l'incruste...

Si tu utilises ce code pour transférer les textbox dans ta feuille :
Worksheets("trimestre 1").Cells(CtrlIndex + 9, 1).Value = Ctrl.Text
il "suffit" de :
1- tester si la saisie dans le contrôle est bien numérique
2- si oui, transformer le contenu du textbox (bien qu'étant composé de nombres, un textbox est toujours "string") en Double si décimale (je penses que s'agissant de notes, on aura des ,5 ou des moyennes à un moment donné. Non?)

'Test si numérique :
If IsNumeric(Ctrl.Text) Then
    Worksheets("trimestre 1").Cells(CtrlIndex + 9, 1).Value = CDbl(Ctrl.Text)
Else
    MsgBox "pas numérique"
End If 
Restera, après, le problème d'erreur de saisie de l'utilisateur (point au lieu de virgule et/ou l'inverse...)
En effet, le séparateur décimal peux, selon s'il est utilisé ou non, faire que votre note saisie dans le textbox soit ou non considérée comme décimale.
Le cas échéant on peux utiliser Replace, comme ceci :
'remplace le point par une virgule : 
Ctrl.Text = Replace(Ctrl.Text, ".", ",")

lermite222 · Answer

Re, 
@ Heliotte bonjour, Ton principe est le bon
@anton26 Version2 qui prend les deux Texte et nombre
 
 A+

anton26 · Answer

Merci à vous deux. C'est impeccable.

[VBA] : Nombres provenant de textBox dynamiques

5 réponses

Discussions similaires