Affichage erreur #Valeur alors que code VBA fonctionne

Bonjour Le Pingou,

Je copie le code, il n'y en a pas beaucoup.

Public Function Lister(ByVal Id As String, ByVal Recherche As String, Optional ByVal Trouver As String) As String ' EFFECTUE LA RECHERCHE D'UNE CHAINES DE CARACTERES
' Parametres: Id= Chaine de caractere a rechercher
' Recherche= Colonne où chercher Id
' Trouver= Colonne ou prendre le résultat à lister
' Résultats: = N/A si la chaine est abscente
' = Liste de spec ayant la chaine
'#### DECLARATION DES VARIABLES ####
Dim resultat As String ' Témoin de la liste
Dim res As Range ' Témoin de la plage de recherche
Dim firstAddress As String ' Témoin de l'adresse du premier resultat
Dim ligne As Integer ' Témoin du numéro de la ligne du résultat
Dim colone As Integer ' Témoin de la colonne où trouver
Dim valeur As String ' Témoin de la valeur trouvée

'#### INITIALISATION DES VARIABLES ####
If Recherche = "" Then ' Quand il n'y a pas de parametre
resultat = "Erreur de recherche" ' Fixe la liste à la réponse d'erreur
GoTo Exit_Lister ' Sort de la fonction
Else
resultat = "N/A" ' Fixe par defaut la liste
Recherche = UCase(Recherche) ' Passe le parametre de recherche en majuscule
End If
If Trouver = "" Or Len(Trouver) <> 1 Then ' Converti la colone en nombre
colone = 1 ' Fixe par défaut la premiere colonne pour la liste
Else ' Sinon effectue la convertion
colone = Asc(UCase(Trouver)) - 64 ' Marche pour les 26 premieres colones
End If

'#### DEROULEMENT DE LA RECHERCHE####
With Worksheets(2).Range(Recherche & "1:" & Recherche & "1500")
Set res = .Find(Id, LookIn:=xlValues) ' Lance la recherche de la valeur
If Not res Is Nothing Then ' Quand on trouve au moins une fois la valeur
firstAddress = res.Address ' on enregistre l'addresse
Do
ligne = CInt(Right(res.Address, Len(res.Address) - 3)) ' Recupere le numéro de la ligne
valeur = Worksheets(2).Cells(ligne, colone).Value2 ' Et le contenu
If valeur <> Empty Then ' Quand il y a une info
If ((resultat = "N/A") Or (resultat = "")) Then ' Et si c'est la premiere valeur
resultat = valeur ' Affecte la valeur à la liste
Else ' Si ce n'est pas la premiere valeur
resultat = resultat & ", " & valeur ' Concatene la valeur
End If
Else ' Quand il n'y a pas d'info
If ((resultat = "N/A") Or (resultat = "")) Then ' Et si c'est la premiere valeur
resultat = "Ligne: " & ligne ' Affecte le N° de ligne comme valeur à la liste
Else ' Si ce n'est pas la premiere valeur
resultat = resultat & ", " & "Ligne: " & ligne ' Concatene la valeur
End If
End If
Set res = .FindNext(res) ' Recherche la valeur dans la suite
Loop While Not res Is Nothing And res.Address <> firstAddress ' Jusqu'à la fin de la plage
End If
End With
'#### FIN DU TRAITEMENT ####
Exit_Lister: ' Arret normal de la Fonction
Lister = resultat ' Retourne la liste correspndant à Id

End Function

Dans la feuille, qui appel cette fonction, les cellules sont en 'standard' (pas nombre ou texte).

Bonjour,

Le format des cellules n'a rien à voir.
Fait en pas à pas, ou dépose-nous un fichier en situation avec le #VALEUR

eric

Bonjour,

Merci de déposer le fichier xls (réduit au nécessaire et anonymisé, avec les explications et éventuellement le résultat attendu) sur cjoint.com et coller ici le lien fourni.

eric

Sur mon fichier de travail, je viens de réaliser que lorsque ma recherche me donne aucune liste, la cellule affiche'N/A' qui est la réponse pour une liste vide. Quand la fonction trouve un ou des éléments pour la liste, il y a l'erreur #Valeur.

Est-ce que ma façon de retourner le résultat est correcte?

Yes :-(

Bonjour,
Désolé, pas compris...!
Salutations.
Le Pingou

Cette ligne de code doit egalement faire reference à la page des DRS

Bonsoir eriiic,
Je suis tombé sur les mêmes constatations que toi. Je n'ai pas encore trouvé la solution pour corriger le problème alors je vais voir si ta proposition le résous. Merci à toi et bonne fin de soirée.
Amicales salutations.
Le Pingou

Eriiic,
Pour ce qui est du test sur le loop, il y a un test juste après le find du début. Si c'est Nothing, on ne devrait pas exécuter la boucle...
J'ai changer la déclaration de la fonction, il y a du mieux, j'ai la première DRS, mais pas encore de liste...
Par contre, ta nouvelle fonction me retourne systématiquement l'erreur 2042 en debug ou #N/A sur la feuille?!
Je vais continuer à chercher.
Si vous avez d'autres idées, je suis preneur et surtout merci à vous deux pour votre aide.

Bonjour,

Pour ce qui est du test sur le loop, il y a un test juste après le find du début. Si c'est Nothing, on ne devrait pas exécuter la boucle...
Relis ce que j'ai écrit.
La fonction que je te propose ne faisait pas cette erreur chez moi si on lui passe bien des paramètres Id er Recherche non vides, et chez le pingou non plus apparement...
2042=#N/A. De mémoire enlève Id="" and si tu ne veux pas cette erreur sur Id=""
Je re-contrôlerai ce midi, là je ne peux pas, on ne peut plus lire la fonction dans le post et je suis au boulot.
eric

Ah oui, j'ai ajouté ça en dernière minute quand j'ai vu qu'il testait le contenu de Recherche. Trop vite et sans tester ;-)
D'ailleurs j'ai mis le test de Id en plus mais pas sûr que ce soit une bonne initiative. Retourner "" dans ce cas serait sans doute mieux. Il adaptera selon ses besoins.
Merci de la correction.
eric