Affichage erreur #Valeur alors que code VBA fonctionne Résolu/Fermé

Question

Salut à tous,

J'ai un souci d'affichage dans Excel 2013.

J'ai créé une fonction qui s'appelle Lister, en VBA. Elle me permet d'afficher une liste des valeurs que l'on trouve dans une colonne en fonction de certains paramètres. Cette fonction, lorsque je la teste debug.print lister(....), me renvoie bien ma liste: Valeur1, Valeur2,..., ValeurN ou bien N/A quand il n'y a pas d'élément de liste.

Jusqu'à la, tout va bien... Mais quand j'appel ma fonction directement dans une feuille, avec les bons paramètres, j'obtiens 2 résultats: N/A = Normal, pas de liste ou #Valeur = erreur excel!

Ma fonction retourne un string et est déclarée en public...
La seule explication que je vois c'est la mise en forme de ma cellule.

Est-ce qu'une bonne ame pourrait me dépanner?
D'avance merci

Le Pingou · Answer

Bonjour,
Pouvez-vous donner plus de précision sur la procédure.... ?

maol · Answer

Bonjour Eric,

J'ai préparé un fichier de test. Comment dois-je faire pour le poster?

maol · Answer

Merci Eric de ta réponse aussi rapide... et de ton aide.

Le lien: https://www.cjoint.com/?0KuiKyGHxQy

Maol

Le Pingou · Answer

Bonjour,
Au passage, salut eriiic et bonne journée.
maol: Est-ce que j'ai bien compris: ce sont les valeurs que renvoient les formules qui se trouvent dans la plage [E3:E17] de la feuille [Synthesis] et qui se réfère aux données de la feuille [DATA] qui vous pose problème... Oui / Non !
Merci de votre réponse.

maol · Answer

Bonjour Le Pingou,

Je viens de me rendre compte en lisant la question qu'en simplifiant j'ai effacer une page qui fausse le code:
  valeur = Worksheets(2).Cells(ligne, colone).Value2
doit devenir
  valeur = Worksheets(1).Cells(ligne, colone).Value2

Les infos sont dans la page DRS.
Ce qui est agaçant, c'est qu'en mode debug la fonction renvoie bien une liste...

Le Pingou · Answer

Bonjour,
Merci de l'information.
Donc la référence est la feuille [DRS HR900 ACCESS] et non pas [DATA]. 
Dans ce cas la ligne suivante est aussi fausse (se réfère à la feuille [DATA] ... !
With Worksheets(2).Range(Recherche & "1:" & Recherche & "1500")
 
 
Salutations.
Le Pingou

Le Pingou · Answer

Bonjour,
Merci, je vais voir votre procédure en détail .... patience.

eriiic · Answer

Re,

déjà l'explication de ton #VALEUR. Dans :
Loop While Not c Is Nothing And res.Address <> firstAddress
res.Address ne peut pas être évaluer si res is nothing, et il est toujours calculé même si le test précédent (Not c Is Nothing) est TRUE.
Ca te génère une erreur qui te fait sortir brutalement de la fonction (oui, l'exemple de l'aide est moyen...)

Autre problème : ton .findnext ne trouve jamais de 2nde réponse. Sans doute dû à un bug de .findnext dans une fonction personnalisée.
Je te l'ai donc refaite à minima, je te laisse mettre les commentaires :
Public Function Lister2(ByVal Id As String, ByVal Recherche As String, Optional ByVal Trouver As String = "A") As Variant  ' EFFECTUE LA RECHERCHE D'UNE CHAINES DE CARACTERES
    Dim adr1 As String, c As Range, fini As Boolean
    If Id = "" Or Recherche = "" Then Lister2 = CVErr(xlErrValue): Exit Sub
    With Worksheets(1).Range(Recherche & "1:" & Recherche & "1500")
        Set c = .Find(Id, LookIn:=xlFormulas, lookat:=xlWhole)
        If c Is Nothing Then
            Lister2 = CVErr(xlErrNA): Exit Function
        Else
            adr1 = c.Address
            Do
                Lister2 = Lister2 & ", " & Worksheets(1).Cells(c.Row, Trouver)
                Set c = .Find(Id, LookIn:=xlValues, lookat:=xlWhole, After:=c)
                If c Is Nothing Then fini = True Else fini = c.Address = adr1
            Loop Until fini
        End If
    End With
    Lister2 = Mid(Lister2, 3)
End Function
Je l'ai mise as variant pour pouvoir retourner une vraie valeur d'erreur #N/A
 
eric

Le Pingou · Answer

Bonsoir eriiic,
J'essaye ton code et j'ai une erreur de compilation : l'instruction Exit Sub n'est pas permise dans une fonction, je l'ai remplacé par Exit Function et là miracle tout est parfait.
Merci, j'ai eu grand plaisir à découvrir ta solution.
Amicales salutations
Le Pingou

eriiic · Answer

La fonction avec les 2 petites modifications :
Public Function Lister2(ByVal Id As String, ByVal Recherche As String, Optional ByVal Trouver As String = "A") As Variant  ' EFFECTUE LA RECHERCHE D'UNE CHAINES DE CARACTERES
    Dim adr1 As String, c As Range, fini As Boolean
    If Recherche = "" Then Lister2 = CVErr(xlErrValue): Exit Function
    With Worksheets(1).Range(Recherche & "1:" & Recherche & "1500")
        Set c = .Find(Id, LookIn:=xlFormulas, lookat:=xlWhole)
        If c Is Nothing Then
            Lister2 = CVErr(xlErrNA): Exit Function
        Else
            adr1 = c.Address
            Do
                Lister2 = Lister2 & ", " & Worksheets(1).Cells(c.Row, Trouver)
                Set c = .Find(Id, LookIn:=xlValues, lookat:=xlWhole, After:=c)
                If c Is Nothing Then fini = True Else fini = c.Address = adr1
            Loop Until fini
        End If
    End With
    Lister2 = Mid(Lister2, 3)
End Function
Ca a l'air correct : https://www.cjoint.com/?DKvnRAMeXlL

Pourquoi enregistres-tu en xlsb et non pas en xlsm ?
eric 
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

maol · Answer

Bonjour Eriiic,

Effectivement, ton fichier fonctionne nickel.

Je n'ai toujours pas compris pourquoi en mode debugg ceal fonctionne correctement et dans la feuille sa plante... La boucle .FindNext ne semble pas vouloir se faire!

Un grand merci à toi et à Le Pingou pour votre aide.

Le Pingou · Answer

Bonjour maol,
Merci.
Comme l'avait précisé eriiic : sans doute dû à un bug de .findnext dans une fonction personnalisée.
J'ai eu  le même problème chez moi en testant votre code. En fait elle fonctionne correctement si la valeur à trouver est un nombre (numérique) par contre avec du texte elle bug.
Cette fonction est un produit de MSO est nous ne pouvons pas la corrigée (pas d'accès au détail du code).
Utilisez donc la procédure d'eriiic.

Affichage erreur #Valeur alors que code VBA fonctionne

12 réponses

Discussions similaires