[XLS VBA]Change & Scrollbars

Question

Bonjour à tous... 
Voilà, j'ai un petit soucis dans une feuille excel où je gère des périodes horaires avec deux scrollbars.
La première fixe le début de la période et la seconde, la fin.
Pour éviter une erreur, chacune des scrollbars pilote l'autre afin que le début ne soit par supérieur à la fin et inversement, que la fin ne soit pas inférieure au début.

Voici le code sur l'évènement "change".

Private Sub Reg_Deb1_Change()
If Reg_Deb1.Value > Reg_Fin1.Value Then Reg_Fin1.Value = Reg_Deb1.Value
End Sub

Private Sub Reg_Fin1_Change()
If Reg_Fin1.Value < Reg_Deb1.Value Then Reg_Deb1.Value = Reg_Fin1.Value
End Sub

Le problème est que lorsque une scrollbar pilote l'autre, il doit y a une perte de focus de cette dernière, ce qui fait que lorsque je vais modifier la seconde, elle ne prend pas en compte le premier changement.. p

Bon... je ne sais pas si je me fais bien comprendre, le mieux est que vous testiez (Excel 2003)

Merci d'avance pour vos lumières ...

barbatruc01 · Answer

Snif ! Personne n'a une idée ?

[XLS VBA]Change & Scrollbars

1 réponse

Votre réponse

Discussions similaires