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

A voir également:

Vba : faire des sommes sur textbox
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Autofill vba ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 953
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)]

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! :)

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 953
19 août 2010 à 15:36

Re le forum

Bien heureux que ton problème soit solutionné.

A une prochaine

Mytå

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

appliquer une pause dans une macro vba excel

Bonjour,

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0