XL 2010 En majuscule

Thibault98

XLDnaute Occasionnel
Bonjour,
Je met en place un calendrier, les jours sont en 3 lettres "lun 03" par exemple avec la formule ci-dessous est-il possible de les faire apparaître en majuscule tout en pouvant effectuer des calculs ou des recherche par la suite ?
=MOIS.DECALER(DATE(RefDate;1;1);0)

LUN 03

Merci d'avance.
Thibault.
 

Staple1600

XLDnaute Barbatruc
Bonjour à tous

Thibault98
Pour information
Jours de la semaine et mois de l'année
À l'inverse des règles typographiques utilisées en anglais, les noms de jours ou de mois ne prennent pas de majuscule en français.

  • Le mardi 25 décembre.
  • Le krach du 24 octobre 1929 est appelé le jeudi noir.
  • Le dimanche de la Toussaint, le lundi de Pâques et le Vendredi saint (notez la majuscule dans ce dernier exemple, en accord avec la règle typographique pour les fêtes religieuses).
Source:
https://fr.wikipedia.org/wiki/Usage_des_majuscules_en_français

Si vraiment , tu veux des majuscules, ta toucheF1 dans Excel t'aurait déjà renseignée:rolleyes: si tu avais appuyée dessus ;)
=MAJUSCULE(A1)
ou avec une date
=MAJUSCULE(TEXTE(AUJOURDHUI();"jjjj"))
mais dans ce cas là si on fait un calcul, on obtient un joli #VALEUR!
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

[mode humour - tea time]
Rebelle donc!
Autrement dit, un âne bâté ;)
(rapport à la théorie du genre, ma phrase reste au masculin )
[/mode humour - tea time]

Dans l'histoire, on a perdu le gars Thibault, vindiou!

PS: Je ne suis pas sur, mais tu bien vu ma citation de wikipédia ?
 

job75

XLDnaute Barbatruc
Bonjour Thibault98, Jean-Marie, chère ânesse,
est-il possible de les faire apparaître en majuscule tout en pouvant effectuer des calculs ou des recherche par la suite ?
En VBA presque tout est possible.

Coller dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :
Code:
Private Sub Worksheet_Change(ByVal r As Range)
Set r = Intersect(r, Me.UsedRange) 'plage à adapter
If r Is Nothing Then Exit Sub
For Each r In r 'si entrées multiples
  If IsDate(r) Then r.NumberFormat = Replace("""" & UCase(Format(r, "ddd")) & """", ".", "") & "dd"
Next
End Sub
Bonne soirée.
 

Staple1600

XLDnaute Barbatruc
Re

C'est vrai, mais les pros mettre les jours en majuscule alors ....
Dans ce cas, ils ne le sont pas absolument pas, pro ;)

De toute façon, avec MAJUSCULE, tu restes bloqué à cause de ceci,non ?
est-il possible de les faire apparaître en majuscule tout en pouvant effectuer des calculs

EDITION: Ah bah, non
Blocage levé en VBA par job75 (que je salue au passage) qui se rebelle aussi contre l'orthographe en vigueur ;)
 

Staple1600

XLDnaute Barbatruc
Bonjour JCGL

JCGL
Vu mon discours, je serai plutôt à ranger dans la case conservateur que dans la case rebelle non ?
Voir dans le tiroir : gars qui cause un français engoncé et qui nous sort des mots comme idoine ou derechef ;)

Dans mon école communale publique du XX siècle, mon bon maître m'a jadis appris cette histoire de mois en minuscule, alors désolé mais ça m'est resté ;)
 

job75

XLDnaute Barbatruc
Re, salut Jean-Claude,

A mon avis les "pros" mettent seulement la 1ère lettre en majuscule :
Code:
Private Sub Worksheet_Change(ByVal r As Range)
Set r = Intersect(r, Me.UsedRange) 'plage à adapter
If r Is Nothing Then Exit Sub
For Each r In r 'si entrées multiples
  If IsDate(r) Then r.NumberFormat = Replace("""" & Application.Proper(Format(r, "ddd")) & """", ".", "") & "dd"
Next
End Sub
A+
 

Statistiques des forums

Discussions
314 195
Messages
2 107 029
Membres
109 738
dernier inscrit
cedrebey