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
119
Marvin57
M
M
  • Question
Microsoft 365 Conversion heures en jours
Réponses
8
Affichages
266
Marvin57
M
M
  • Résolu(e)
Microsoft 365 Code de tri
2
Réponses
22
Affichages
300
Dudu2
Dudu2
F
  • Question
Autres Combobox multiples dans un userform
Réponses
1
Affichages
130
herve62
herve62
J
  • Question
XL 2019 Format Heure COMBOBOX sur Feuille
Réponses
1
Affichages
436
fanch55
fanch55
A
  • Question
XL 2010 remplir plusieurs textbox en fonction d'un tri par deux comboBox
Réponses
8
Affichages
381
Dranreb
Dranreb
P
  • Résolu(e)
Microsoft 365 recherche heure dans une plage horaire
Réponses
12
Affichages
296
TooFatBoy
TooFatBoy
M
  • Résolu(e)
Microsoft 365 Code affichage
Réponses
11
Affichages
481
Marvin57
M
M
  • Question
Microsoft 365 Modifier code et format textbox
2 3
Réponses
35
Affichages
709
Marvin57
M
M
  • Résolu(e)
Microsoft 365 Formules pour tableaux
Réponses
4
Affichages
196
Marvin57
M

Membres actuellement en ligne

12 membres et 76 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
312 206
Messages
2 086 226
Membres
103 159
dernier inscrit
FBallea