Probléme pour fixer un Bug d'une macro

[INFINITY100]

Bonjour à tous

Voila j'ai une macro de la saisie semi automatique elle fonctionne bien quand la liste des fournisseur est chargée de noms mais mon problème c'est quand je met à vide la feuille elle génère deux bug détaillé dans fichier joins

la macro concernée par le bug est :

Private Sub ComboBox1_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
  End If
End Sub

En enlevant le (-) à coté du 1 ça fixe le premier bug mais le deuxième persiste toujours d'autant plus sans le (-1) quand j'ajoute le 1er fournisseur ça bug toujours en tapant la 1ere lettre de son nom dans le Combo Box en plus au clique sur la flèche du Combo Box je trouve ce nom répété 3 fois dans la liste du Combo Box.

Pour être plus claire joins le fichiers dedans le problème survenu

Merci à vous tous

Cordialement

 

[Staple1600]

Re : Probléme pour fixer un Bug d'une macro

Bonsoir à tous

INFINITY100
Pourquoi ne pas être rester dans ton fil initial ??
https://www.excel-downloads.com/thr...acro-on-lui-ajoutant-trois-conditions.231682/

NB: Il ne t'a pas échappé que nous sommes en week-end prolongé et que donc la fréquentation sur le forum est moindre.

 

[INFINITY100]

Re : Probléme pour fixer un Bug d'une macro

Bonsoir Staple1600

Désolé j'avais cru qu'il n'était pas vu sur les postes du forum du coup j'ai posté un autre mais bon voici le lien du fil initial

https://www.excel-downloads.com/thr...acro-on-lui-ajoutant-trois-conditions.231682/

Et merci d'avance pour toute aide