Discussion :

[law56100]

Bonjour

J'aimerai revoyer l'erreur "#valeur" à la cellule si l'utilisateur apel la fonction
=PLibelleZoneLibre("toto") et si la chaine toto n'existe pas dans la colonne Rucode de ma table ZONESLIB

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
18
19
20
21
22
Public Function PLibelleZoneLibre(Optional CodeZone As String = "CARO") As String
   
    Dim vResult As String
    Dim vNumZone As String
    
    Dim ZL As ADODB.Recordset
        Set ZL = New ADODB.Recordset

        vNumZone = CodeZone
        ZL.Open "SELECT Libtab,Rucode FROM ZONESLIB WHERE Rucode='" & vNumZone & "'", ConnWinpaie, adOpenStatic, adLockReadOnly
    End If
    If ZL.EOF = True Then
        vResult = ""
    Else
        vResult = Trim(ZL("Libtab"))
    End If

    PLibelleZoneLibre = vResult
    
    ZL.Close
    Set ZL = Nothing

Quels parametre dois-je retourner a mon résultat (en rouge)

cordialement Law56100

[Godzestla]

Bonsoir,

il me semble que géré comme cela tu n'y arriveras pas car tu gères un string.
De plus je ne comprends pas pourquoi tu fais cela ni ou tu veux en venir, mais soit.

Pour info, j'ai mis dans une cellule "=A/0" et j'ai bien #valeur.
Quand je prend le .value de la cellule, j'ai "erreur 2015"

[pgz]

Bonsoir.

Comme cela a l'air arbitraire, tu peux aussi bien faire

Code :

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

result = "#Valeur"

ET pourquoi pas

Code :

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

result = "valeur inconnue"

PGZ

[SilkyRoad]

bonjour

tu peux utiliser :

Code :

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

vResult = CVErr(xlErrValue)

http://silkyroad.developpez.com/VBA/GestionErreurs/

http://silkyroad.developpez.com/vba/fonctions/



bonne journée
michel

[law56100]

J'ai essayé CVErr(xlErrValue) ca affiche bien #valeur mais si j'essaie CVErr(xlErrRef) ou null ça affiche #valeur et ça plante au niveau de

Code :

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

vResult = CVErr(xlErrValue)

Donc ne ferme pas ma requete sql.
Est ce que c'es grave et est ce qu'il peut avoir un apacte sur la suite.

[SilkyRoad]

Bonjour,

J'ai essayé CVErr(xlErrValue) ca affiche bien #valeur mais si j'essaie CVErr(xlErrRef) ou null ça affiche #valeur

Ta fonction doit renvoyer une donnée type Variant pour que ça fonctionne.


bonne journée
michel

[law56100]

ok

[law56100]

okai, cela fonctionne bien si la variable est déclarée en variant

merci