B
Bruno
Guest
Bonjour à tous et toutes,
Dans une précédure fonction que je crée, je désigne un argument facultatif qui ne nomme Numero_facture. Si l'argument est absent , la valeur d'erreur retournée est value. Je voudrais dans ce cas laisser un blanc.
J'ai essayé d'attribuer la valeur par défaut dans la fonction comme ceci :
Function ANNEEFACT(Optional Numero_facture As String = "")
mais sans succés.
Avez vous une idée pour palier à ce problème ?
Merci de votre aide et bonne journée...
Voici le code pour plus de clarté :
Function ANNEEFACT(Optional Numero_facture As String)
Num = Application.WorksheetFunction.Trim(Numero_facture)
Num = Format(Numero_facture, "00000000")
Num = Left(Num, 2)
Num = DateSerial(Num, 1, 1)
ANNEEFACT = Year(Num)
End Function
Dans une précédure fonction que je crée, je désigne un argument facultatif qui ne nomme Numero_facture. Si l'argument est absent , la valeur d'erreur retournée est value. Je voudrais dans ce cas laisser un blanc.
J'ai essayé d'attribuer la valeur par défaut dans la fonction comme ceci :
Function ANNEEFACT(Optional Numero_facture As String = "")
mais sans succés.
Avez vous une idée pour palier à ce problème ?
Merci de votre aide et bonne journée...
Voici le code pour plus de clarté :
Function ANNEEFACT(Optional Numero_facture As String)
Num = Application.WorksheetFunction.Trim(Numero_facture)
Num = Format(Numero_facture, "00000000")
Num = Left(Num, 2)
Num = DateSerial(Num, 1, 1)
ANNEEFACT = Year(Num)
End Function