XL 2010 En majuscule

Thibault98 · 9 Octobre 2016

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.

JCGL · 9 Octobre 2016

Bonjour à tous,
Re l'Agrafe,
Salut Gérard,

Staple1600 à dit:
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é

Ton bon maître avait raison et à toujours raison pour les rebelles qui ne tiennent pas compte de "l'évolution de l'orthographe" que je suis le premier à ne pas "accepter".
Mais ayant des petits enfants, je suis dans "l'obligation" de me conformer aux consignes de l'EN quand j'ai l'immense privilège de les aider dans leur devoir... (immense parce que je les voie peu au vu de l'éloignement).

A++
A+ à tous

Staple1600 · 9 Octobre 2016

Re

Je vous laisse entre rebelles
Et comme je sais que Jean D'O ne doit pas faire de VBA, je m'incline

Jours de la semaine (pluriel et majuscules)
Les noms des jours de la semaine, tout comme les noms des mois, sont des noms communs. Ils sont donc variables en nombre et s’écrivent en minuscules. On écrira ainsi : Les membres de l’Académie française se réunissent tous les jeudis.

Source:
http://www.academie-francaise.fr/questions-de-langue

EDITION: JCGL
Il y a donc une recommandation de L'EN pour mettre les noms des jours et des mois en majuscules (ou du moins le tolérer) ou j'ai mal compris ce que tu voulais dire ?

JCGL · 9 Octobre 2016

Bonjour à tous,

Sauf si ils sont placés en début de phrase ou en entête de colonne...

A+ à tous

JCGL · 9 Octobre 2016

Bonjour à tous,

Lundi 10 octobre 2016 vous êtes convoqué chez le Directeur.

A+ à tous

Staple1600 · 9 Octobre 2016

Re

Jcgl

Qui ca?
Les membres de l'Académie placés en tête de gondole?
J'arrive plus à suivre.
Pour résumer
Janvier :OK
JANVIER : Pas Ok
Rennes, le dimanche 9 octobre :OK
RENNES, LE DIMANCHE 9 OCTOBRE : Pas OK
JANVIER|FEVRIER (en entête dans un tableau ) : OK

mapomme · 9 Octobre 2016

Bonjour à tous,

Pour le fun et juste pour ce cas (car il n'y a que 7 jours différents), avec une MFC qui utilise des formats de nombres personnalisés.

nota: moi JEUDI qu'on est dimanche!

Staple1600 · 9 Octobre 2016

Bonsoir mapomme

Je suis cerné par les rebelles
Ceci dit bravo pour le coup du format personnalisé "JJJ" jj dans la MFC
Chapeau bas

job75 · 10 Octobre 2016

Bonjour Thibault98, JM, 00, mapomme, le forum,

La MFC de mapomme est la bonne solution car elle formate toutes les cellules concernées, avec ou sans formule.

Seul inconvénient : elle ne peut pas fonctionner sur les versions Excel antérieures à 2007 puisque les MFC ne peuvent pas avoir plus de 3 conditions.

On peut alors utiliser :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, dep As Range
On Error Resume Next 'si r ou dep n'existent pas
For Each r In Intersect(Target, Me.UsedRange) 'si entrées multiples
  If IsDate(r) Then r.NumberFormat = Replace("""" & UCase(Format(r, "ddd")) & """", ".", "") & " dd"
  Set dep = Nothing
  For Each dep In r.Dependents
    If IsDate(dep) Then dep.NumberFormat = Replace("""" & UCase(Format(dep, "ddd")) & """", ".", "") & " dd"
Next dep, r
End Sub

Fichier joint, j'utilise la formule MOIS.DECALER du post #1.

Bonne journée.

job75 · 10 Octobre 2016

Re,

Evidemment le formatage des cellules une par une prend du temps : la copie de F3:G14 sur F15:G1202 se fait chez moi (Win 10 - Excel 2013) en 11 secondes...

Edit : et la copie de F4:G14 sur F15:G1103 prend 425 secondes !!!

A+

Modeste geedee · 10 Octobre 2016

Bonsour®

Thibault98 à dit:
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.

Utiliser une police Majuscule !! ...
(Cooperplate, Engravers, Felix, Reprise Stamp)

job75 · 10 Octobre 2016

Re,

En fait le traitement des cellules une par une ne prend pas trop de temps, c'est l'utilisation des "Dependents" qui ne va pas du tout car il y en a trop.

Avec l'évènement Calculate il n'y a pas de problème :

Code:

Private Sub Worksheet_Calculate()
Dim r As Range
For Each r In Me.UsedRange
  If IsDate(r) Then r.NumberFormat = Replace("""" & UCase(Format(r, "ddd")) & """", ".", "") & " dd"
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, dep As Range
Set r = Intersect(Target, Me.UsedRange)
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

Sub Test()
Dim t#
t = Timer
[F4:G14].Copy [F15:G1103]
MsgBox "Durée " & Format(Timer - t, "0.00 \s")
End Sub

Sur ce fichier (2) la copie de F4:G14 sur 1100 lignes prend 0,64 seconde.

A+

Modeste geedee · 10 Octobre 2016

Bonsour®

Thibault98 à dit:
C'est vrai, mais les pros mettre les jours en majuscule alors ....

Bonne soirée
@+
Thibault

Ici, nous ne sommes que des "amateurs"

Un amateur se livre à une activité en dehors de son cadre professionnel, généralement sans rémunération, dont la motivation ressort essentiellement de la passion. Répondant en partie à des prescriptions et des désirs mimétiques.

Cliquez pour agrandir...

Les amateurs jouent parfois un rôle essentiel dans l'avancée de leur domaine de prédilection, tel que le logiciel libre, la musique libre, l'astronomie, plusieurs sciences naturelles comme l'ornithologie ou l'entomologie. Le web participatif facilite et explique le plus grand pouvoir d'impact des profanes dans l'élaboration du savoir, la production artistique ou l'engagement politique.

Cliquez pour agrandir...

https://fr.wikipedia.org/wiki/Amateur

Thibault98 · 11 Octobre 2016

Bonsoir et merci à vous tous.

Bonne soirée
@+
Thibault

XL 2010 En majuscule

Thibault98

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

Thibault98

XLDnaute Occasionnel

Discussions similaires