jours de la semaine

[justine]

bonsoir bonsoir tout le monde.
apres quelques recherches sans succes, je pose ma petite question car la memoire flanche, je ne trouve plus la solution.

sur une feuille, en A1 j'ai une valeur numerique par exemple 20
en A2, j'ai un mois par exemple mai
en A3, j'ai une annee par exemple 2006

ma question est :
quel est le code en vba pour me dire quel est le jour de A1 & '/' & A2 '/' & A3 ?

mille fois merci
justine

 

[Temjeh]

Bonjour

MsgBox Range('A1') & ' ' & Range('A2') & ' ' & Range('A3')

ou

MsgBox Range('A1') & '/' & Range('A2') & '/' & Range('A3')

A+

Temjeh

Message édité par: temjeh, à: 06/06/2006 19:23

 

[justine]

re
merci de repondre a ma question mais c'est pas ce que je veux.
je souhaiterai connaitre le jour, ici, ce serait un samedi

 

[Temjeh]

Rebonjour

Je n'ai pas beaucoup de temps mais en excel met ceci en B1:

=CHOISIR(JOURSEM(A1&A2&A3);'Dim';'Lun';'Mar';'Mer';'Jeu';'Ven';'Sam')

Temjeh

Et oui Monique avec sa simplicité ...bravo!

Message édité par: temjeh, à: 07/06/2006 00:09

 

[Bebere]

bonsoir Justine

tu changes feuil1 par le nom de ta feuille
With Sheets('Feuil1')
J = Day(DateSerial(.Range('A3').Value, .Range('A2').Value, .Range('A1').Value))
End With
à bientôt

 

[Bebere]

bonsoir Temjeh
oups,trop rapide

With Sheets('Feuil1')
J = format(Day(DateSerial(.Range('A3').Value, .Range('A2').Value, .Range('A1').Value)),'dddd')
End With

 

[Gérard DEZAMIS]

Bonsoir Justine Temjeh et Bebere

toujours en formule avec

=TEXTE(JOURSEM(A1&A2&A3);'jjjj')

@+GD

 

[Monique]

Bonjour,

ça aussi :
=(A1&A2&A3)*1
Format de la cellule : jjjj

 

[justine]

re bonsoir
merci beaucoup pour vos solutions.
j'ai pris note
justine

 

[Gérard DEZAMIS]

Bonjour Monique

Bien joué


19

caractères
de moins .... :sick:

@+GD

 

[Monique]

Re,

J'aurais bien voulu faire plus court.
Le 1er jour du mois :
=(A2&A3)*1
(mois en texte en A2 (4 lettres suffisent) et année en A3)
Mais ce n'est pas la question.

 

[fra]

bonsoir

excusez moi, on le trouve où le jjjj dans excel 2000. j'ai fait format/cellule/nombre/personalisée mais il n'y est pas. je ne l'ai pas trouvé ailleurs non plus.😱

merci

 

[fra]

bonsoir

excusez moi, on le trouve où le jjjj dans excel 2000. j'ai fait format/cellule/nombre/personalisée mais il n'y est pas. je ne l'ai pas trouvé ailleurs non plus.😱

merci

 

[Gérard DEZAMIS]

Bonsoir Fra

Soyons créatifs ... 😉

il suffit de le créer

Tu inscris simplement jjjj dans la 'fenetre' format cellule personnalisé type (à la place de standard)

@+GD

 

[fra]

merci gérard.

j'ai trouvé également la solution dans les tutos.