Importer des heures d'un userform à un tableau

Bonsoir tous le monde.

Je suis nouveau et autodidacte, j'ai commencé excel il n'y a que quelques mois donc je vous prie d'être indulgent à mon égard. De même mon orthographe est loin d'être au top donc excusez-moi d'avances des quelques fautes présentes dans le texte.

Donc voila pour mon entreprise j'ai créé un userform ou grâce à la fonction "split" j'ai su séparer mes heures et mes minutes pour pouvoir les additionner.

Voici en gros le code :

Dim Heures As Integer

Pour le moment tous vas bien. C'est au moment de mettre ces données de la TextBox29 à deux cellules ( heures et minutes) différentes.

Pour cela j'ai écrit les lignes suivantes dans l’espoir que cela fonctionne mais en vain...

Private Sub valider_Click()

'Cells(derligne, 12) = b.Value

Je pense que le problème c'est que TextBox29 est en .Text et nom en .value mais je ne sais pas si c'est ça !!

Bonjour,

A tester et à adapter.

Cdlt.

Public Sub XXX()
Dim Heures As Long, Minutes As Long
    Heures = Split(ComboBox5.Value, "h")(0)
    Minutes = Split(ComboBox5.Value, "h")(1)
    If Minutes > 59 Then
        Minutes = Minutes Mod 60
        Heures = Heures + Int(Minutes / 60)
    End If
    TextBox29.Text = Format(Heures, "00") & "h" & Format(Minutes, "00")
End Sub

Private Sub valider_Click()
Dim a, b
Dim n As Long
    a = Split(TextBox29.Value, "h")(0)
    b = Split(TextBox29.Value, "h")(1)
    If MsgBox("Confirmez-vous l'ajout des données ?", vbYesNo, "Confirmation") = vbYes Then
        With Sheets("Feuil1")
            n = .Range("B200").End(xlUp).Row + 1
            .Cells(n, 11) = CLng(a)
            .Cells(n, 12) = CLng(b)
        End With
    End If
End Sub

Je vous remercie mille fois. Ce sont des personnes comme vous qui me motive à avancer et à progresser.

Il y avais quelques petites retouches à effectuer mais cela fonctionne. Encore une fois merci beaucoup

Private Sub valider_Click()

Dim a, b

Dim n As Long

a = Split(TextBox29.Value, "h")(0)

b = Split(TextBox29.Value, "h")(1)

If MsgBox("confirmez-vous l'ajout des donnée?", vbYesNo, "confirmation") = vbYes Then

n = Sheets("Feuil1").Range("B200").End(xlUp).Row + 1

Cells(n, 11) = CLng(a)

Cells(n, 12) = CLng(b)

RE,

Rien à propos de la modification apportée dans la procédure XXX ?

Cdlt.

"Rien à propos de la modification apportée dans la procédure XXX ? "

Je craint de ne pas comprendre votre question ?

Les seul modifications que j'ai apporter à vos lignes sont l'ajout de " Sheets("Feuil1")" avant le ".range" et j'ai retirer le "." devant le Cells(n, 11)

RE,

Dim Heures As Long, Minutes As Long
    Heures = Split(ComboBox5.Value, "h")(0)
    Minutes = Split(ComboBox5.Value, "h")(1)
    If Minutes > 59 Then
        Minutes = Minutes Mod 60
        Heures = Heures + Int(Minutes / 60)
    End If
    TextBox29.Text = Format(Heures, "00") & "h" & Format(Minutes, "00")

ha d'accord, merci.

Juste une dernière question,j'ai oublier d'écrire les deux lignes " minutes et Heures" ci-dessus et cela fonctionne donc quel est la différence entre :

If Minutes > 59 Then

Minutes = Minutes Mod 60

Heures = Heures + Int(Minutes / 60)

et

If Minutes > 59 Then

Minutes = 0

Heures = Heures + 1

Re,

Dans ton calcul, si heures=5 et minutes=70, le résultat est heures=6 et minutes=0.

Dans mon calcul, heures=6 et minutes=10 (70-60).

Teste.

Cdlt.

C'est génial, je ne savais pas d'ou venait le problème. Merci beaucoup et bonne soirée

Re,

Pense à clore le sujet.

Cdlt.