Valider modification par Combobox

[delirium]

Bonjours à tous les Exeliens.

Pourriez vous m'aider sur l'aplication que je réalise ?

Voila j'ai un Userform avec plusieurs combobox qui influent sur des cellules.

Voici mes codes :

Private Sub UserForm_Initialize()
'
'Detecte les valeurs des combobox
'
With ComboBox3
.RowSource = "A110:A134"
.ListIndex = Range("A107").Value + 0
End With
With ComboBox2
.RowSource = "B110:B121"
.ListIndex = Range("B107").Value + 0
End With
End Sub
'_____________________________________
'Combobox MINUTES LUNDI
'
Private Sub ComboBox2_Click()
Range("B107").Value = ComboBox2.ListIndex + 0
Range("N55") = Range("D107")
Range("O55") = "=IF(OR(RC[-2],RC[-1]),1,0)"
End Sub
'_____________________________________
'Combobox HEURES LUNDI
'
Private Sub ComboBox2_Click()
Range("B107").Value = ComboBox2.ListIndex + 0
Range("N55") = Range("D107")
Range("O55") = "=IF(OR(RC[-2],RC[-1]),1,0)"
End Sub

Je voudrais que ces parties du code :

Range("N55") = Range("D107")
Range("O55") = "=IF(OR(RC[-2],RC[-1]),1,0)"

ET :

Range("N55") = Range("D107")
Range("O55") = "=IF(OR(RC[-2],RC[-1]),1,0)"

s'execute que si l'utilisateur change le combobox qui correspond au morceau du code.

Par exemple : si l'on change le combobox2, le code :

Range("N55") = Range("D107")
Range("O55") = "=IF(OR(RC[-2],RC[-1]),1,0)"

sera executé.

Comment faire cela ?

Merci de m'aider et à bientôt.

 

[Robert]

Salut delirium, salut le forum,

Pourquoi nen pas placer ces lignes dans l'événement Change de la ComboBox plutôt que dans l'événement Click.

Private Sub ComboBox2_Change()
Range("N55") = Range("D107")
Range("O55") = "=IF(OR(RC[-2],RC[-1]),1,0)"
End Sub

Ce que je n'ai pas compris c'est que tu as deux ComboBox (MINUTES LUNDI et HEURES LUNDI) qui portent le même nom ComboBox2. Je pense que tu as dû te planter en recopiant les codes...

À plus,

Robert

 

[delirum]

Bonjours Robert.

Merci de ton coup de main.

Effectivement je me suis planté en recopiant mon code...

pour ce qui est de ta solution, il me semble l'avoir testé sans succés (mais je ne suis pas sur).

Je vais donc la re testé, et je te tiend au courant.

Merci et a+ tard