Bonjour a tous,=20
j'ai un petit probl=E8me avec les date dans un classeur qui=20
contient 12 feuille (une pour chaque mois de l'ann=E9e)
j'ai attribu=E9 a une des cellule la formule "=3DMaintenant()"
et je l'ai formate en date longue (30 septembre 2004)
puis j'ai mis dans mon code:
If Date =3D DateSerial(ActiveSheet.[U2], 12, 31) Then
MsgBox "C'est la fin du mois,pensez =E0 envoyer" & Chr(13) _
& "une copie de vos statisitques via Lotus Note =E0 votre"=20
& Chr(13) _
& "chef de centre!", vbInformation, "Rappel!"
End If
U2 repr=E9sente la cellule qui affiche la date du jour,=20
hors a l'ouverture d'une feuille je recois l'erreur=20
suivante:
"Erreur d'execution 6"
D=E9passement de capacit=E9
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Joel
Bonsoir,
et si, à la place de
=Maintenant()
tu essayais
=Aujourdhui()
cela irait-il ?
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "STEN83" a écrit dans le message de news: 180001c4a6fd$b81b9a90$ Bonjour a tous, j'ai un petit problème avec les date dans un classeur qui contient 12 feuille (une pour chaque mois de l'année) j'ai attribué a une des cellule la formule "=Maintenant()" et je l'ai formate en date longue (30 septembre 2004) puis j'ai mis dans mon code:
If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then MsgBox "C'est la fin du mois,pensez à envoyer" & Chr(13) _ & "une copie de vos statisitques via Lotus Note à votre" & Chr(13) _ & "chef de centre!", vbInformation, "Rappel!" End If
U2 représente la cellule qui affiche la date du jour, hors a l'ouverture d'une feuille je recois l'erreur suivante: "Erreur d'execution 6" Dépassement de capacité
Pouvez vous m'éclairer!
Merci a tous
Bonsoir,
et si, à la place de
=Maintenant()
tu essayais
=Aujourdhui()
cela irait-il ?
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"STEN83" <jysmld83@aol.com> a écrit dans le message de news:
180001c4a6fd$b81b9a90$a401280a@phx.gbl...
Bonjour a tous,
j'ai un petit problème avec les date dans un classeur qui
contient 12 feuille (une pour chaque mois de l'année)
j'ai attribué a une des cellule la formule "=Maintenant()"
et je l'ai formate en date longue (30 septembre 2004)
puis j'ai mis dans mon code:
If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then
MsgBox "C'est la fin du mois,pensez à envoyer" & Chr(13) _
& "une copie de vos statisitques via Lotus Note à votre"
& Chr(13) _
& "chef de centre!", vbInformation, "Rappel!"
End If
U2 représente la cellule qui affiche la date du jour,
hors a l'ouverture d'une feuille je recois l'erreur
suivante:
"Erreur d'execution 6"
Dépassement de capacité
Joël GARBE www.joelgarbe.fr "STEN83" a écrit dans le message de news: 180001c4a6fd$b81b9a90$ Bonjour a tous, j'ai un petit problème avec les date dans un classeur qui contient 12 feuille (une pour chaque mois de l'année) j'ai attribué a une des cellule la formule "=Maintenant()" et je l'ai formate en date longue (30 septembre 2004) puis j'ai mis dans mon code:
If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then MsgBox "C'est la fin du mois,pensez à envoyer" & Chr(13) _ & "une copie de vos statisitques via Lotus Note à votre" & Chr(13) _ & "chef de centre!", vbInformation, "Rappel!" End If
U2 représente la cellule qui affiche la date du jour, hors a l'ouverture d'une feuille je recois l'erreur suivante: "Erreur d'execution 6" Dépassement de capacité
Pouvez vous m'éclairer!
Merci a tous
G.W.
Bonsoir STEN, En mettant ( enU2 ) = aujourdhui() et en remplacant If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then par If Date = ActiveSheet.[U2].value tu devrais obtenir ce que tu cherches ?
GW
"STEN83" a écrit dans le message news: 180001c4a6fd$b81b9a90$ Bonjour a tous, j'ai un petit problème avec les date dans un classeur qui contient 12 feuille (une pour chaque mois de l'année) j'ai attribué a une des cellule la formule "=Maintenant()" et je l'ai formate en date longue (30 septembre 2004) puis j'ai mis dans mon code:
If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then MsgBox "C'est la fin du mois,pensez à envoyer" & Chr(13) _ & "une copie de vos statisitques via Lotus Note à votre" & Chr(13) _ & "chef de centre!", vbInformation, "Rappel!" End If
U2 représente la cellule qui affiche la date du jour, hors a l'ouverture d'une feuille je recois l'erreur suivante: "Erreur d'execution 6" Dépassement de capacité
Pouvez vous m'éclairer!
Merci a tous
Bonsoir STEN,
En mettant ( enU2 ) = aujourdhui()
et en remplacant
If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then
par
If Date = ActiveSheet.[U2].value tu devrais obtenir ce que tu cherches ?
GW
"STEN83" <jysmld83@aol.com> a écrit dans le message news:
180001c4a6fd$b81b9a90$a401280a@phx.gbl...
Bonjour a tous,
j'ai un petit problème avec les date dans un classeur qui
contient 12 feuille (une pour chaque mois de l'année)
j'ai attribué a une des cellule la formule "=Maintenant()"
et je l'ai formate en date longue (30 septembre 2004)
puis j'ai mis dans mon code:
If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then
MsgBox "C'est la fin du mois,pensez à envoyer" & Chr(13) _
& "une copie de vos statisitques via Lotus Note à votre"
& Chr(13) _
& "chef de centre!", vbInformation, "Rappel!"
End If
U2 représente la cellule qui affiche la date du jour,
hors a l'ouverture d'une feuille je recois l'erreur
suivante:
"Erreur d'execution 6"
Dépassement de capacité
Bonsoir STEN, En mettant ( enU2 ) = aujourdhui() et en remplacant If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then par If Date = ActiveSheet.[U2].value tu devrais obtenir ce que tu cherches ?
GW
"STEN83" a écrit dans le message news: 180001c4a6fd$b81b9a90$ Bonjour a tous, j'ai un petit problème avec les date dans un classeur qui contient 12 feuille (une pour chaque mois de l'année) j'ai attribué a une des cellule la formule "=Maintenant()" et je l'ai formate en date longue (30 septembre 2004) puis j'ai mis dans mon code:
If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then MsgBox "C'est la fin du mois,pensez à envoyer" & Chr(13) _ & "une copie de vos statisitques via Lotus Note à votre" & Chr(13) _ & "chef de centre!", vbInformation, "Rappel!" End If
U2 représente la cellule qui affiche la date du jour, hors a l'ouverture d'une feuille je recois l'erreur suivante: "Erreur d'execution 6" Dépassement de capacité
Pouvez vous m'éclairer!
Merci a tous
AV
Tu pourrais ne pas faire appel à une cellule Pour une alerte si la date du jour est = au dernier jour du mois :
If Date = DateSerial(Year(Date), Month(Date) + 1, 0) Then.....
AV
Tu pourrais ne pas faire appel à une cellule
Pour une alerte si la date du jour est = au dernier jour du mois :
If Date = DateSerial(Year(Date), Month(Date) + 1, 0) Then.....
Tu pourrais ne pas faire appel à une cellule Pour une alerte si la date du jour est = au dernier jour du mois :
If Date = DateSerial(Year(Date), Month(Date) + 1, 0) Then.....
AV
Patrick Fredin
Bonjour,
L'erreur viens du fait que dans la cellule il y a un nombre qui représente la date (38260 pour le 30/09/2004). Dans ta fonction tu utilises ce chiffre et non le numéro de l'année comme année, ce qui n'est pas possible puisque les années dans Windows doivent s'arrêter en 2099 (à peu près).
Je ne pense pas que tu aies besoin de faire référence à cette cellule. Tu peux utiliser cette syntaxe :
If Date = DateSerial(Year(Date), 12, 31) Then pour le 31/12.
Pour n'importe quelle fin de mois tu fais : If Date = DateSerial(Year(Date), Month(Date) + 1, 0) Then
Tu peux aussi faire référence à la cellule mais il faut toujours que tu spécifies quelle partie de la date tu veux (année, mois, jour).
-- Patrick
"STEN83" wrote in message news:180001c4a6fd$b81b9a90$ Bonjour a tous, j'ai un petit problème avec les date dans un classeur qui contient 12 feuille (une pour chaque mois de l'année) j'ai attribué a une des cellule la formule "=Maintenant()" et je l'ai formate en date longue (30 septembre 2004) puis j'ai mis dans mon code:
If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then MsgBox "C'est la fin du mois,pensez à envoyer" & Chr(13) _ & "une copie de vos statisitques via Lotus Note à votre" & Chr(13) _ & "chef de centre!", vbInformation, "Rappel!" End If
U2 représente la cellule qui affiche la date du jour, hors a l'ouverture d'une feuille je recois l'erreur suivante: "Erreur d'execution 6" Dépassement de capacité
Pouvez vous m'éclairer!
Merci a tous
Bonjour,
L'erreur viens du fait que dans la cellule il y a un nombre qui représente
la date (38260 pour le 30/09/2004). Dans ta fonction tu utilises ce chiffre
et non le numéro de l'année comme année, ce qui n'est pas possible puisque
les années dans Windows doivent s'arrêter en 2099 (à peu près).
Je ne pense pas que tu aies besoin de faire référence à cette cellule. Tu
peux utiliser cette syntaxe :
If Date = DateSerial(Year(Date), 12, 31) Then
pour le 31/12.
Pour n'importe quelle fin de mois tu fais :
If Date = DateSerial(Year(Date), Month(Date) + 1, 0) Then
Tu peux aussi faire référence à la cellule mais il faut toujours que tu
spécifies quelle partie de la date tu veux (année, mois, jour).
--
Patrick
"STEN83" <jysmld83@aol.com> wrote in message
news:180001c4a6fd$b81b9a90$a401280a@phx.gbl...
Bonjour a tous,
j'ai un petit problème avec les date dans un classeur qui
contient 12 feuille (une pour chaque mois de l'année)
j'ai attribué a une des cellule la formule "=Maintenant()"
et je l'ai formate en date longue (30 septembre 2004)
puis j'ai mis dans mon code:
If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then
MsgBox "C'est la fin du mois,pensez à envoyer" & Chr(13) _
& "une copie de vos statisitques via Lotus Note à votre"
& Chr(13) _
& "chef de centre!", vbInformation, "Rappel!"
End If
U2 représente la cellule qui affiche la date du jour,
hors a l'ouverture d'une feuille je recois l'erreur
suivante:
"Erreur d'execution 6"
Dépassement de capacité
L'erreur viens du fait que dans la cellule il y a un nombre qui représente la date (38260 pour le 30/09/2004). Dans ta fonction tu utilises ce chiffre et non le numéro de l'année comme année, ce qui n'est pas possible puisque les années dans Windows doivent s'arrêter en 2099 (à peu près).
Je ne pense pas que tu aies besoin de faire référence à cette cellule. Tu peux utiliser cette syntaxe :
If Date = DateSerial(Year(Date), 12, 31) Then pour le 31/12.
Pour n'importe quelle fin de mois tu fais : If Date = DateSerial(Year(Date), Month(Date) + 1, 0) Then
Tu peux aussi faire référence à la cellule mais il faut toujours que tu spécifies quelle partie de la date tu veux (année, mois, jour).
-- Patrick
"STEN83" wrote in message news:180001c4a6fd$b81b9a90$ Bonjour a tous, j'ai un petit problème avec les date dans un classeur qui contient 12 feuille (une pour chaque mois de l'année) j'ai attribué a une des cellule la formule "=Maintenant()" et je l'ai formate en date longue (30 septembre 2004) puis j'ai mis dans mon code:
If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then MsgBox "C'est la fin du mois,pensez à envoyer" & Chr(13) _ & "une copie de vos statisitques via Lotus Note à votre" & Chr(13) _ & "chef de centre!", vbInformation, "Rappel!" End If
U2 représente la cellule qui affiche la date du jour, hors a l'ouverture d'une feuille je recois l'erreur suivante: "Erreur d'execution 6" Dépassement de capacité
Pouvez vous m'éclairer!
Merci a tous
Jacky
Bonsoir
Si c'est pour la fin de tous les mois et que la date du jour est en U2 de chaque feuille. Ceci pourrait convenir '--------- If Month(Date + 1) > Month((ActiveSheet.[U2])) Then --- '----- Salutations JJ
"STEN83" a écrit dans le message de news:180001c4a6fd$b81b9a90$ Bonjour a tous, j'ai un petit problème avec les date dans un classeur qui contient 12 feuille (une pour chaque mois de l'année) j'ai attribué a une des cellule la formule "=Maintenant()" et je l'ai formate en date longue (30 septembre 2004) puis j'ai mis dans mon code:
If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then MsgBox "C'est la fin du mois,pensez à envoyer" & Chr(13) _ & "une copie de vos statisitques via Lotus Note à votre" & Chr(13) _ & "chef de centre!", vbInformation, "Rappel!" End If
U2 représente la cellule qui affiche la date du jour, hors a l'ouverture d'une feuille je recois l'erreur suivante: "Erreur d'execution 6" Dépassement de capacité
Pouvez vous m'éclairer!
Merci a tous
Bonsoir
Si c'est pour la fin de tous les mois et que la date du jour est en U2 de
chaque feuille.
Ceci pourrait convenir
'---------
If Month(Date + 1) > Month((ActiveSheet.[U2])) Then
---
'-----
Salutations
JJ
"STEN83" <jysmld83@aol.com> a écrit dans le message de
news:180001c4a6fd$b81b9a90$a401280a@phx.gbl...
Bonjour a tous,
j'ai un petit problème avec les date dans un classeur qui
contient 12 feuille (une pour chaque mois de l'année)
j'ai attribué a une des cellule la formule "=Maintenant()"
et je l'ai formate en date longue (30 septembre 2004)
puis j'ai mis dans mon code:
If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then
MsgBox "C'est la fin du mois,pensez à envoyer" & Chr(13) _
& "une copie de vos statisitques via Lotus Note à votre"
& Chr(13) _
& "chef de centre!", vbInformation, "Rappel!"
End If
U2 représente la cellule qui affiche la date du jour,
hors a l'ouverture d'une feuille je recois l'erreur
suivante:
"Erreur d'execution 6"
Dépassement de capacité
Si c'est pour la fin de tous les mois et que la date du jour est en U2 de chaque feuille. Ceci pourrait convenir '--------- If Month(Date + 1) > Month((ActiveSheet.[U2])) Then --- '----- Salutations JJ
"STEN83" a écrit dans le message de news:180001c4a6fd$b81b9a90$ Bonjour a tous, j'ai un petit problème avec les date dans un classeur qui contient 12 feuille (une pour chaque mois de l'année) j'ai attribué a une des cellule la formule "=Maintenant()" et je l'ai formate en date longue (30 septembre 2004) puis j'ai mis dans mon code:
If Date = DateSerial(ActiveSheet.[U2], 12, 31) Then MsgBox "C'est la fin du mois,pensez à envoyer" & Chr(13) _ & "une copie de vos statisitques via Lotus Note à votre" & Chr(13) _ & "chef de centre!", vbInformation, "Rappel!" End If
U2 représente la cellule qui affiche la date du jour, hors a l'ouverture d'une feuille je recois l'erreur suivante: "Erreur d'execution 6" Dépassement de capacité
