Algorithme pour tomber sur le bon jour

Bonjour,

Avec la fonction joursem tu peux récupérer le numéro du jour de la semaine
de ta date. En adaptant , tu peux trouver la colonne.
Avec les fonctions de numero de semaine ( au choix selon les normes), tu
peux retrouver le numero de la semaine de ta date et adapter la ligne.
Et tu peux selectionner en utilisant la ligne et la colonne.

Game over ;-)


--
HTH

Paul V.

Mojojojo wrote:

Salut...

J'ai un userform avec lequel on peut choisir une date.
Théoriquement cette date est un jour ouvrable de la
semaine (LU-MA-ME-JE-VE).
Ensuite, sur une feuille excel, j'ai un tableau avec d'un
coté les no de semaine (1-52) et au sommet, les jours (LU-
MA-ME-JE-VE).

Ce que j'aimerai bien, c'est qu'en choisissant par exemple
le 16.09.2003, et bien dans mon tableau il se retrouve
automatiquement à la colonne MARDI et à la ligne (Semaine
38)
C'est plutot rock'n roll non ???

Merci tous

Avec :
* les Nos de semaines en A2:A54
* les jours (expression longue : lundi, mardi.) en B1:H1
* la fonction NO.SEMAINE (utilitaire d'analyse installé) considérée comme
convenant
* une variable "varDate" récupérée .où tu veux

Sélectionner dans le tableau A2:H54 la cellule correspondant au N° de semaine et
au jour de la semaine :

Sub zz_Num_J_Semaine()
varDate = DateSerial(2003, 9, 16)
Cells(Evaluate("weeknum(" & varDate * 1 & ",2)") + 1,
Application.Weekday(varDate, 2) + 1).Select
End Sub

AV

"Mojojojo" <mojojo@jojo.com> a écrit dans le message news:
05b301c37c53$55356bc0$a001280a@phx.gbl...
Salut...

J'ai un userform avec lequel on peut choisir une date.
Théoriquement cette date est un jour ouvrable de la
semaine (LU-MA-ME-JE-VE).
Ensuite, sur une feuille excel, j'ai un tableau avec d'un
coté les no de semaine (1-52) et au sommet, les jours (LU-
MA-ME-JE-VE).

Ce que j'aimerai bien, c'est qu'en choisissant par exemple
le 16.09.2003, et bien dans mon tableau il se retrouve
automatiquement à la colonne MARDI et à la ligne (Semaine
38)
C'est plutot rock'n roll non ???

Merci tous

me semble déjà avoir mis un message, mais il apparait pas
depuis 12:00 alors je le remets une fois...

J'ai essayé ce code, je l'ai retourné dans tout les
sens... mais je n'arrive le faire fonctionner. Pourtant
les utilitaires d'analyse et la fonction NO.SEMAINE ont
bien été activés...

help me pliz... !!!

Sub zz_Num_J_Semaine()
varDate = DateSerial(2003, 9, 16)
Cells(Evaluate("weeknum(" & varDate * 1 & ",2)") + 1,
Application.Weekday(varDate, 2) + 1).Select
End Sub

-----Message d'origine-----
Avec :
* les Nos de semaines en A2:A54
* les jours (expression longue : lundi, mardi.) en B1:H1
* la fonction NO.SEMAINE (utilitaire d'analyse installé)
considérée comme

convenant
* une variable "varDate" récupérée .où tu veux

Sélectionner dans le tableau A2:H54 la cellule
correspondant au N° de semaine et

au jour de la semaine :

Sub zz_Num_J_Semaine()
varDate = DateSerial(2003, 9, 16)
Cells(Evaluate("weeknum(" & varDate * 1 & ",2)") + 1,
Application.Weekday(varDate, 2) + 1).Select
End Sub

AV

"Mojojojo" <mojojo@jojo.com> a écrit dans le message news:
05b301c37c53$55356bc0$a001280a@phx.gbl...
Salut...

J'ai un userform avec lequel on peut choisir une date.
Théoriquement cette date est un jour ouvrable de la
semaine (LU-MA-ME-JE-VE).
Ensuite, sur une feuille excel, j'ai un tableau avec d'un
coté les no de semaine (1-52) et au sommet, les jours (LU-
MA-ME-JE-VE).

Ce que j'aimerai bien, c'est qu'en choisissant par exemple
le 16.09.2003, et bien dans mon tableau il se retrouve
automatiquement à la colonne MARDI et à la ligne (Semaine
38)
C'est plutot rock'n roll non ???

Merci tous



.