Majuscule format date personnalisé

Bonjour le forum

Comment mettre une majuscule à Mercredi et Septembre par exemple pour ce jour

Format => Cellule = > Date = > Personnalisé => jjjj jj mmmm aaaa dans un fichier colonne A

Merci à vous

Cordialement

Bonjour,

pas faisable par format sur les versions françaises.

Uniquement par formule mais ça sera une chaine, plus date que l'on peut trier, faire des tests etc.

eric

Bonjour eriiic

Je m'en doutais

Et dans cette macro?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long, Cel As Range, Couleur As Integer

  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Range("B10:B" & Rows.Count), Target) Is Nothing Then
    Range("A" & Target.Row) = IIf(Target = "", "", Date)
    If Target = "" Then
      Couleur = Target.Offset(-1, -1).Interior.ColorIndex
      Ligne = Target.Row
      While Left(Range("A" & Ligne), 5) <> "Série"
        Ligne = Ligne - 1
      Wend
      Set Cel = Range("A3:A8").Find(what:=Range("A" & Ligne), LookIn:=xlValues, lookat:=xlWhole)
      If Not Cel Is Nothing Then
        Couleur = Cel.Interior.ColorIndex
      End If

      Unprotect
      With Target.Offset(0, -1).Resize(1, 10)
        .ClearContents
        .Interior.ColorIndex = Couleur
      End With
      Protect
    End If
  ElseIf Not Intersect(Range("I10:I" & Rows.Count), Target) Is Nothing And Target = "" Then
      Target.NumberFormat = "#,##0.00 $"
  End If
End Sub

Oublie ça, il vaut mieux avoir de vraies dates.

De toute façon en français les jours et les mois sont des noms communs et doivent donc s'écrire en minuscules.

eric

Re et merci eriiic

Bonne journée

Cordialement

Re le forum

Et voilà

Re le forum

Et voilà ça fonctionne très bien

Application.Proper(Format(Date, "dddd dd mmmm yyyy")))

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long, Cel As Range, Couleur As Integer

  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Range("B10:B" & Rows.Count), Target) Is Nothing Then
    Range("A" & Target.Row) = IIf(Target = "", "", Application.Proper(Format(Date, "dddd dd mmmm yyyy")))
    If Target = "" Then
      Couleur = Target.Offset(-1, -1).Interior.ColorIndex
      Ligne = Target.Row
      While Left(Range("A" & Ligne), 5) <> "Série"
        Ligne = Ligne - 1
      Wend
      Set Cel = Range("A3:A8").Find(what:=Range("A" & Ligne), LookIn:=xlValues, lookat:=xlWhole)
      If Not Cel Is Nothing Then
        Couleur = Cel.Interior.ColorIndex
      End If

      Unprotect
      With Target.Offset(0, -1).Resize(1, 10)
        .ClearContents
        .Interior.ColorIndex = Couleur
      End With
      Protect
    End If
  ElseIf Not Intersect(Range("I10:I" & Rows.Count), Target) Is Nothing And Target = "" Then
      Target.NumberFormat = "#,##0.00 $"
  End If
End Sub

Cordialement