Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion apdf1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

apdf1

XLDnaute Impliqué
Bonjour,

J'aimerai savoir comment met-on la date en majuscule en VBA.
Voici le code que je possède.

Code:
Private Sub CommandButton1_Click()

If Day(Date) = 11 Then Rows("9").Insert xlShiftDown: Range("G9").Value = Month(Date)
ActiveCell.Value = Application.WorksheetFunction.Proper(ActiveCell.Value)
With Range("G9") '.
    With .Font
        .Bold = True ' texte en gras
        .Name = "Arial"
        .Size = 18
    End With
    .Value = DateSerial(Year(Date), Month(Date), -1)
    .NumberFormat = "mmm yyyy"
End With

End Sub

Merci d'avance

Cordialement

Max
 
Re : Date

Bonjour,

essaye ceci si j'ai bien compris, mais ne sera plus considéré par Excl comme une date....
Code:
    .Value = UCase(MonthName(Month(Date) - 1, True)) & " " & Year(Date)

bonne soirée
@+
 
Re : Date

Re, bonsoir Denis

Essaye ainsi, pour le nom du mois complet :
Code:
  .Value = UCase(MonthName(Month(Date) - 1)) & " " & Year(Date)

mais dans ton format tu mettais "mmm", soit le mois abrégé.... si tu veux les 4 ères lettres :
Code:
  .Value = Left(UCase(MonthName(Month(Date) - 1)), 4) & " " & Year(Date)

bonne soirée
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
914
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
359
Réponses
15
Affichages
788
Réponses
2
Affichages
411
Réponses
6
Affichages
642
Réponses
8
Affichages
653
Réponses
3
Affichages
430
Réponses
2
Affichages
772
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…