Microsoft 365 Addition entre combobox

M

Marvin57

XLDnaute Occasionnel
Bonjour à tout le monde,

Est-ce que quelqu'un pourrait me dire comment additionner deux combobox (combobox1 et combobox2) qui sont au format heure et mettre le redultat dans le textbox5.

C'est à dire, si le combobox1 affiche 07:00:00 et le combobox2 affiche 12:00:00 alors j'aimerai qu'il affiche en textbox5 le chiffre 5. Ou si le résultat donne par exemple un résultat de 01h30 alors il devrait afficher 1.5

Merci d'avance à vous.

Marvin57
 
Solution
Dudu2
Il se passe un étrange phénomène qui boucle sur le CDate et finit par planter brutalement Excel.
Le .Text aussi est problématique.
VB: 
Private Sub ComboBox1_Change()
    Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "hh:mm")
    Call SetTextBox5
End Sub

Private Sub ComboBox2_Change()
    Me.ComboBox2.Value = Format(Me.ComboBox2.Value, "hh:mm")
    Call SetTextBox5
End Sub

Private Sub SetTextBox5()
    On Error Resume Next
    If CDate(Me.ComboBox2.Value) > CDate(Me.ComboBox1.Value) Then
        Me.TextBox5.Value = Round(24 * (CDate(Me.ComboBox2.Value) - CDate(Me.ComboBox1.Value)), 0)
    Else
        Me.TextBox5.Value = Round(24 + 24 * (CDate(Me.ComboBox2.Value) - CDate(Me.ComboBox1.Value)), 0)
    End If
    On Error GoTo 0
End Sub
Trier par date Trier par votes
Dudu2

Dudu2

XLDnaute Barbatruc
Bonjour,

Tu mets dans ces 2 évènements:
- Private Sub ComboBox1_Change()
- Private Sub ComboBox2_Change()

VB: 
Private Sub ComboBox1_Change()
    On Error Resume Next
    Me.ComboBox1.Text = CDate(Me.ComboBox1.Text)
    Me.TextBox5.Text = 24 * (CDate(Me.ComboBox2.Text) - CDate(Me.ComboBox1.Text))
End Sub

Private Sub ComboBox2_Change()
    On Error Resume Next
    Me.ComboBox2.Text = CDate(Me.ComboBox2.Text)
    Me.TextBox5.Text = 24 * (CDate(Me.ComboBox2.Text) - CDate(Me.ComboBox1.Text))
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Dudu2

Dudu2

XLDnaute Barbatruc
Ou plus exactement, s'il peut y avoir recouvrement sur 24 heures:
VB: 
Private Sub ComboBox1_Change()
    On Error Resume Next
    Me.ComboBox1.Text = CDate(Me.ComboBox1.Text)
    On Error GoTo 0
    
    Call SetTextBox5
End Sub

Private Sub ComboBox2_Change()
    On Error Resume Next
    Me.ComboBox2.Text = CDate(Me.ComboBox2.Text)
    On Error GoTo 0
    
    Call SetTextBox5
End Sub

Private Sub SetTextBox5()
    On Error Resume Next
    If CDate(Me.ComboBox2.Text) > CDate(Me.ComboBox1.Text) Then
        Me.TextBox5.Text = 24 * (CDate(Me.ComboBox2.Text) - CDate(Me.ComboBox1.Text))
    Else
        Me.TextBox5.Text = 24 + 24 * (CDate(Me.ComboBox2.Text) - CDate(Me.ComboBox1.Text))
    End If
    On Error GoTo 0
End Sub
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
Dudu2 à dit:
Ou plus exactement, s'il peut y avoir recouvrement sur 24 heures:
VB: 
Private Sub ComboBox1_Change()
    On Error Resume Next
    Me.ComboBox1.Text = CDate(Me.ComboBox1.Text)
    On Error GoTo 0
   
    Call SetTextBox5
End Sub

