Transformer les données extraitent d'une textebox en nombre

Question

Bonjour, j'ai créer un petit formulaire permettant de remplir un tableau.

De

12formulaire-avec-vba-v2-copie.xlsm (55.40 Ko)

ce tableau j'aimerais récupérer la dernière ligne pour l'afficher sous forme d'un graphique.

Pour afficher ce graphique j'ai simplement créer un bouton qui appel le graphique.

Je suis quelque peu bloqué à l'étape ou j'en suis. J'ai réussi à faire en sorte que la dernière ligne du tableau alimente mon graphique (la méthode n'est certainement pas la meilleure mais elle fonctionne). le problème auquel je suis confronté se trouve lors du report des données du userform dans le tableau.

En effet, pour exploiter ces données sous forme d'un graphique, je doit obtenir des "nombres" et pour l'instant j'obtiens des "textes".

je vous joins mon fichier, si quelqu'un à le temps d'y jeter un œil, modifier le à votre guise.

Désolé si je n'ai pas été très clair ou si mes méthodes sont bancales, je commence tout juste d'apprendre VBA et les fonctions d'excel.

Merci d'avance !

ThauThème · Accepted Answer

Bonjour Sirol, bonjour le forum,

Dans le tableau structuré j'ai formaté les colonne F, I et J comme Nombre avec 0 décimale. Les colonne G et H comme Nombre avec 1 décimale.
Puis j'ai rajouté du code pour forcer la virgule à la place du point dans les textboxes Préventif et Réglages et n'accepter que les valeurs {0, 1, 2, 3, 4, 5, 6, 7, 8 et 9} dans toutes les textboxes. Tu adapteras éventuellement...

Private Sub TxtCopeaux_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > 57 Or KeyAscii < 48 Then KeyAscii = 8
End Sub

Private Sub TxtReglages_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44: Exit Sub
If KeyAscii = 44 Then Exit Sub
If KeyAscii > 57 Or KeyAscii < 48 Then KeyAscii = 8
End Sub

Private Sub TxtPreventif_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44: Exit Sub
If KeyAscii = 44 Then Exit Sub
If KeyAscii > 57 Or KeyAscii < 48 Then KeyAscii = 8
End Sub

Private Sub TxtAttente_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > 57 Or KeyAscii < 48 Then KeyAscii = 8
End Sub

Private Sub TxtPannes_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > 57 Or KeyAscii < 48 Then KeyAscii = 8
End Sub

Ton fichier modifié :

10sirol-ep-v01.xlsm (52.89 Ko)