Function excel en VBA, afficher error dans la cellule

[jul51]

Hello,

Voila je concois en ce moment des fonctions en VBA pour Excel et j'aurais besoin que la cellule qui contient la function affiche Error comme les fonctions Excel par defaut si un parametre est mal renseigne.

Comment je peux faire ca?

Tks for your help 🙂

Julien

 

[tototiti2008]

Re : Function excel en VBA, afficher error dans la cellule

Bonjour jul51,

en fait, tu n'as souvent pas grand chose à faire. Si la fonction ne parvient pas à renvoyer de réponse valide, elle renvoie souvent un message d'erreur automatiquement.
Si tu veux plus de précision, il nous faudrait des données plus concretes...

 

[jul51]

Re : Function excel en VBA, afficher error dans la cellule

Overall, tks for your help!

La fonction est simple, cest pour remplacer une fonction adfin de reuters pour ajouter ou soustraire des jours, mois ou annees a une date:

Function DateDiffPeriod(dmy As String, Diff As String, DatePoint As Date)

'If Diff = "" Or IsNumeric(Diff) = False Or IsDate(DatePoint) = False _
                Then
    
    
    Select Case dmy

        Case "d"
    
            DateDiffPeriod = DateAdd("d", Diff, DatePoint)
    
        Case "m"
    
            DateDiffPeriod = DateAdd("m", Diff, DatePoint)
    
        Case "y"
    
            DateDiffPeriod = DateAdd("y", Diff, DatePoint)
            
        Case Else
        
            
    
    End Select

End Function

J'ai pas encore teste la fonction mais cela semble renvoye 0 et pas error?

 

[tototiti2008]

Re : Function excel en VBA, afficher error dans la cellule

et si tu essayes comme ça ?

Function DateDiffPeriod(dmy As String, Diff As String, DatePoint As Date) As Date
    
    Select Case dmy
        Case "d"
    
            DateDiffPeriod = DateAdd("d", Diff, DatePoint)
    
        Case "m"
    
            DateDiffPeriod = DateAdd("m", Diff, DatePoint)
    
        Case "y"
    
            DateDiffPeriod = DateAdd("y", Diff, DatePoint)
            
    End Select
End Function

bon après, si tu n'obtiens pas d'erreur, donne nous les paramètres d'entrée que tu as utilisé

 

[jul51]

Re : Function excel en VBA, afficher error dans la cellule

Mais que je suis bete, effectivement si je prevois un else.....il peut pas afficher d'erreur.

J'ai bien maintenant un #VALUE, brilliant!

Tks for your help!

Julien

 

[MichelXld]

Re : Function excel en VBA, afficher error dans la cellule

bonjour

En complément, tu peux également intégrer un gestionnaire d'erreurs dans tes fonctions :

II-F. La gestion des erreurs


bonne journée
michel

 

[tototiti2008]

Re : Function excel en VBA, afficher error dans la cellule

Bonjour à tous,

d'ailleurs, si tu veux une erreur dans tous les cas non gérés, il vaudrait mieux faire :

Function DateDiffPeriod(dmy As String, Diff As String, DatePoint As Date) As Date
    Select Case dmy
        Case "d"
    
            DateDiffPeriod = DateAdd("d", Diff, DatePoint)
    
        Case "m"
    
            DateDiffPeriod = DateAdd("m", Diff, DatePoint)
    
        Case "y"
    
            DateDiffPeriod = DateAdd("y", Diff, DatePoint)
            
        Case Else
        
            DateDiffPeriod = "a"
            
    End Select
End Function

Même si c'est beaucoup moins propre que la solution proposée par MichelXLD

 

[jul51]

Re : Function excel en VBA, afficher error dans la cellule

Merci pour ces precisions, le as Date est une bonne idee. Apres je veux pas y passer trop de temps, c'est pas pour des exceleurs non inities. Du moment que cela affiche error quand un mauvais parametre est ajoute....cela me suffit.

Tks guys 😀