Private Sub ComboBox2_Change()
    On Error Resume Next
    Me.ComboBox2.Text = CDate(Me.ComboBox2.Text)
    On Error GoTo 0
   
    Call SetTextBox5
End Sub

Private Sub SetTextBox5()
    On Error Resume Next
    If CDate(Me.ComboBox2.Text) > CDate(Me.ComboBox1.Text) Then
        Me.TextBox5.Text = 24 * (CDate(Me.ComboBox2.Text) - CDate(Me.ComboBox1.Text))
    Else
        Me.TextBox5.Text = 24 + 24 * (CDate(Me.ComboBox2.Text) - CDate(Me.ComboBox1.Text))
    End If
    On Error GoTo 0
End Sub
Cliquez pour agrandir...
Bonsoir Dudu2,

Merci pour votre intervention et aide. Mais j'ai un petit soucis.
J'aurai du vous mettre en premier temps les codes existants.

Alors voici comment étaient mes codes des deux combobox

VB: 
Private Sub ComboBox2_Change()
ComboBox2 = Format(ComboBox2, "hh:mm")
End Sub

Private Sub Combobox1_Change()
ComboBox1 = Format(ComboBox1, "hh:mm")
End Sub

donc si je rajoute vos codes cela donne un bug !!

Auriez-vous une idée pour cela SVP ?

Marvin57
 
Vote positif 0 Vote négatif
Dudu2

Dudu2

XLDnaute Barbatruc
Il se passe un étrange phénomène qui boucle sur le CDate et finit par planter brutalement Excel.
Le .Text aussi est problématique.
VB: 
Private Sub ComboBox1_Change()
    Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "hh:mm")
    Call SetTextBox5
End Sub

Private Sub ComboBox2_Change()
    Me.ComboBox2.Value = Format(Me.ComboBox2.Value, "hh:mm")
    Call SetTextBox5
End Sub

Private Sub SetTextBox5()
    On Error Resume Next
    If CDate(Me.ComboBox2.Value) > CDate(Me.ComboBox1.Value) Then
        Me.TextBox5.Value = Round(24 * (CDate(Me.ComboBox2.Value) - CDate(Me.ComboBox1.Value)), 0)
    Else
        Me.TextBox5.Value = Round(24 + 24 * (CDate(Me.ComboBox2.Value) - CDate(Me.ComboBox1.Value)), 0)
    End If
    On Error GoTo 0
End Sub
 
Vote positif 0 Vote négatif
Solution
M

Marvin57

XLDnaute Occasionnel
Dudu2 à dit:
Un bug, c'est plutôt vague.
Soit tu places ici ton fichier, soit tu donnes un screenshot du message d'erreur et de l'instruction qui plante en choisissant <Debug> sur le message d'erreur.
Cliquez pour agrandir...
Ré,
Désolé Dudu2, je m'étais trompé. Cela fonctionne très bien. 👍👍
J'avais pris un ancien fichier de hier, donc cela ne fonctionnait pas. 🤨

Merci beaucoup pour votre aide.
Peut-être à une prochaine fois.
Marvin57
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
Dudu2 à dit:
Il se passe un étrange phénomène qui boucle sur le CDate et finit par planter brutalement Excel.
Le .Text aussi est problématique.
VB: 
Private Sub ComboBox1_Change()
    Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "hh:mm")
    Call SetTextBox5
End Sub

Private Sub ComboBox2_Change()
    Me.ComboBox2.Value = Format(Me.ComboBox2.Value, "hh:mm")
    Call SetTextBox5
End Sub

Private Sub SetTextBox5()
    On Error Resume Next
    If CDate(Me.ComboBox2.Value) > CDate(Me.ComboBox1.Value) Then
        Me.TextBox5.Value = Round(24 * (CDate(Me.ComboBox2.Value) - CDate(Me.ComboBox1.Value)), 0)
    Else
        Me.TextBox5.Value = Round(24 + 24 * (CDate(Me.ComboBox2.Value) - CDate(Me.ComboBox1.Value)), 0)
    End If
    On Error GoTo 0
