Discussion :

[MartinoDevelop]

Bonjour,
Avant tout, je suis allé voir les FAQ etc... mais rien n'y fait.

Voici ma fonction.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function date_MAJcasto(Date_cde As Date, enseigne As String) As String
 
If IsNull(Date_cde) Then
 
Else
    If enseigne = "CASTORAMA" Then
    date_MAJcasto = Date_cde - 1
    Else
    date_MAJcasto = Date_cde
    End If
End If
 
End Function

Et elle me renvoie toujours #Erreur lorsque ma variable Date_cde est vide.
Comment faire pour que ma fonction ne me renvoie rien??

Par avance merci.

[Invité]

Bonjour

Tu fais un test de nullité sur une variable de type Date, hors celle-ci n'admet pas de valeur nulle.

Essayes de mettre la variable Date en Variant dans l'argument de ta fonction.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function date_MAJcasto(Date_cde As Variant, enseigne As String) As String
 
If IsNull(Date_cde) Then
 
Else
    If enseigne = "CASTORAMA" Then
    date_MAJcasto = Date_cde - 1
    Else
    date_MAJcasto = Date_cde
    End If
End If
 
End Function

A tester.

Philippe

[MartinoDevelop]

Merci pour ta réponse.

Et qu'est-ce que je dois mettre après mon

Code :

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

If IsNull(Date_cde) Then

si je veux qu'il me renvoie une cellule vide?

[MartinoDevelop]

je viens notamment d'essayer avec

Code :

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

resume next error

juste avant ma fonction et ça ne fonctionne toujours pas.

merci pour votre aide

[Invité]

Re

Une petite question, comment utilises-tu ta fonction ?

De plus pour faire la différence de date, utilises la fonction de conversion CDate.

ex :

Code :

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

date_MAJcasto = CDate(Date_cde) - 1

Philippe

[MartinoDevelop]

Ma fonction est crée dans l'objet modules d'Access et je l'utilise dans le champ de ma requête.

Est-ce que j'ai répondu à ta question?

De plus, la fonction sur la date marche. C'est lorsque que je n'ai pas de date qu'il me renvoie #Erreur.

Comment lui dire de ne pas lancer la fonction si la cellule est vide?

Merci d'avance