XL 2013 VBA LetterBox Format Heure

[Elodiie]

Bonjour,

Je ne parviens pas à résoudre mon problème....et là ça m'énerve lol!
Je m'explique je voudrais passer ma textbox2 au format Heures/Minutes/Seconde.
Elle correspond à un produit entre la valeur de ma textbox1 et une correspondance dans une table de donnés de ma combobox3.

Merci d'avance pour votre aide

 

[jp14]

Re : VBA LetterBox Format Heure

Bonsoir

Code à modifier

UserForm1.TextBox2.Text = FormatDateTime((Worksheets("Feuil1").Range("C" & ComboBox3.ListIndex + 1)) * TextBox1.Value, vbLongTime)

JP

 

[Elodiie]

Re : VBA LetterBox Format Heure

Mille Merci JP,
Cela marche trés bien!
Maintenant je recherche la possibilité de copier les valeurs de mes letterB et combobox dans un tableau (listing excel) et l'incrémenter au fur et à mesure.
Peux tu m'aider

Merci

 

[jp14]

Re : VBA LetterBox Format Heure

Bonsoir

Ci joint une modification de code pour afficher les jours si le nombre d'heure est supérieure à 24 H.

Private Sub ComboBox3_Click() 'Cet évènement survient lors de la frappe ou sélection d'une nouvelle valeur texte
    Dim a As String
    Dim b As Variant
    b = Int(Worksheets("Feuil1").Range("C" & ComboBox3.ListIndex + 1))
    If b >= 1 Then
    Me.TextBox2.Text = b & " jours et " & FormatDateTime((Worksheets("Feuil1").Range("C" & ComboBox3.ListIndex + 1)) * TextBox1.Value, vbLongTime)
    Else
    Me.TextBox2.Text = FormatDateTime((Worksheets("Feuil1").Range("C" & ComboBox3.ListIndex + 1)) * TextBox1.Value, vbLongTime)
    
    End If
    

End Sub

Il me faudrait plus d'explication ou un exemple pour pouvoir répondre à la question.


Bonne soirée

JP