End Sub
Cliquez pour agrandir...
Re
Erreur chez moi également !!!!

J'étais trop rapide. Une seule fois il fonctionnait et voilà que cela bug à nouveau.
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
Dudu2 à dit:
Il se passe un étrange phénomène qui boucle sur le CDate et finit par planter brutalement Excel.
Le .Text aussi est problématique.
VB: 
Private Sub ComboBox1_Change()
    Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "hh:mm")
    Call SetTextBox5
End Sub

Private Sub ComboBox2_Change()
    Me.ComboBox2.Value = Format(Me.ComboBox2.Value, "hh:mm")
    Call SetTextBox5
End Sub

Private Sub SetTextBox5()
    On Error Resume Next
    If CDate(Me.ComboBox2.Value) > CDate(Me.ComboBox1.Value) Then
        Me.TextBox5.Value = Round(24 * (CDate(Me.ComboBox2.Value) - CDate(Me.ComboBox1.Value)), 0)
    Else
        Me.TextBox5.Value = Round(24 + 24 * (CDate(Me.ComboBox2.Value) - CDate(Me.ComboBox1.Value)), 0)
    End If
    On Error GoTo 0
End Sub
Cliquez pour agrandir...
Je ferai des essais dans la matinée et je reviendrai.

En attendant Merci à vous.
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
Dudu2 à dit:
Il se passe un étrange phénomène qui boucle sur le CDate et finit par planter brutalement Excel.
Le .Text aussi est problématique.
VB: 
Private Sub ComboBox1_Change()
    Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "hh:mm")
    Call SetTextBox5
End Sub

Private Sub ComboBox2_Change()
    Me.ComboBox2.Value = Format(Me.ComboBox2.Value, "hh:mm")
    Call SetTextBox5
End Sub

Private Sub SetTextBox5()
    On Error Resume Next
    If CDate(Me.ComboBox2.Value) > CDate(Me.ComboBox1.Value) Then
        Me.TextBox5.Value = Round(24 * (CDate(Me.ComboBox2.Value) - CDate(Me.ComboBox1.Value)), 0)
    Else
        Me.TextBox5.Value = Round(24 + 24 * (CDate(Me.ComboBox2.Value) - CDate(Me.ComboBox1.Value)), 0)
    End If
    On Error GoTo 0
End Sub
Cliquez pour agrandir...
Bonjour Dudu2,

voila, tout fonctionne maintenant.

Vraiment un Grand Merci à vous pour votre aide.

A très vite.
Marvin57
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Formule pour différence
Réponses
4
Affichages
352
Marvin57
M
M
  • Question
Microsoft 365 Conversion heures en jours
Réponses
8
Affichages
604
Marvin57
M
M
  • Résolu(e)
Microsoft 365 Code de tri
2
Réponses
22
Affichages
812
Dudu2
Dudu2
F
  • Question
Autres Combobox multiples dans un userform
Réponses
1
Affichages
409
herve62
herve62
J
  • Question
XL 2019 Format Heure COMBOBOX sur Feuille
Réponses
1
Affichages
581
fanch55
fanch55
A
  • Question
XL 2010 remplir plusieurs textbox en fonction d'un tri par deux comboBox
Réponses
8
Affichages
607
Dranreb
Dranreb
P
  • Résolu(e)
Microsoft 365 recherche heure dans une plage horaire
Réponses
12
Affichages
741
TooFatBoy
TooFatBoy
M
  • Résolu(e)
Microsoft 365 Code affichage
Réponses
11
Affichages
717
Marvin57
M
M
  • Question
Microsoft 365 Modifier code et format textbox
2 3
Réponses
35
Affichages
2 K
Marvin57
M
O
  • Résolu(e)
Microsoft 365 Générer une heure aléatoire entre 2 heures données. Mais sans les secondes
Réponses
8
Affichages
297
Olihoes
O

Membres actuellement en ligne

24 membres et 286 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 102
Messages
2 116 224
Membres
112 690
dernier inscrit
noureddinee