Lettre du jours en majuscule a coté de la date

Le 26/01/2022 à 21:56

Bonjour a tous ,

avec la fonction format de cellule , je n'arrive pas mettre uniquement la lettre du jours en majuscule a coté de la date .

j'ai vu plein de chose sur internet qui parle de mettre en majuscule la date mais pas la lettre

exemple :

A1 :26 jan 2022

B2 :M

également est-ce possible de tirer la colonne pour que ca se mettent a jours automatiquement

merci pour votre aide ,

cordialement

Le 27/01/2022 à 05:15

Bonjour,

il faut passer par une petite macro en VBA, voici ce que ça donne pour les dates saisies en colonne A, saisissez les dates dans cette colonne et aussitôt la lettre du jour en majuscule vient se loger devant .

Le code utilisé (dans le module VBA de la feuille), pour voir le code, faire ALT + F11 et sélectionnez "Feuil1(Feuil1)" dans la partie gauche de la fenêtre VBA.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Sortie
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Application.EnableEvents = False
        Jour = UCase(Left(Format(Target, "DDD"), 1))
        Target = Jour & " " & Target
    End If
Sortie:
    Application.EnableEvents = True
End Sub

Cdlt

Le 27/01/2022 à 09:31

Bonjour Moi je comprends autre chose

En B1 pour une date en A1 :

=MAJUSCULE(GAUCHE(TEXTE(A1;"jjjj");1))

Le 28/01/2022 à 21:13

bonjour,

Merci pour votre retour ,

il s'agit exactement de la solution arturo83 sauf que le la lettre du jours je souhaiterais qu'elle soit dans la colone B

j'ai mis du temps a répondre car je n'arrive pas a exécuter la macro au boulot mais sur mon pc perso oui

Le 29/01/2022 à 04:11

Bonjour,

Je ne comprends pas, s'il s'agit d'avoir la lettre dans la cellule B, la proposition de Valentin85 fait l'affaire (et c'est même préférable, puisqu'il faut toujours priorisé la solution Excel au VBA), à moins que vous teniez absolument a ne pas avoir de formule.

Sinon la modif:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Sortie
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Application.EnableEvents = False
        Jour = UCase(Left(Format(Target, "DDD"), 1))
        Target.Offset(0, 1).Value = Jour
    End If
Sortie:
    Application.EnableEvents = True
End Sub

CDlt

Le 29/01/2022 à 13:39

bonjour merci a tous pour vos réponse ou en effet j'ai réussi a faire fonctionné la formule de valentin 85 au début j'avais une erreur 1+1

maintenant tout fonctionne que se soit de la formule ou une macro ce n'ai pas un problème pour moi ,

je continue toujours dans les dates je suis obliger d'utiliser dans mon xls des date au format us

comme mon dossier et en colonnes ,

au lieu d'avoir 01/01/2022 j'aimerai quand je saisie 01/01/22 ca m'indique 1

merci encore a tous

12test-xls-dates.xlsx (10.20 Ko)

Le 29/01/2022 à 15:03

Bonjour,

En fait, vous voulez créer un calendrier

12loulouoise-lettre-du-jours-en-majuscule-a-cote-de-la-date.xlsx (16.45 Ko)

Cdlt

Le 29/01/2022 à 15:42

Non pas vraiment je modufue un planing de maintenance preventive j'essaie de me simplifier la vie car mon prédécesseur avait établi un tout en saisie manuelle sans formule et comme je doit l'actualiser . En regardant un vrais calendrier cest la loose. Du coup =ligne() n'ira pas .

merci

Le 29/01/2022 à 17:29