Vba : faire des sommes sur textbox

Résolu/Fermé
Beeloobop Messages postés 63 Date d'inscription jeudi 11 février 2010 Statut Membre Dernière intervention 4 décembre 2010 - 19 août 2010 à 14:43
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 19 août 2010 à 15:36
Bonjour,

J'ai réalisé un programme à l'aide de plusieurs userform qui me permet d'entrer dans une feuille un nombre d'heures travaillées.

Sur la feuille excel j'aimerais ensuite sommer ces heures pour avoir un cumul d'heures travaillées (dans le mois, par personne etc...). Mais Excel ne le fait pas et j'ai du mal à saisir pourquoi.

Les heures sont saisies en centièmes d'heures, il y a donc des décimales. On a donc 3,25 ou 3.25 pour exprimer 3 heures et quart.

Voici le code :

Private Sub Validbtn3_Click()
If Tempsbox = "" Then
MsgBox "Veuillez entrer un temps.", vbExclamation
Exit Sub
End If

Dim Remplacement As String
Dim Aremplacer As String
Remplacement = ","
Aremplacer = "."
Tempsbox.Text = Replace(Tempsbox, Aremplacer, Remplacement)

If Not IsNumeric(Tempsbox.Text) Then
Cancel = True
MsgBox "Veuillez entrer un nombre d'heures valide!"
Exit Sub
End If

Dim Lg%
Lg = Range("F65536").End(3).Row
Range("h" & Lg + 1) = UserForm3.Tempsbox
Unload UserForm3
Load UserForm3
UserForm3.Show
End Sub

Actuellement, le programme me rentre systématiquement 3,25 (ou autre) dans la colonne h. Mais la cellule E2 qui contient une bête somme sur la colonne H reste désépérement vide. Comme si les 3,25 étaient du texte et pas des nombres.

Une idée qui pourrait m'aider?

Merci à vous!

Beeloobop

1 réponse

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 943
Modifié par Mytå le 19/08/2010 à 14:53
Salut le forum

Une TextBox retourne une valeur texte, pour la convertir en numérique

Si la saisie est la virgule :
CDbl(UserForm3.Tempsbox)

Si la saisie est le point :
Val(UserForm3.Tempsbox)

Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
1
Beeloobop Messages postés 63 Date d'inscription jeudi 11 février 2010 Statut Membre Dernière intervention 4 décembre 2010 11
19 août 2010 à 15:17
Merciiiiiii!!!!

C'est impeccable!! ça fonctionne nickel! :)
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 943
19 août 2010 à 15:36
Re le forum

Bien heureux que ton problème soit solutionné.

A une prochaine

Mytå
0