Microsoft 365 Addition entre combobox

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Marvin57
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
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
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
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
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
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
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
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

I
  • Résolu(e)
XL 2016 Formule heure
2 3
Réponses
40
Affichages
215
Imte
I
C
  • Question Question
Microsoft 365 Combobox sans doublon et avec auto complétion et liée à une autre combobox
2
Réponses
24
Affichages
280
Dranreb
Dranreb
K
  • Résolu(e)
XL 2013 Lignes de résultats surnuméraires dans une ListBox
3 4 5
Réponses
73
Affichages
521
kiko_23
K
M
  • Résolu(e)
Microsoft 365 Formule pour différence
Réponses
4
Affichages
381
Marvin57
M
F
  • Question Question
Autres Combobox multiples dans un userform
Réponses
1
Affichages
449
herve62
herve62
M
  • Résolu(e)
Microsoft 365 Code de tri
2
Réponses
22
Affichages
936
Dudu2
Dudu2
M
  • Question Question
Microsoft 365 Conversion heures en jours
Réponses
8
Affichages
670
Marvin57
M
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
1 K
fanch55
fanch55
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
350
Olihoes
O
M
  • Question Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
457
Marvin57
M
P
  • Résolu(e)
Microsoft 365 recherche heure dans une plage horaire
Réponses
12
Affichages
828
TooFatBoy
TooFatBoy
R
  • Question Question
XL 2021 Calcul dans une requête SQL - Microsoft QUERY
Réponses
6
Affichages
198
crocrocro
C
A
  • Question Question
XL 2010 remplir plusieurs textbox en fonction d'un tri par deux comboBox
Réponses
8
Affichages
652
Dranreb
Dranreb
E
  • Question Question
XL 2016 Execution de deux ComboBox dans un UserForm
Réponses
7
Affichages
831
Jacky67
Jacky67
M
  • Résolu(e)
Microsoft 365 Formules pour tableaux
Réponses
4
Affichages
412
Marvin57
M
N
  • Question Question
Microsoft 365 Fonction si avec une valeur différente de 1
Réponses
3
Affichages
389
NILS19
N
A
  • Résolu(e)
XL 2010 ajout de textbox
Réponses
2
Affichages
812
Appo1985
A
A
  • Résolu(e)
XL 2013 Formule SI ET qui ne fonctionne pas toujours.
Réponses
9
Affichages
571
sylvanu
sylvanu
M
  • Résolu(e)
Microsoft 365 Doublons dans combobox
Réponses
13
Affichages
598
Marvin57
M
L
  • Question Question
Microsoft 365 Réinitialiser concombox et probleme modification bd
Réponses
2
Affichages
591
Dudu2
Dudu2
Retour