Discussion :

[MAKBOB]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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