Discussion :

[Boucledor99]

Bonjour à tous !

J'ai créé un formulaire qui demande à un étudiant son numéro d'étudiant et qui s'affiche ensuite sur une feuille en L3. Cependant, dans ce même formulaire, doivent apparaitre automatiquement le nom et prénom de l'étudiant. Sachant que j'ai créé un tableau dans la même feuille où sont renseignés à la fois le numéro étudiant, le nom et le prénom.
Je me suis dit qu'il était peut-être plus simple si je commençais par faire inscrire le nom et prénom dans la feuille pour ensuite les mettre dans le formulaire. (Ce raisonnement est-il vraiment plus simple ou est-ce que je me complique la tâche pour rien ?). J'ai utilisé la fonction Evaluate pour cela. J'ai pu arriver à ça :

Code :

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

1
2
3
4
5
6
7
8
9
Dim NumeroEtudiant As Long
Dim NomEtudiant As String
Dim PrenomEtudiant As String
 
NumeroEtudiant = L3
NomEtudiant = Evaluate("VLOOKUP(" & NumeroEtudiant & ", Plage_Donnees, MATCH (""Nom"", Plage_Intitules,0))")
PrenomEtudiant = Evaluate("VLOOKUP(" & NumeroEtudiant & ", Plage_Donnees, MATCH (""Prenom"", Plage_Intitules,0))")
Range("Recapitulatif!L3").Value = NomEtudiant
Range("Recapitulatif!L4").Value = PrenomEtudiant

Mais le nom et prénom de l'étudiant ne s'affichent pas du tout...
Ai-je fait une erreur ? Oublié quelque chose ?

Merci d'avance pour votre aide !

[Jean-Philippe André]

Salut,

là tu utilises des formules, le mieux reste de les manipuler en tant que telle en VBA

D'autre part L3 n'est initialisé nulle part, fais attention

de plus, tu fais une erreur de boucle (L3 pointe sur L3 de façon indirecte, ce n'est pas possible)


corrige toutes ces petites erreurs avant de pouvoir faire tourner le code correctement

[Boucledor99]

Merci beaucoup !

Effectivement, j'ai fait plein d'erreurs !

Par contre, je ne comprends pas bien ce que tu entends par :

là tu utilises des formules, le mieux reste de les manipuler en tant que telle en VBA

Désolée, je débute en VBA...

[Jean-Philippe André]

Pour l'instant tu passes par un Evaluate, mais ce n'est pas la bonne fonction à utiliser. Ici il faut mieux partir sur

Code :

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

Range().Formula = "=VLOOKUP(...)"

[bifconsult]

Le dernier exemple permet d'insérer une formule Excel dans une cellule.

Pour avoir le résultat directement dans le code, on peut aussi utiliser:

Code :

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

Worksheetfunction.Vlookup(...)