Format de date avec affichage en majuscules ?

Bonjour Forum,

J'ai besoin d'afficher une date sous forme des 3 premières lettres du jour.

Je sais je faire sans problème avec un format personnalisé : 22/10/2014 affiché avec le format "jjj" donne "mer" (pour mercredi).

Mais maintenant, je voudrais que ces 3 lettres s'affichent en majuscules (donc MER au lieu de mer, JEU, VEN, etc...).

Est-ce possible avec les formats personnalisés ?

Merci !

Bonjour,

Malheureusement cela n'est pas possible avec les formats personnalisés ...

Il te faut un truc du genre :

=MAJUSCULE(TEXTE(41934;"JJJ"))

Bonjour,

Merci pour ta réponse.

J'y avais aussi pensé, mais il faut donc une autre cellule qui contienne le n° de série de la date.

J'attendrai donc Excel v2020 en espérant que Microsoft propose ce format personnalisé.

(si quelqu'un connait Bill Gates....)

Re,

Si tu tiens à formatter le Jour automatiquement ... sans avoir à contacter Bill Gates ...

Private Sub Worksheet_Change(ByVal Target As Range)
   Target.Value = UCase(Format(Target, "ddd"))
End Sub

Merci pour ta réponse...mais j'ai peur de devoir contacter Bill quand même.

En fait (si j'ai bien compris) ton code écrase la valeur du numéro de série contenu dans la cellule, par les 3 1ères lettres du jour de la semaine correspondant.

Mais ce que je voudrais, c'est conserver le numéro de série (qui est le résultat d'un calcul), en l'affichant sous forme de 3 lettres en majuscules.

Alors, j'appelle Bill ?

Re,

Juste avant de contacter Bill ...

une dernière tentative à tester...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = True
  If IsDate(Target) Then Target.Formula = "=UPPER(TEXT(" & CLng(Target.Value) & ",""ddd""))"
  Application.EnableEvents = True
End Sub

Salut, si tu vois Bill, dis lui qu'il rendre mon peigne !:

@JIDE

C'est moi qui l'ai ton peigne

@James007

merci pour ta réponse...mais je n'arrive pas à la faire marcher

Comme j'ai déjà du code qui commence par

Private Sub Worksheet_Change(ByVal Target As Range)

j'ai l'impression qu'il y a des interférences incontrôlables, et je suis obligé de planter Excel pour que ça cesse.

Comme à la base, c'est un souci d'esthète, je crois que je vais arrêter les frais.

Mais comme tu as l'air du genre opiniâtre, je colle quand même le code (mais si tu n'as pas le courage de comprendre ce qui merde, tu peux vraiment laisser tomber)

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = True
  If IsDate(Target) Then Target.Formula = "=UPPER(TEXT(" & CLng(Target.Value) & ",""ddd""))"
  Application.EnableEvents = True

Application.EnableEvents = False
[A9] = Range("H" & Rows.Count).End(xlUp).Row - 16 - Range("AFR_nb_cell_spectacles")
Application.EnableEvents = True

    If Flag = True Or Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, [AFR_col_urgences]) Is Nothing Then
      If Abs(Target) > 5 Then
        OldTgt = Abs(Target)
        Flag = True
        Application.ScreenUpdating = False
        For Each Cel In [AFR_col_urgences]
          If Cel.Offset(0, 2) = Target.Offset(0, 2) And Abs(Cel) < 7 Then Cel.Value = Cel / OldTgt * 5
        Next
      End If
    End If
    Flag = False

    If Target.Column = 9 Then
        With Target
            Select Case Len(.Value) - Len(Replace(.Value, Chr(10), ""))
            Case 1
                .Font.Size = 7
            Case 2
                .Font.Size = 6
            Case 3
                .Font.Size = 5
            Case 4
                .Font.Size = 5
            Case 5
                .Font.Size = 5
            Case 4
                .Font.Size = 5
            Case 3
                .Font.Size = 5
            Case 2
                .Font.Size = 6
            Case 1
                .Font.Size = 7
            End Select
        End With
    End If
End Sub

Merci en tous cas

Bonjour,

Tu as raison ...les "greffes" à l'intérieur des macros évènementielles sont souvent un vrai casse-tête ...

Du coup, je me demande si, à condition que tu ne l'utilises pas déjà, il ne serait pas judicieux pour ne pas semer la zizanie dans

Private Sub Worksheet_Change(ByVal Target As Range)

d'utiliser, d'autant plus que les dates en question proviennent de calculs ...

Private Sub Worksheet_Calculate ()

soit en global, soit en réduisant la plage d'intervention ...