Dans une de mes macro je veux la faire fonctionner suivant le jour de la
semaine. Ainsi dans une des cellule j'ai mis =today() ; format jjjjj
Quand je regarde le resulat j'ai bien Lundi, mardi ..etc
Mais dans ma macro si je lui dis " if cell = "Lundi then .... cela ne
fonctionne pas car ce n'est pas lundi mais en fait le 12/12/06 (exemple) ...
comment faire pour force a lire le jour et non une date.
J'ai essaye de copier et faire un collage special mais je n'y arrive toujour
pas.
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
JLuc
Philippe B. avait soumis l'idée :
Bonjour à tous,
Dans une de mes macro je veux la faire fonctionner suivant le jour de la semaine. Ainsi dans une des cellule j'ai mis =today() ; format jjjjj
Quand je regarde le resulat j'ai bien Lundi, mardi ..etc
Mais dans ma macro si je lui dis " if cell = "Lundi then .... cela ne fonctionne pas car ce n'est pas lundi mais en fait le 12/12/06 (exemple) ... comment faire pour force a lire le jour et non une date.
J'ai essaye de copier et faire un collage special mais je n'y arrive toujour pas.
Merci de votre aide
avec ceci, tu devrais t'en sortir :
Option Base 1
Sub test() tbl = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche") Var = Weekday(Range("A1").Value) - 1 MsgBox tbl(Var) End Sub
Philippe B. avait soumis l'idée :
Bonjour à tous,
Dans une de mes macro je veux la faire fonctionner suivant le jour de la
semaine. Ainsi dans une des cellule j'ai mis =today() ; format jjjjj
Quand je regarde le resulat j'ai bien Lundi, mardi ..etc
Mais dans ma macro si je lui dis " if cell = "Lundi then .... cela ne
fonctionne pas car ce n'est pas lundi mais en fait le 12/12/06 (exemple) ...
comment faire pour force a lire le jour et non une date.
J'ai essaye de copier et faire un collage special mais je n'y arrive toujour
pas.
Merci de votre aide
avec ceci, tu devrais t'en sortir :
Option Base 1
Sub test()
tbl = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi",
"Samedi", "Dimanche")
Var = Weekday(Range("A1").Value) - 1
MsgBox tbl(Var)
End Sub
Dans une de mes macro je veux la faire fonctionner suivant le jour de la semaine. Ainsi dans une des cellule j'ai mis =today() ; format jjjjj
Quand je regarde le resulat j'ai bien Lundi, mardi ..etc
Mais dans ma macro si je lui dis " if cell = "Lundi then .... cela ne fonctionne pas car ce n'est pas lundi mais en fait le 12/12/06 (exemple) ... comment faire pour force a lire le jour et non une date.
J'ai essaye de copier et faire un collage special mais je n'y arrive toujour pas.
Merci de votre aide
avec ceci, tu devrais t'en sortir :
Option Base 1
Sub test() tbl = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche") Var = Weekday(Range("A1").Value) - 1 MsgBox tbl(Var) End Sub
Philippe B.
Woo... quel rapidité de réponse, merci beaucoup je l'essaye dans la journée . A bientot -- Cordialement, Philippe B.
"JLuc" wrote:
Philippe B. avait soumis l'idée :
Bonjour à tous,
Dans une de mes macro je veux la faire fonctionner suivant le jour de la semaine. Ainsi dans une des cellule j'ai mis =today() ; format jjjjj
Quand je regarde le resulat j'ai bien Lundi, mardi ..etc
Mais dans ma macro si je lui dis " if cell = "Lundi then .... cela ne fonctionne pas car ce n'est pas lundi mais en fait le 12/12/06 (exemple) ... comment faire pour force a lire le jour et non une date.
J'ai essaye de copier et faire un collage special mais je n'y arrive toujour pas.
Merci de votre aide
avec ceci, tu devrais t'en sortir :
Option Base 1
Sub test() tbl = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche") Var = Weekday(Range("A1").Value) - 1 MsgBox tbl(Var) End Sub
Woo... quel rapidité de réponse, merci beaucoup je l'essaye dans la journée .
A bientot
--
Cordialement,
Philippe B.
"JLuc" wrote:
Philippe B. avait soumis l'idée :
Bonjour à tous,
Dans une de mes macro je veux la faire fonctionner suivant le jour de la
semaine. Ainsi dans une des cellule j'ai mis =today() ; format jjjjj
Quand je regarde le resulat j'ai bien Lundi, mardi ..etc
Mais dans ma macro si je lui dis " if cell = "Lundi then .... cela ne
fonctionne pas car ce n'est pas lundi mais en fait le 12/12/06 (exemple) ...
comment faire pour force a lire le jour et non une date.
J'ai essaye de copier et faire un collage special mais je n'y arrive toujour
pas.
Merci de votre aide
avec ceci, tu devrais t'en sortir :
Option Base 1
Sub test()
tbl = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi",
"Samedi", "Dimanche")
Var = Weekday(Range("A1").Value) - 1
MsgBox tbl(Var)
End Sub
Woo... quel rapidité de réponse, merci beaucoup je l'essaye dans la journée . A bientot -- Cordialement, Philippe B.
"JLuc" wrote:
Philippe B. avait soumis l'idée :
Bonjour à tous,
Dans une de mes macro je veux la faire fonctionner suivant le jour de la semaine. Ainsi dans une des cellule j'ai mis =today() ; format jjjjj
Quand je regarde le resulat j'ai bien Lundi, mardi ..etc
Mais dans ma macro si je lui dis " if cell = "Lundi then .... cela ne fonctionne pas car ce n'est pas lundi mais en fait le 12/12/06 (exemple) ... comment faire pour force a lire le jour et non une date.
J'ai essaye de copier et faire un collage special mais je n'y arrive toujour pas.
Merci de votre aide
avec ceci, tu devrais t'en sortir :
Option Base 1
Sub test() tbl = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche") Var = Weekday(Range("A1").Value) - 1 MsgBox tbl(Var) End Sub
Philippe B.
Rebonjour JLuc, Je viens de l'essaye et cela marche mais je dois mettre une valeur -2 a la place -1 je comprend à peut pres la macro mais pas vraiment pour cette valeur négative pourrait tu m'éclairer sur le sujet ou me guider vers un site ou je peux trouver ses informations. -- Cordialement, Philippe B.
"JLuc" wrote:
Philippe B. avait soumis l'idée :
Bonjour à tous,
Dans une de mes macro je veux la faire fonctionner suivant le jour de la semaine. Ainsi dans une des cellule j'ai mis =today() ; format jjjjj
Quand je regarde le resulat j'ai bien Lundi, mardi ..etc
Mais dans ma macro si je lui dis " if cell = "Lundi then .... cela ne fonctionne pas car ce n'est pas lundi mais en fait le 12/12/06 (exemple) ... comment faire pour force a lire le jour et non une date.
J'ai essaye de copier et faire un collage special mais je n'y arrive toujour pas.
Merci de votre aide
avec ceci, tu devrais t'en sortir :
Option Base 1
Sub test() tbl = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche") Var = Weekday(Range("A1").Value) - 1 MsgBox tbl(Var) End Sub
Rebonjour JLuc,
Je viens de l'essaye et cela marche mais je dois mettre une valeur -2 a la
place -1
je comprend à peut pres la macro mais pas vraiment pour cette valeur
négative pourrait tu m'éclairer sur le sujet ou me guider vers un site ou je
peux trouver ses informations.
--
Cordialement,
Philippe B.
"JLuc" wrote:
Philippe B. avait soumis l'idée :
Bonjour à tous,
Dans une de mes macro je veux la faire fonctionner suivant le jour de la
semaine. Ainsi dans une des cellule j'ai mis =today() ; format jjjjj
Quand je regarde le resulat j'ai bien Lundi, mardi ..etc
Mais dans ma macro si je lui dis " if cell = "Lundi then .... cela ne
fonctionne pas car ce n'est pas lundi mais en fait le 12/12/06 (exemple) ...
comment faire pour force a lire le jour et non une date.
J'ai essaye de copier et faire un collage special mais je n'y arrive toujour
pas.
Merci de votre aide
avec ceci, tu devrais t'en sortir :
Option Base 1
Sub test()
tbl = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi",
"Samedi", "Dimanche")
Var = Weekday(Range("A1").Value) - 1
MsgBox tbl(Var)
End Sub
Rebonjour JLuc, Je viens de l'essaye et cela marche mais je dois mettre une valeur -2 a la place -1 je comprend à peut pres la macro mais pas vraiment pour cette valeur négative pourrait tu m'éclairer sur le sujet ou me guider vers un site ou je peux trouver ses informations. -- Cordialement, Philippe B.
"JLuc" wrote:
Philippe B. avait soumis l'idée :
Bonjour à tous,
Dans une de mes macro je veux la faire fonctionner suivant le jour de la semaine. Ainsi dans une des cellule j'ai mis =today() ; format jjjjj
Quand je regarde le resulat j'ai bien Lundi, mardi ..etc
Mais dans ma macro si je lui dis " if cell = "Lundi then .... cela ne fonctionne pas car ce n'est pas lundi mais en fait le 12/12/06 (exemple) ... comment faire pour force a lire le jour et non une date.
J'ai essaye de copier et faire un collage special mais je n'y arrive toujour pas.
Merci de votre aide
avec ceci, tu devrais t'en sortir :
Option Base 1
Sub test() tbl = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche") Var = Weekday(Range("A1").Value) - 1 MsgBox tbl(Var) End Sub
JLuc
En debut de module il faut mettre OPTION BASE 1 pour l'index des tableaux. Sinon excelprends les indices a partir de 0. Ensuite, WeekDay prends comme valeur : 1=Dimanche 2=Lundi 3=Mardi ... Par contre, il est vrai qu'il faut tester si on recoit 1 et lui imposer 7 (sinon on aura 0 ce qui entrainera une erreur) JLuc
Philippe B. avait soumis l'idée :
Rebonjour JLuc, Je viens de l'essaye et cela marche mais je dois mettre une valeur -2 a la place -1 je comprend à peut pres la macro mais pas vraiment pour cette valeur négative pourrait tu m'éclairer sur le sujet ou me guider vers un site ou je peux trouver ses informations. -- Cordialement, Philippe B.
"JLuc" wrote:
Philippe B. avait soumis l'idée :
Bonjour à tous,
Dans une de mes macro je veux la faire fonctionner suivant le jour de la semaine. Ainsi dans une des cellule j'ai mis =today() ; format jjjjj
Quand je regarde le resulat j'ai bien Lundi, mardi ..etc
Mais dans ma macro si je lui dis " if cell = "Lundi then .... cela ne fonctionne pas car ce n'est pas lundi mais en fait le 12/12/06 (exemple) ... comment faire pour force a lire le jour et non une date.
J'ai essaye de copier et faire un collage special mais je n'y arrive toujour pas.
Merci de votre aide
avec ceci, tu devrais t'en sortir :
Option Base 1
Sub test() tbl = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche") Var = Weekday(Range("A1").Value) - 1 MsgBox tbl(Var) End Sub
En debut de module il faut mettre OPTION BASE 1 pour l'index des
tableaux. Sinon excelprends les indices a partir de 0.
Ensuite, WeekDay prends comme valeur :
1=Dimanche
2=Lundi
3=Mardi
...
Par contre, il est vrai qu'il faut tester si on recoit 1 et lui imposer
7 (sinon on aura 0 ce qui entrainera une erreur)
JLuc
Philippe B. avait soumis l'idée :
Rebonjour JLuc,
Je viens de l'essaye et cela marche mais je dois mettre une valeur -2 a la
place -1
je comprend à peut pres la macro mais pas vraiment pour cette valeur
négative pourrait tu m'éclairer sur le sujet ou me guider vers un site ou je
peux trouver ses informations.
--
Cordialement,
Philippe B.
"JLuc" wrote:
Philippe B. avait soumis l'idée :
Bonjour à tous,
Dans une de mes macro je veux la faire fonctionner suivant le jour de la
semaine. Ainsi dans une des cellule j'ai mis =today() ; format jjjjj
Quand je regarde le resulat j'ai bien Lundi, mardi ..etc
Mais dans ma macro si je lui dis " if cell = "Lundi then .... cela ne
fonctionne pas car ce n'est pas lundi mais en fait le 12/12/06 (exemple)
... comment faire pour force a lire le jour et non une date.
J'ai essaye de copier et faire un collage special mais je n'y arrive
toujour pas.
Merci de votre aide
avec ceci, tu devrais t'en sortir :
Option Base 1
Sub test()
tbl = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi",
"Samedi", "Dimanche")
Var = Weekday(Range("A1").Value) - 1
MsgBox tbl(Var)
End Sub
En debut de module il faut mettre OPTION BASE 1 pour l'index des tableaux. Sinon excelprends les indices a partir de 0. Ensuite, WeekDay prends comme valeur : 1=Dimanche 2=Lundi 3=Mardi ... Par contre, il est vrai qu'il faut tester si on recoit 1 et lui imposer 7 (sinon on aura 0 ce qui entrainera une erreur) JLuc
Philippe B. avait soumis l'idée :
Rebonjour JLuc, Je viens de l'essaye et cela marche mais je dois mettre une valeur -2 a la place -1 je comprend à peut pres la macro mais pas vraiment pour cette valeur négative pourrait tu m'éclairer sur le sujet ou me guider vers un site ou je peux trouver ses informations. -- Cordialement, Philippe B.
"JLuc" wrote:
Philippe B. avait soumis l'idée :
Bonjour à tous,
Dans une de mes macro je veux la faire fonctionner suivant le jour de la semaine. Ainsi dans une des cellule j'ai mis =today() ; format jjjjj
Quand je regarde le resulat j'ai bien Lundi, mardi ..etc
Mais dans ma macro si je lui dis " if cell = "Lundi then .... cela ne fonctionne pas car ce n'est pas lundi mais en fait le 12/12/06 (exemple) ... comment faire pour force a lire le jour et non une date.
J'ai essaye de copier et faire un collage special mais je n'y arrive toujour pas.
Merci de votre aide
avec ceci, tu devrais t'en sortir :
Option Base 1
Sub test() tbl = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche") Var = Weekday(Range("A1").Value) - 1 MsgBox tbl(Var) End Sub
AV
If Format(Weekday(ActiveCell, 1), "dddd") = "lundi" Then
AV
If Format(Weekday(ActiveCell, 1), "dddd") = "lundi" Then
