Bonjour le forum,
J'ai un problème avec un macro de saisie intuitive dans une combobox,
Quand je veux ouvrir l'userform, l'erreur "type 70, permission refusé" apparait.
Private Sub UserForm_Initialize()
Set f = Sheets("BASE TEST")
choix1 = Application.Transpose(f.Range("A2:A" & f.[a65000].End(xlUp).Row).Value)
Me.ComboBox1.List = choix1
Me.ComboBox1.SetFocus
End Sub
Private Sub ChoixSociete_Change()
If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, choix1, 0)) Then
Me.ComboBox1.List = Filter(choix1, Me.ComboBox1.Text, True, vbTextCompare)
Me.ComboBox1.DropDown
Else
ComboBox1_Click
End If
End Sub
En espérant que vous puissiez m'aider, et en vous remerciant d'avance.