XL 2010 Utilisé plusieur cellule pour créer une date

SSIAP2

XLDnaute Occasionnel
Bonjour à tous je recherche une solution pour aficher sous forme de date exemple Lundi 01 Aout 2016

quand je sélectionne en cellule
A1 = 01
B1 = aout
C1= 2016

le résultat serait en N2

quelle formule ou macro pourais je utilisé svp merci
 

Yurperqod

XLDnaute Occasionnel
SSIAP2
bonjour à vous et merci pour cette réponse rapide j'ai tester la solution mais il me donne pas le jour Lundi mardi ect...
Dans le message N°3, je t'indiquais le format à utiliser pour avoir lundi 1 août 2016...
Bonjour le forum

Une formule possible
=TEXTE(A1&"/"&B1&"/"&C1;"jjjj jj mmmm aaaa")
Et même remarque que JHA concernant l'orthographe du nom du mois en B1.
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
bonjour à vous et merci pour cette réponse rapide j'ai tester la solution mais il me donne pas le jour Lundi mardi ect...
pour le fun
alors essaie ceci :
Code:
=TEXTE(DATEVAL(A1&A2&A3);"[$-F800]jjjj j mmmm aaaa")
ou bien
=TEXTE(DATEVAL(A1&A2&A3);"[$-409]jjjj j mmmm aaaa")
ou encore
=TEXTE(DATEVAL(A1&A2&A3);"[$-1801]jjjj j mmmm aaaa")
:rolleyes:
voir aussi :
http://excel-downloads.com/threads/format-date-en-anglais-vba.224858/#post-1426799
fil initié par awa123o_O
 
Dernière édition:

job75

XLDnaute Barbatruc
Re,

Si l'on veut une majuscule pour le jour on peut créer le format personnalisé par macro :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a
a = Array("Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi")
If IsDate([N2]) Then [N2].NumberFormat = """" & a(Weekday([N2]) - 1) & """" & " dd mmmm yyyy"
End Sub
Il y aura au total 7 formats différents créés.

Fichier .xlsm joint.

A+
 

Pièces jointes

  • SSIAP2(1).xlsm
    20.4 KB · Affichages: 18

Si...

XLDnaute Barbatruc
Salut
Bonjour à tous je recherche une solution pour aficher sous forme de date exemple Lundi 01 Aout 2016
le résultat serait en N2
quelle formule ou macro pourais je utilisé svp merci
Vous avez dit « Macro » ?
Il n’y a que ça dans le fichier joint…

nota : pour atteidre les derniers items d'une liste déroulante il suffit de garder le bouton gauche appuyé sur un des premiers et de descendre.
 

Pièces jointes

  • CelluleDate(UsF).xlsm
    18.8 KB · Affichages: 20

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 348
Messages
2 087 508
Membres
103 568
dernier inscrit
NoS