Erreur d'exécution 13 incompatibilité de type

BOUBRED

XLDnaute Nouveau
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
 

BOUBRED

XLDnaute Nouveau
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

XLDnaute Barbatruc
Re,

L'erreur se produit quand seule la cellule B2 est renseignée, pour y remédier :
Code:
  '-------------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+
 

Discussions similaires

Réponses
17
Affichages
1 K

Statistiques des forums

Discussions
311 716
Messages
2 081 828
Membres
101 823
dernier inscrit
mohamed3s