Discussion :

[Willsmeeth]

Bonjour à tous,

Mon problème est que je dispose sur un userform d'une textbox que j'aimerais incrémenter selon la valeur choisi dans 2 combobox.

Je m’explique! Mon programme à pour but par les utilisateurs de remplir un nombre de combobox où ils pourront renseigner leur nom, la date, l'engin sur lequel il effectue l'opération, le type d'opération et le temps qu'ils ont mis. Ils ont un bouton "ok" pour valider leurs données qui seront inscrites sur une feuille "EVENEMENTS" de mon classeur.

Le principe est que j'aimerais qu'ils puissent voir le nombre d'heure qu'ils ont rentré dans la journée ou dans la semaine afin que leur total d'heure soit OK.

En faite je cherche le code pour que dans ma textbox2, lorsque je choisi un nom dans ma nomcombobox et une date dans mon DTPicker1, il affiche le total d'heure rentré. De plus pour que le calcul soit plus rapide j'aimerais faire mon calcul sur mes 100 dernières saisies par exemple.

Je ne sais pas si je me suis bien expliquer mais je vous transmets mon fichier pour plus de compréhension.

Je vous remercie d'avance pour vos aides!

Cordialement.

M.GwénaëlOpérations_Service_Garage.xlsm

[Willsmeeth]

J'ai finalement réussi à me dépatouiller de ce problème alors je le communique pour tous!

Attention, il y a peut être d'autre manière bien plus simple néanmoins cela pourrait aider!

Pour explication j'ai ajouté un bouton qui viendra incrémenter ma textbox2 suivant le choix inscrit sur 2 combobox.
Le code de mon bouton est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton_compteur_Click()
Sheets("EVENEMENTS").Activate
 
Dim jour As String
jour = DTPicker1.Value
 
Dim nom As String
nom = nomComboBox.Value
 
For i = 0 To 100
If Range("h2").Offset(i) = jour Then  'penser à transformer en normbre
If Range("b2").Offset(i) = nom Then  'penser à transformer en normbre
 
result = result + Range("g2").Offset(i).Value
 
TextBox2.Value = result
 
Else
 
End If
End If
Next i
End Sub

De plus n'oubliez pas, si vous avez des chiffres à virgule et pour passer du texte en numérique, d'inscrire le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'Forcer les cellules de la colonne temps en numérique
Dim CL As Range
For Each CL In Range("G2:G10000") '<---- adapter la plage de cellules à traiter
CL.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
searchorder:=xlByRows, MatchCase:=False
CL.Value = CDbl(CL.Value)
CL.NumberFormat = "0.00"
Next

En espérant que cela aidera certaines personnes !

Cordialement!

M.Gwénaël