Problème avec : worksheetfunction.vlookup

Version imprimable

Encore une fois, je tiens à féliciter ce site et ces forums vraiment très utiles pour des développeurs débutants comme moi !

Je viens d'écrire un code avec la fonction worksheetfunction.vlookup

La recherche de données n'aboutit pas et j'obtiens un message d'erreur du type "erreur d'exécution '1004' Impossible de lire la propriété Vlookup de la classe worksheetfunction et la procédure s'arrête.

Je comprends pas du tout d'où cela peut venir. Voici un extrait de mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Private Sub UserForm_Initialize() 'Initialisation de l'User Form Joueur Dim choixjoueur As Double 'Index des valeurs Dim I For I = 2 To 49 nomjoueurs.AddItem Sheets("DONNEES").Cells(I, 2) Next End Sub Sub Selection_client() choixjoueur = nomjoueurs End Sub Private Sub BT_fermer_Click() 'Fermer le User Form Clients.Hide End Sub Private Sub nomclient_Click() 'Initialisation des variables Set I = Sheets("DONNEES").Range("A2:I48") choixjoueur = nomjoueurs 'Remplissage des textbox après choix du joueur fnumero = Application.WorksheetFunction.Vlookup(choixjoueur, I, 1) fnom = Application.WorksheetFunction.Vlookup(choixjoueur, I, 2) fprenom = Application.WorksheetFunction.Vlookup(choixjoueur, I, 3) fsexe = Application.WorksheetFunction.Vlookup(choixjoueur, I, 4) fstatut = Application.WorksheetFunction.Vlookup(choixjoueur, I, 5) fsalaire = Application.WorksheetFunction.Vlookup(choixjoueur, I, 6) fville = Application.WorksheetFunction.Vlookup(choixjoueur, I, 7) fnum = Application.WorksheetFunction.Vlookup(choixjoueur, I, 8) fage = Application.WorksheetFunction.Vlookup(choixjoueur, I, 9) End Sub
Cette fonction est pour le listing client de ma base de données.

Si cela peut être pratique voici un lien avec mon fichier Excel :

http://skrs.free.fr/VBA/

salut
en applicant ton code a pein modifié, ça fonctionne chez moi
Code:

1 2 3 4 5 6 7 8 9 Sub test() choixjoueur = "toto" Set I = Sheets(1).Range("A1:b3") 'Remplissage des textbox après choix du joueur fnumero = Application.WorksheetFunction.VLookup(choixjoueur, I, 2) MsgBox fnumero End Sub
en fait je pense que ta variable choixjoueur n'est pas définie. si elle n'est pas égale a un nom , et même un nom présent dans le tableau, le fonction te renverra une erreur

Suite à ta remarque j'ai mis ça. Cependant quand je clic sur un des clients ça ne me donne pas sa fiche pour autant (aucune info ne sort).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Private Sub UserForm_Initialize()
'Initialisation de l'User Form Clients
Dim choixjoueur As Double
 
'Index des valeurs
Dim I
    For I = 2 To 49
        nomjoueurs.AddItem Sheets("DONNEES").Cells(I, 2)
    Next
End Sub
Private Sub BT_fermer_Click()
'Fermer le User Form
Clients.Hide
End Sub
 
Private Sub nomclient_Click()
'Initialisation des variables
choixjoueur = "nomjoueurs"
Set I = Sheets("DONNEES").Range("A2:I48")
 
 
'Remplissage des textbox après choix du joueur
fnumero = Application.WorksheetFunction.Vlookup(choixjoueur, I, 1)
MsgBox fnumero
fnom = Application.WorksheetFunction.Vlookup(choixjoueur, I, 2)
MsgBox fnom
fprenom = Application.WorksheetFunction.Vlookup(choixjoueur, I, 3)
MsgBox fprenom
fsexe = Application.WorksheetFunction.Vlookup(choixjoueur, I, 4)
MsgBox fsexe
fstatut = Application.WorksheetFunction.Vlookup(choixjoueur, I, 5)
MsgBox fstatut
fsalaire = Application.WorksheetFunction.Vlookup(choixjoueur, I, 6)
MsgBox fsalaire
fville = Application.WorksheetFunction.Vlookup(choixjoueur, I, 7)
MsgBox fville
fnum = Application.WorksheetFunction.Vlookup(choixjoueur, I, 8)
MsgBox fnum
fage = Application.WorksheetFunction.Vlookup(choixjoueur, I, 9)
MsgBox fage
 
End Sub

Mon fichier est toujours disponible au lien ci-dessus. Si tu arrives à faire les modifications je suis preneur. Je comprends vraiment plus rien là.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Private Sub choixjoueur_Change()
 
End Sub
 
Private Sub UserForm_Initialize()
'Initialisation de l'User Form Clients
Dim choixjoueur As Double
 
'Index des valeurs
Dim I
    For I = 2 To 49
        nomjoueurs.AddItem Sheets("DONNEES").Cells(I, 2)
    Next
 
End Sub
 
Private Sub nomjoueurs_Click()
'Initialisation des variables
Set I = Sheets("DONNEES").Range("A2:I48")
choixjoueur = nomjoueurs
 
 
'Remplissage des textbox après choix du joueur
fnumero = Application.WorksheetFunction.Vlookup(choixjoueur, I, 1)
MsgBox fnumero
fnom = Application.WorksheetFunction.Vlookup(choixjoueur, I, 2)
MsgBox fnom
fprenom = Application.WorksheetFunction.Vlookup(choixjoueur, I, 3)
MsgBox fprenom
fsexe = Application.WorksheetFunction.Vlookup(choixjoueur, I, 4)
MsgBox fsexe
fstatut = Application.WorksheetFunction.Vlookup(choixjoueur, I, 5)
MsgBox fstatut
fsalaire = Application.WorksheetFunction.Vlookup(choixjoueur, I, 6)
MsgBox fsalaire
fville = Application.WorksheetFunction.Vlookup(choixjoueur, I, 7)
MsgBox fville
fnum = Application.WorksheetFunction.Vlookup(choixjoueur, I, 8)
MsgBox fnum
fage = Application.WorksheetFunction.Vlookup(choixjoueur, I, 9)
MsgBox fage
 
End Sub
 
Private Sub BT_fermer_Click()
'Fermer le User Form
Clients.Hide
End Sub

Bon maintenant le nom saisi dans la liste est recopié dans le TxtBox du nom de choixjoueur. Mais le Vlookup me réponds qu'il n'arrive pas à lire les informations. Pourtant quand je passe au dessus du mot choixjoueur il me met que la valeur du nom choisi mais pourtant ne remplit pas les cases.

Erreur d'éxécution '1004':

Impossible de lire la propriété Vlookup de la classe WorksheetFunction.

24/11/2008, 00h41
kanabeachpro

Problème Résolu.

Merci à Salimbad pour son aide.