Erreur sur liste intuitive

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.

17test2.xlsm (37.48 Ko)

Bonjour,

Dans UserForm_Initialize de ton formulaire, tu alimentes le combobox.

Dans les propriétés du combobox, tu l'alimentes aussi via l'option RowSouce.

D'où le conflit, le combobox est alimenté de deux sources en même temps.

ric

Effectivement je n'avais pas vu la bêtise !

Merci beaucoup !!

ric

Rechercher des sujets similaires à "erreur liste intuitive"