Problème avec la fonction Vlookup [VBA Excel]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème avec la fonction Vlookup [VBA Excel]

Skrs

ESSCA IV

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 :

Citation :

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/

Bon même si de préférence il faudrait qu'il prenne pour I le premier client en ligne 2 jusqu'au dernier (en fonction du nombre d'ajout qu'il y a eu). Je reste juste là sans comprendre pourquoi ca ne marche pas mon Vlookup.

Merci d'avance à vous tous.

Publicité

galopin01

bonsoir,
2007 n'a pas beaucoup de fan : Il serait préférable d'enregistrer ton fichier au format 2003
A+

Skrs

ESSCA IV

Le fichier est maintenant disponible en 2003 et 2007. Selon vos logiciels.

Skrs

ESSCA IV

Problème résolu. Merci à tous.

seniorpapou

Bonjour,
skrs: ce serait gentil d'expliquer la solution de ton pb, non?
Par exemple: je n'avais pas désigné la bonne première colonne pour le vlookup,
ma variable choixjoueur n'est pas fiable,
j'ai utilisé une autre méthode plus rapide, avec laquelle je ne fais la recherche qu'une fois, .......
Cordialement

Ptit loup

Quand c'est flou, y'a un loup

même remarque que seniorpapou (désolé de ne voir le msg que maintenant sinon... mais plutôt débordé de mon côté !)

Skrs

ESSCA IV

Le problème c'est que le vlookup ne trouvait pas la valeur choixjoueur et que ma valeur de base choixjoueur n'était pas dans la premiere colonne. De plus il manquait l'arg : False à la fin de mes fonction de Vlookup. Désolé pour le délai de réponse c est les exams j'ai pas bcp de temps.

Skrs

ESSCA IV

les fichiers à cette adresse fonctionnent :

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Problème avec la fonction Vlookup [VBA Excel]

Sujets relatifs
exécuter fonction tant que click gauche souris enfoncé	VBA: Créer un boutton dynamiquement ?
OpenGL - Problème avec lissage	Problème pour une mise en forme grâce à VB
problème de positionnement avec float [RESOLU]	Problème java.util.HashMap$KeyIterator@157f0dc
Problème url rewriting	Problème connexion base de données
Problème très curieux sur une page web	comment scroller dans une pile de texte (alignée en bas)?
Plus de sujets relatifs à : Problème avec la fonction Vlookup [VBA Excel]

Page générée en 0.046 secondes