Erreur d'exécution 13 incompatibilité de type

[BOUBRED]

Bonjour à tous,
J'ai travaillé sur un userform pour compléter un fichier de suivi d'activité sur un service. Jusque là il fonctionnait correctement. Alors que je dois le mettre en ligne demain lors d'un dernier test en lançant userform il renvoie erreur d'exécution 13 incompatibilité type. Pouvez vous svp svp m'aider, je suis débutant dans ce domaine. Apparemment l'erreur est au niveau de userform_initialize
Merci par avance pour votre aide

Private Sub UserForm_Initialize()

Set f = Sheets("bd")

Clé = f.Range("B2:B" & f.[B65500].End(xlUp).Row)

Me.Civilite.RowSource = "CIVILITE"

Me.Benefic.RowSource = "NB_BENEF"

Me.Type_M.RowSource = "TYPE"

Me.Info.RowSource = "INFO_IND"

Me.Processus.RowSource = "PROCESSUS"

Me.Presence.RowSource = "PRESENCE"

Me.AVMME.RowSource = "AVOCAT_MM"

Me.AVMR.RowSource = "AVOCAT_MR"

Me.Prescripteur.RowSource = "PRESCRIPTEUR"

Me.Origine.RowSource = "ORIGINE"

Me.Allocataire.RowSource = "ALLOCATAIRE"

Me.Conflit.RowSource = "CONFLIT"

Me.Resultats.RowSource = "RESULTATS"

Me.Homologation.RowSource = "HOMOLOGATION"

'-------------avec tri---------------

Call Tri(Clé, LBound(Clé), UBound(Clé))

Me.ChoixNom.List = Clé

Me.ChoixNom.ListIndex = -1

 

[job75]

Bonjour BOUBRED, bienvenue sur XLD,

Joignez le fichier, allégé et sans données confidentielles.

A+

 

[BOUBRED]

Bonjour,
Je viens d'essayer d'ajouter un nom sur la base vide en validant avec le bouton ajouter et là se produit alors l'erreur exécution 13....J'ai essayé de faire toutes les vérifications nécessaires avec mes connaissances limitées et je n'y arrive pas et je dois le mettre en place demain au bureau.....Merci d'essayer de m'aider sincèrement.

 

[job75]

Re,

L'erreur se produit quand seule la cellule B2 est renseignée, pour y remédier :

  '-------------avec tri---------------
  If IsArray(Clé) Then
    Call Tri(Clé, LBound(Clé), UBound(Clé))
    ChoixNom.List = Clé
    ChoixNom.ListIndex = -1
  Else
    ChoixNom.AddItem Clé
  End If

A+

 

[BOUBRED]

Merci et merci beaucoup, je ne sais comment vous exprimer toute ma gratitude. Vous me sauvez la vie. Merci et bonne continuation

 

[job75]

Pourquoi avoir supprimé le fichier ? Il n'y avait pas de données confidentielles...

La solution que j'ai donnée peut intéresser d'autres personnes, ce n'est pas très sympa !

 

[BOUBRED]

Désolé vous avez raison. je vais le remettre..Merci encore