[XLS VBA]Change & Scrollbars

Signaler
Messages postés
2
Date d'inscription
lundi 11 mai 2009
Statut
Membre
Dernière intervention
17 décembre 2010
-
Messages postés
2
Date d'inscription
lundi 11 mai 2009
Statut
Membre
Dernière intervention
17 décembre 2010
-
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 ...

1 réponse

Messages postés
2
Date d'inscription
lundi 11 mai 2009
Statut
Membre
Dernière intervention
17 décembre 2010

Snif ! Personne n'a une idée ?