bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
Bonsoir Laurent,
Selon les mêmes réserves que JG
si c'est à la date où l'on saisit:
=maintenant()+90
lSteph
"laurent colledani" a écrit
dans le message de news:bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
Bonsoir Laurent,
Selon les mêmes réserves que JG
si c'est à la date où l'on saisit:
=maintenant()+90
lSteph
"laurent colledani" <laurentcolledani@discussions.microsoft.com> a écrit
dans le message de news:
112B9DFE-14D1-4DB7-8AE5-BF403BFA6540@microsoft.com...
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
Bonsoir Laurent,
Selon les mêmes réserves que JG
si c'est à la date où l'on saisit:
=maintenant()+90
lSteph
"laurent colledani" a écrit
dans le message de news:bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
merci pour vos réponses
il est vrai que ma question n'était pas claire!
mon pb est le suivant (je l'explique hors contecte réel sinon cela seait
trop long!)
je veux créé une fonctionVBA:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Public Function c(a As Integer, b)
If a = 1 Then
c = b + 15
ElseIf a = 2 Then
c = b + 90
End If
End Function
;;;;;;;;;;;;;;;;;;;
"b" est une date qui est saisie dans l'interface de l'assistant fonction :
ex 01/01/03
"a" est une valeur numérique saisie aussi dans l'interface de l'asssitant
fonction d'excel.
je n'arrive pas à avoir dans ma cellule calculée une date cohérente, c'est
à
dire 15 ou 90 jours apres ma date de saisie (j'ai mis b en type date (dim
b
as date) mais cela ne change rien)
merci encore pour votre aide
"LeSteph" wrote:Bonsoir Laurent,
Selon les mêmes réserves que JG
si c'est à la date où l'on saisit:
=maintenant()+90
lSteph
"laurent colledani" a écrit
dans le message de news:bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la
bonne
date et au format date
merci d'avance
merci pour vos réponses
il est vrai que ma question n'était pas claire!
mon pb est le suivant (je l'explique hors contecte réel sinon cela seait
trop long!)
je veux créé une fonctionVBA:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Public Function c(a As Integer, b)
If a = 1 Then
c = b + 15
ElseIf a = 2 Then
c = b + 90
End If
End Function
;;;;;;;;;;;;;;;;;;;
"b" est une date qui est saisie dans l'interface de l'assistant fonction :
ex 01/01/03
"a" est une valeur numérique saisie aussi dans l'interface de l'asssitant
fonction d'excel.
je n'arrive pas à avoir dans ma cellule calculée une date cohérente, c'est
à
dire 15 ou 90 jours apres ma date de saisie (j'ai mis b en type date (dim
b
as date) mais cela ne change rien)
merci encore pour votre aide
"LeSteph" wrote:
Bonsoir Laurent,
Selon les mêmes réserves que JG
si c'est à la date où l'on saisit:
=maintenant()+90
lSteph
"laurent colledani" <laurentcolledani@discussions.microsoft.com> a écrit
dans le message de news:
112B9DFE-14D1-4DB7-8AE5-BF403BFA6540@microsoft.com...
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la
bonne
date et au format date
merci d'avance
merci pour vos réponses
il est vrai que ma question n'était pas claire!
mon pb est le suivant (je l'explique hors contecte réel sinon cela seait
trop long!)
je veux créé une fonctionVBA:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Public Function c(a As Integer, b)
If a = 1 Then
c = b + 15
ElseIf a = 2 Then
c = b + 90
End If
End Function
;;;;;;;;;;;;;;;;;;;
"b" est une date qui est saisie dans l'interface de l'assistant fonction :
ex 01/01/03
"a" est une valeur numérique saisie aussi dans l'interface de l'asssitant
fonction d'excel.
je n'arrive pas à avoir dans ma cellule calculée une date cohérente, c'est
à
dire 15 ou 90 jours apres ma date de saisie (j'ai mis b en type date (dim
b
as date) mais cela ne change rien)
merci encore pour votre aide
"LeSteph" wrote:Bonsoir Laurent,
Selon les mêmes réserves que JG
si c'est à la date où l'on saisit:
=maintenant()+90
lSteph
"laurent colledani" a écrit
dans le message de news:bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la
bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
faut pas déclarer la variable résultat comme type "date" pour la fonction
de
Lesteph).
Pourquoi? ne faudrait-il pas (cela fonctionne bien ainsi)
Mais mon contexte est en fait un peu plus compliqué. Ma date à saisir (b)
est saisie dans un userform, dans un textbox.
Or tu disais avant quelquechose de légèrement différent:
"b" est une date qui est saisie dans l'interface de l'assistant fonction
c'est pourquoi je te suggérais en entrée d'y mettre des guillemets.
merci pour vos solutions, elles fonctionnent bien en l'état (à part qu'il
ne
faut pas déclarer la variable résultat comme type "date" pour la fonction
de
Lesteph).
Mais mon contexte est en fait un peu plus compliqué. Ma date à saisir (b)
est saisie dans un userform, dans un textbox. Or , je ne peux pas ( et il
ne
faut pas pour faciliter la saisie du formulaire) mettre des guillemets
autour
de la date à saisir.
quand vos fonctions récupèrent la date saisie dans le textbox, elles
comprennent 01/01/01 et non "01/01/01". la conséquence est une date
calculée
qui affiche une date systématiquement au xx/xx/00. (toujours l'an 2000),
sinon le calcul fonctionne + ou - bien sur les jours et mois.
je vous donne un extrait du programme:
************ récupération valeur saisie dans le textebox, mise au format
date régional du système avec "cdate", affectation de cette date dans une
cellule dans un tableau (neccesaire pour les futurs utilisateurs),
affectation de la date dans la variable "b" déclarée type "date" ********
dim b as date
Range("j" & num).Value = CDate(uf1.TextBox5.Value)
b = Range("i" & num).Value
********* la fonction cette fois (si complète au niveau des tests)
*****************************************************
Public Function datebutoir(a As Integer, b As Date)
If a = 1 Then
datebutoir = b + 15
ElseIf a = 2 Then
datebutoir = b + 15
ElseIf a = 3 Then
datebutoir = b + 31
ElseIf a = 4 Then
datebutoir = b + 31
ElseIf a = 5 Then
datebutoir = b + 15
ElseIf a = 6 Then
datebutoir = b + 31
Else: datebutoir = b + 90
End If
datebutoir = Format(datebutoir, "dd/mm/yy")
End Function
****affectation de la formule dans une cellule du tableau *****
Range("L" & num).Value = datebutoir(a, b)
encore merci pour votre aide
"laurent colledani" wrote:bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
faut pas déclarer la variable résultat comme type "date" pour la fonction
de
Lesteph).
Pourquoi? ne faudrait-il pas (cela fonctionne bien ainsi)
Mais mon contexte est en fait un peu plus compliqué. Ma date à saisir (b)
est saisie dans un userform, dans un textbox.
Or tu disais avant quelquechose de légèrement différent:
"b" est une date qui est saisie dans l'interface de l'assistant fonction
c'est pourquoi je te suggérais en entrée d'y mettre des guillemets.
merci pour vos solutions, elles fonctionnent bien en l'état (à part qu'il
ne
faut pas déclarer la variable résultat comme type "date" pour la fonction
de
Lesteph).
Mais mon contexte est en fait un peu plus compliqué. Ma date à saisir (b)
est saisie dans un userform, dans un textbox. Or , je ne peux pas ( et il
ne
faut pas pour faciliter la saisie du formulaire) mettre des guillemets
autour
de la date à saisir.
quand vos fonctions récupèrent la date saisie dans le textbox, elles
comprennent 01/01/01 et non "01/01/01". la conséquence est une date
calculée
qui affiche une date systématiquement au xx/xx/00. (toujours l'an 2000),
sinon le calcul fonctionne + ou - bien sur les jours et mois.
je vous donne un extrait du programme:
************ récupération valeur saisie dans le textebox, mise au format
date régional du système avec "cdate", affectation de cette date dans une
cellule dans un tableau (neccesaire pour les futurs utilisateurs),
affectation de la date dans la variable "b" déclarée type "date" ********
dim b as date
Range("j" & num).Value = CDate(uf1.TextBox5.Value)
b = Range("i" & num).Value
********* la fonction cette fois (si complète au niveau des tests)
*****************************************************
Public Function datebutoir(a As Integer, b As Date)
If a = 1 Then
datebutoir = b + 15
ElseIf a = 2 Then
datebutoir = b + 15
ElseIf a = 3 Then
datebutoir = b + 31
ElseIf a = 4 Then
datebutoir = b + 31
ElseIf a = 5 Then
datebutoir = b + 15
ElseIf a = 6 Then
datebutoir = b + 31
Else: datebutoir = b + 90
End If
datebutoir = Format(datebutoir, "dd/mm/yy")
End Function
****affectation de la formule dans une cellule du tableau *****
Range("L" & num).Value = datebutoir(a, b)
encore merci pour votre aide
"laurent colledani" wrote:
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
faut pas déclarer la variable résultat comme type "date" pour la fonction
de
Lesteph).
Pourquoi? ne faudrait-il pas (cela fonctionne bien ainsi)
Mais mon contexte est en fait un peu plus compliqué. Ma date à saisir (b)
est saisie dans un userform, dans un textbox.
Or tu disais avant quelquechose de légèrement différent:
"b" est une date qui est saisie dans l'interface de l'assistant fonction
c'est pourquoi je te suggérais en entrée d'y mettre des guillemets.
merci pour vos solutions, elles fonctionnent bien en l'état (à part qu'il
ne
faut pas déclarer la variable résultat comme type "date" pour la fonction
de
Lesteph).
Mais mon contexte est en fait un peu plus compliqué. Ma date à saisir (b)
est saisie dans un userform, dans un textbox. Or , je ne peux pas ( et il
ne
faut pas pour faciliter la saisie du formulaire) mettre des guillemets
autour
de la date à saisir.
quand vos fonctions récupèrent la date saisie dans le textbox, elles
comprennent 01/01/01 et non "01/01/01". la conséquence est une date
calculée
qui affiche une date systématiquement au xx/xx/00. (toujours l'an 2000),
sinon le calcul fonctionne + ou - bien sur les jours et mois.
je vous donne un extrait du programme:
************ récupération valeur saisie dans le textebox, mise au format
date régional du système avec "cdate", affectation de cette date dans une
cellule dans un tableau (neccesaire pour les futurs utilisateurs),
affectation de la date dans la variable "b" déclarée type "date" ********
dim b as date
Range("j" & num).Value = CDate(uf1.TextBox5.Value)
b = Range("i" & num).Value
********* la fonction cette fois (si complète au niveau des tests)
*****************************************************
Public Function datebutoir(a As Integer, b As Date)
If a = 1 Then
datebutoir = b + 15
ElseIf a = 2 Then
datebutoir = b + 15
ElseIf a = 3 Then
datebutoir = b + 31
ElseIf a = 4 Then
datebutoir = b + 31
ElseIf a = 5 Then
datebutoir = b + 15
ElseIf a = 6 Then
datebutoir = b + 31
Else: datebutoir = b + 90
End If
datebutoir = Format(datebutoir, "dd/mm/yy")
End Function
****affectation de la formule dans une cellule du tableau *****
Range("L" & num).Value = datebutoir(a, b)
encore merci pour votre aide
"laurent colledani" wrote:bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
merci pour vos solutions, elles fonctionnent bien en l'état (à part qu'il
ne
faut pas déclarer la variable résultat comme type "date" pour la fonction
de
Lesteph).
Mais mon contexte est en fait un peu plus compliqué. Ma date à saisir (b)
est saisie dans un userform, dans un textbox. Or , je ne peux pas ( et il
ne
faut pas pour faciliter la saisie du formulaire) mettre des guillemets
autour
de la date à saisir.
quand vos fonctions récupèrent la date saisie dans le textbox, elles
comprennent 01/01/01 et non "01/01/01". la conséquence est une date
calculée
qui affiche une date systématiquement au xx/xx/00. (toujours l'an 2000),
sinon le calcul fonctionne + ou - bien sur les jours et mois.
je vous donne un extrait du programme:
************ récupération valeur saisie dans le textebox, mise au format
date régional du système avec "cdate", affectation de cette date dans une
cellule dans un tableau (neccesaire pour les futurs utilisateurs),
affectation de la date dans la variable "b" déclarée type "date" ********
dim b as date
Range("j" & num).Value = CDate(uf1.TextBox5.Value)
b = Range("i" & num).Value
********* la fonction cette fois (si complète au niveau des tests)
*****************************************************
Public Function datebutoir(a As Integer, b As Date)
If a = 1 Then
datebutoir = b + 15
ElseIf a = 2 Then
datebutoir = b + 15
ElseIf a = 3 Then
datebutoir = b + 31
ElseIf a = 4 Then
datebutoir = b + 31
ElseIf a = 5 Then
datebutoir = b + 15
ElseIf a = 6 Then
datebutoir = b + 31
Else: datebutoir = b + 90
End If
datebutoir = Format(datebutoir, "dd/mm/yy")
End Function
****affectation de la formule dans une cellule du tableau *****
Range("L" & num).Value = datebutoir(a, b)
encore merci pour votre aide
"laurent colledani" wrote:bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
merci pour vos solutions, elles fonctionnent bien en l'état (à part qu'il
ne
faut pas déclarer la variable résultat comme type "date" pour la fonction
de
Lesteph).
Mais mon contexte est en fait un peu plus compliqué. Ma date à saisir (b)
est saisie dans un userform, dans un textbox. Or , je ne peux pas ( et il
ne
faut pas pour faciliter la saisie du formulaire) mettre des guillemets
autour
de la date à saisir.
quand vos fonctions récupèrent la date saisie dans le textbox, elles
comprennent 01/01/01 et non "01/01/01". la conséquence est une date
calculée
qui affiche une date systématiquement au xx/xx/00. (toujours l'an 2000),
sinon le calcul fonctionne + ou - bien sur les jours et mois.
je vous donne un extrait du programme:
************ récupération valeur saisie dans le textebox, mise au format
date régional du système avec "cdate", affectation de cette date dans une
cellule dans un tableau (neccesaire pour les futurs utilisateurs),
affectation de la date dans la variable "b" déclarée type "date" ********
dim b as date
Range("j" & num).Value = CDate(uf1.TextBox5.Value)
b = Range("i" & num).Value
********* la fonction cette fois (si complète au niveau des tests)
*****************************************************
Public Function datebutoir(a As Integer, b As Date)
If a = 1 Then
datebutoir = b + 15
ElseIf a = 2 Then
datebutoir = b + 15
ElseIf a = 3 Then
datebutoir = b + 31
ElseIf a = 4 Then
datebutoir = b + 31
ElseIf a = 5 Then
datebutoir = b + 15
ElseIf a = 6 Then
datebutoir = b + 31
Else: datebutoir = b + 90
End If
datebutoir = Format(datebutoir, "dd/mm/yy")
End Function
****affectation de la formule dans une cellule du tableau *****
Range("L" & num).Value = datebutoir(a, b)
encore merci pour votre aide
"laurent colledani" wrote:
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
merci pour vos solutions, elles fonctionnent bien en l'état (à part qu'il
ne
faut pas déclarer la variable résultat comme type "date" pour la fonction
de
Lesteph).
Mais mon contexte est en fait un peu plus compliqué. Ma date à saisir (b)
est saisie dans un userform, dans un textbox. Or , je ne peux pas ( et il
ne
faut pas pour faciliter la saisie du formulaire) mettre des guillemets
autour
de la date à saisir.
quand vos fonctions récupèrent la date saisie dans le textbox, elles
comprennent 01/01/01 et non "01/01/01". la conséquence est une date
calculée
qui affiche une date systématiquement au xx/xx/00. (toujours l'an 2000),
sinon le calcul fonctionne + ou - bien sur les jours et mois.
je vous donne un extrait du programme:
************ récupération valeur saisie dans le textebox, mise au format
date régional du système avec "cdate", affectation de cette date dans une
cellule dans un tableau (neccesaire pour les futurs utilisateurs),
affectation de la date dans la variable "b" déclarée type "date" ********
dim b as date
Range("j" & num).Value = CDate(uf1.TextBox5.Value)
b = Range("i" & num).Value
********* la fonction cette fois (si complète au niveau des tests)
*****************************************************
Public Function datebutoir(a As Integer, b As Date)
If a = 1 Then
datebutoir = b + 15
ElseIf a = 2 Then
datebutoir = b + 15
ElseIf a = 3 Then
datebutoir = b + 31
ElseIf a = 4 Then
datebutoir = b + 31
ElseIf a = 5 Then
datebutoir = b + 15
ElseIf a = 6 Then
datebutoir = b + 31
Else: datebutoir = b + 90
End If
datebutoir = Format(datebutoir, "dd/mm/yy")
End Function
****affectation de la formule dans une cellule du tableau *****
Range("L" & num).Value = datebutoir(a, b)
encore merci pour votre aide
"laurent colledani" wrote:bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
bonjour
j'ai une fonction avec comme argument une date
cette fonction doit me rajouter 90 jours par exemple à la date saisie.
comment faire pour que la fonction affiche une donnée calculée à la bonne
date et au format date
merci d'avance
