Addition de deux ComboBox VBA

Bonsoir,

Je voudrais afficher le résultat de la soustraction de mes deux ComboBox dans la cellule sur laquelle j'ai cliqué.

J'ai écrit cela, mais ça ne marche pas... ça vient de la deuxième ligne

Private Sub CommandButton2_Click()

ActiveCell.Value = ComboBox4.Value - ComboBox3.Value

Heures.Hide

End Sub

Je suis sûre que je tourne autour du pot depuis longtemps...

Merci pour votre aide précieuse

Salut Nono,

A adapter...

Target = Val(Me.ComboBox1.Text) - Val(Me.ComboBox2.Text)

A+

Bonjour,

Ou encore :

ActiveCell.Value = Evaluate(ComboBox4.Value - ComboBox3.Value)

Merci à vous curulis57 et Theze !!!

La première solution à l'air de fonctionner. Le "evaluate" je n'ai pas réussi en revanche...

Néanmoins j'ai un autre souci. En fait je soustrais des heures au format "hh:mm".

Et si je rentre par exemple 11:00 dans ma ComboBox4 et 8:00 dans ma ComboBox3, le résultat obtenu est une date : 03/01/1900 00:00:00

En fait excel fait le calcul sur les jours alors que je voudrais qu'il m'affiche "3:00".

Sauriez-vous m'aider ?

Merci beaucoup

Bonjour,

A ne pas donner toutes les informations dès le départ, et sans fichier, on peut tourner en rond longtemps !

Teste ainsi :

Private Sub CommandButton2_Click()
    Dim h
    h = Format(TimeValue(ComboBox4.Value) - TimeValue(ComboBox3.Value), "hh:mm")
    ActiveCell = h
    Heures.Hide
 End Sub

et indique le résultat que tu obtiens dans la cellule, en précisant si le contenu de la cellule a bien été reconverti en valeur horaire (cadré à droite dans la cellule, et non à gauche) et s'il a le format voulu.

Cordialement.

Super ! Merci MFerrand, ça marche !!!

J'obtiens un résultat sous le format "hh:mm:ss" dans ma cellule. C'est parfait !

Il est bien cadré à droite effectivement

Merci énormément !!

Bonne continuation.