Discussion :

[EssorNum]

Bonjour,
Je ne suis pas un pro de la programmation en VBA sous Excel.
Je me suis mis à ce loisir dans le cadre d'un développement de projet personnel.

J'ai un tableau de bord où plusieurs matrices sont renseignées dans différentes feuilles et après un certain nombre de calculs intermédiaires, un résultat apparait dans une feuille dédiée pour un utilisateur X.

J'ai donc dû me mettre à la "programmation" de petites macros et la création de fonctions.
J'ai souhaité créer un fonction type RechercheV avec une seule donnée d'entrée la valeur recherchée.

Après avoir investigué différents forums ou supports, je suis arrivé à écrire la fonction suivante:

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
Function VLookUpForm(ByVal ValeurRecherchee) As Double
 
Range("TableDeRecherche").Select
 
Dim NbLignes As Integer
NbLignes = Range("TableDeRecherche").Rows.Count
 
For i = 1 To NbLignes
    If Range("TableDeRecherche")(i, 1).Value = ValeurRecherchee.Value Then
        VLookUpForm = Range("TableDeRecherche")(i, 2).Value
        GoTo FinDeRecherche
    End If
Next i
 
FinDeRecherche:
 
End Function

Grâce à l'outil "Définir un nom", j'ai créé "TableDeRecherche" pour cibler ma matrice de valeurs.
Au début de mes tests, la matrice et la valeur recherchée étaient sur la même feuille. Tout fonctionnait bien.
J'ai donc souhaité passer à l'étape supérieure.
Dans mon classeur final, ma matrice et la valeur recherchée ne sont pas sur la même feuille.
J'ai donc simulé cette réalité dans mon fichier test.

Il s'avère que ma fonction ne marche plus. Elle me renvoit "#Valeur!"
J'ai vérifié que ma définition de nom TableDeRecherche soit sur tout le classeur.
J'ai tenté également de faire activer la feuille où se trouvait ma matrice.
Après un petit moment, aucune piste sérieuse ne m'est apparue.

Je suis revenue à utilisation temporaire de la fonction recherchev avec toutes ses entrées le temps de trouver une solution.

Je m'adresse à vous en espérant que vous pourrez m'aider.
Je vous en remercie par avance.

EssorNum

[SfJ5Rpw8]

Bonjour,

sans aller plus loin j'aurais enlevé ce Select .... l'instruction Select est rarement utile, si ce n'est pour faire une animation visuelle en déplaçant le curseur..

[Philippe Tulliez]

Bonjour,
Tu n'indiques pas si tu utilises cette fonction comme fonction personnelle dans Excel.
Voici une procédure qui fait exactement la même chose que RECHERCHEV avec valeur exacte et qui fonctionne parfaitement.
Dans cet exemple, le deuxième argument est optionnel et envoi le contenu de la deuxième colonne par défaut. Je n'ai pas gérer l'erreur et donc la fonction renvoie #VALEUR si la valeur cherchée n'est pas trouvée.

Code :

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

1
2
3
4
5
Function VlookUpForm(ValeurCherchee As Range, Optional ColNumber As Integer = 2)
 Dim fn As WorksheetFunction
 Set fn = Application.WorksheetFunction
 VlookUpForm = fn.VLookup(ValeurCherchee , Range("TableRecherche"), ColNumber, False)
End Function

Elle s'utilise dans excel comme ceci

Code :

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

=VlookUpForm(A5)

ou

Code :

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

=VlookUpForm(A5;4)

Inutile de dire qu'elle n'a aucune raison d'exister puisqu'on peut faire exactement la même chose avec la formule native d'excel RECHERCHEV

Petit rappel : Dans une fonction personnalisée, on peux pas utiliser la méthode SELECT ni toute autre action telle que l'écriture dans une cellule.

[EssorNum]

Merci pour ce code.
J'ai pu l'incorporer après quelques légères modifications pour ma philosophie de cas et ça fonctionne très bien.

Bonne journée à tous.