Remplissage d'une textbox selon 2 combobox

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ëlPièce jointe 197270

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:

---

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:

---

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