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