Temps

Bonjour,
Essaie ceci , ça devrait marché si j'ai bien compris.
Public Vl1 As Integer
Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case Is <> 0
Vl1 = ComboBox1.Value
End Select
End Sub
Private Sub ComboBox2_Change()
Select Case ComboBox2.ListIndex
Case 0
ActiveCell.Offset(0, 4).Value = Vl1 * 7
Case 1
ActiveCell.Offset(0, 4).Value = Vl1 * 7
Case 2
ActiveCell.Offset(0, 4).Value = Vl1 * 7
Case 3
ActiveCell.Offset(0, 4).Value = Vl1 * 7
Case 4
ActiveCell.Offset(0, 4).Value = Vl1 * 7
End Select
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem 1
.AddItem 2
.AddItem 3
.AddItem 4
.AddItem 5
.AddItem 6
.AddItem 7
.AddItem 8
.AddItem 9
.AddItem 10
.AddItem 11
.AddItem 120
End With
With ComboBox2
.AddItem "Vacation "
.AddItem "Temporaire"
.AddItem "Contractuel"
.AddItem "Ect........"
End With
End Sub

Cordialement
Abed_H


"Denys" wrote:

Bonjour à tous,

Sur un userform, l'usager peut choisir avec un combobox le nombre de
journées de vacances qu'il prend. Lorsque je veux transposer son résultat sur
ma feuille Excel, je souhaiterais que le résultat soit multilpli. par 7
heures.

Autrement dit, si on choisit 5 alors le résultat devrait être 35 hrs (5 X 7).

Voici ou j'en suis:

If ComboBox6.Value = "Vacation" Then ActiveCell.Offset(0, 4).Value =
Me.ComboBox8.Value / 7:

J'ai aussi essayé:

If ComboBox6.Value = "Vacation" Then ActiveCell.Offset(0, 4).Value =
Me.ComboBox8.Value * 7:

Ou se trouve mon erreur?

Merci

Denys

Bonsoir,
Peut-être:
'----------
ActiveCell.Offset(0, 4).Value = Me.ComboBox8.Value * 7/24
Format de la cellule de destination: [h] "Hrs"
'--------
Y a sûrement mieux
Salutations
JJ

"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de
news:516E32C9-5D5F-4CC3-AEF8-37C375922371@microsoft.com...

Bonjour à tous,

Sur un userform, l'usager peut choisir avec un combobox le nombre de
journées de vacances qu'il prend. Lorsque je veux transposer son résultat
sur

ma feuille Excel, je souhaiterais que le résultat soit multilpli. par 7
heures.

Autrement dit, si on choisit 5 alors le résultat devrait être 35 hrs (5 X
7).

Voici ou j'en suis:

If ComboBox6.Value = "Vacation" Then ActiveCell.Offset(0, 4).Value > Me.ComboBox8.Value / 7:

J'ai aussi essayé:

If ComboBox6.Value = "Vacation" Then ActiveCell.Offset(0, 4).Value > Me.ComboBox8.Value * 7:

Ou se trouve mon erreur?

Merci

Denys

Bonjour Abed et Jacky,

Merci à vous deux.... Tout est parfait

Denys

Bonsoir,
Peut-être:
'----------
ActiveCell.Offset(0, 4).Value = Me.ComboBox8.Value * 7/24
Format de la cellule de destination: [h] "Hrs"
'--------
Y a sûrement mieux
Salutations
JJ

"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de
news:516E32C9-5D5F-4CC3-AEF8-37C375922371@microsoft.com...

Bonjour à tous,

Sur un userform, l'usager peut choisir avec un combobox le nombre de
journées de vacances qu'il prend. Lorsque je veux transposer son résultat
sur

ma feuille Excel, je souhaiterais que le résultat soit multilpli. par 7
heures.

Autrement dit, si on choisit 5 alors le résultat devrait être 35 hrs (5 X
7).

Voici ou j'en suis:

If ComboBox6.Value = "Vacation" Then ActiveCell.Offset(0, 4).Value > > Me.ComboBox8.Value / 7:

J'ai aussi essayé:

If ComboBox6.Value = "Vacation" Then ActiveCell.Offset(0, 4).Value > > Me.ComboBox8.Value * 7:

Ou se trouve mon erreur?

Merci

Denys