Private Sub MultiPage1_Change()
ListBox1.ListIndex = 0: Synchro
End Sub
Option Explicit
Private MajIdx As Boolean, TopIdx As Integer, TColorIdx()
Private Sub UserForm_Initialize()
TColorIdx = Range("Coloridx").Value
MultiPage1.Value = 0
End Sub
j'ai réussi à l'occasion à stopper cette synchro inutile quand pas utilisée et qui me turlupinait en terme de ressourcesBonjour.
Synchro continue donc tout simplement à tourner quand on change de page et ça ne gêne en rien le fonctionnement des ScrollBar de la Page 2, et quand on revient à la page 1 il est tout naturellement toujours opérationnel.
https://www.excel-downloads.com/attachments/gd_couleurs-v0-beta-12-2017-xlsm.1002257/Je vous en ferai la primeur en cadeau de Noël
en tant que Béta Testeurs
Me rememorre-je quand sur mon écran apparutLeeloo : Big. Badabigboom. Big, boom.
Korben : Oui, big badaboom.
Leeloo : Badaboom.
Private Sub Image9_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim dRVB As Double
dRVB = GetDcColor
Lbl_P_RGB = GetRVB(dRVB, 1) & ", " & GetRVB(dRVB, 2) & ", " & GetRVB(dRVB, 3)
Lbl_P_dec = dRVB
Lbl_P_Hex = "&h" & Application.Dec2Hex(dRVB, 6)
Lbl_P_RVB.BackColor = dRVB
End Sub
désolé pour le plantage...Me rememorre-je quand sur mon écran apparut
Regarde la pièce jointe 1002248
j'avais activé arrêt sur toute les erreurs, sinon le débogage souligne Userform1.showUn souci ici quand je clique sur Annuler sur la boite de dialogue pour changer d'image
Private Sub Image9_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim dRVB As Double
On Error Resume Next
dRVB = GetDcColor
Lbl_P_RGB = GetRVB(dRVB, 1) & ", " & GetRVB(dRVB, 2) & ", " & GetRVB(dRVB, 3)
Lbl_P_dec = dRVB
Lbl_P_Hex = "&h" & Application.Dec2Hex(dRVB, 6)
Lbl_P_RVB.BackColor = dRVB
End Sub
Suite
Le changement d'image ne fonctionne qu'une fois.
Ensuite si on change de nouveau l'image, l'image ne change pas.
Il faut décharger l'userform pour changer une nouvelle fois d'image.
Tu n'as pas constaté ce phénomène sur ton PC ?Re
C'était déjà coché
Avec le On error plus d'erreur
Mais bizarrement, on a l'impression d'un code se lance deux fois
Le curseur mouline disparait puis remouline et enfin la boite de dialogue s'affiche.
Idem quand on survole la nouvelle image.