salut

soucis mon fichier marche très bien sur Windows et pas sur mac

l userform avec la liste déroulante s ouvre mais la liste de choix et vide

dans ma feuille
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Option Explicit
                Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rep As Boolean
Cancel = False
If Not Intersect(Target, Range("e5:e500")) Is Nothing And UserForm1_reference.Visible = False Then
UserForm1_reference.Show
End If
End Sub
dans l userform
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Activate()
  Me.ComboBox1_reference.DropDown
End Sub
 
Private Sub ComboBox1_reference_Change()
Dim R
R = Array(7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28)
ActiveWindow.ScrollColumn = R(ComboBox1_reference.ListIndex)
Unload Me
End Sub
merci pour l aide !!!