Date

[apdf1]

Bonjour,

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

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

 

[Pierrot93]

Re : Date

Bonjour,

essaye ceci si j'ai bien compris, mais ne sera plus considéré par Excl comme une date....

    .Value = UCase(MonthName(Month(Date) - 1, True)) & " " & Year(Date)

bonne soirée
@+

 

[apdf1]

Re : Date

Bonsoir Pierrot,
Et merci mais la date se met sur 3 lettres comme ceci "AVR" pourtant le Format = "mmmm yyyy" ?

Bonne soirée
@+

 

[Denis]

Re : Date

Bonjour Max et Pierrot,
peut être comme ceci, (à tester)
.NumberFormat = "MMM yyyy"
Bonne soirée et à +
Denis

 

[Pierrot93]

Re : Date

Re, bonsoir Denis

Essaye ainsi, pour le nom du mois complet :

  .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 :

  .Value = Left(UCase(MonthName(Month(Date) - 1)), 4) & " " & Year(Date)

bonne soirée
@+

 

[apdf1]

Re : Date

Re,

Je te remercie avec cette proposition sa donne le mois complet.

.Value = UCase(MonthName(Month(Date) - 1)) & " " & Year(Date)

Je te souhaite une bonne soirée

Max

 

[Pierrot93]

Re : Date

Re,

euh oui... et tu voualais ??? j'avais mis également les 4 premiers caractères du nom du mois.....

 

[apdf1]

Re : Date

Re,

Passe une bonne soirée

Max