ERREUR EXÉCUTION 13

Version imprimable

ERREUR EXÉCUTION 13

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
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 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

Bonjour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub UserForm_Initialize()
   Set f = Sheets("bd")
   Clé = f.Range("B2:B" & f.[B65500].End(xlUp).Row).value
   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

sans le ".value" c'est un range il manque donc le set devant devant clé comme tu veux un tableau c'est .value

13/01/2019, 16h29
MAKBOB

Bonjour,
Merci beaucoup pour votre aide mais le problème se situe ailleurs puisque c'est juste à la saisie des premières données que l'erreur se produit et puisque j'ai ajouter un tri de la liste le formulaire ne fonctionne pas sans données à trier. C'est bon merci j'ai résolu le problème. Encore merci pour votre aide