Comment mettre auto une plage en nom propre en vba

[libellule85]

Bonjour le forum,

Une question pour les pros des macros : comment mettre une plage automatiquement en nom propre en vba ?

J'ai une plage de B11:G16, sur chaque ligne je rentre une date 04/04/2016 au format lundi 04 avril 2016 et je veux que la date apparaisse Lundi 04 Avril 2016.

d'avance merci pour votre aide

 

[job75]

Re : Comment mettre auto une plage en nom propre en vba

Bonjour libellule85,

Les formats de dates sont toujours en minuscules.

Pour obtenir des noms propres il faut une formule :

=NOMPROPRE(TEXTE(A1;"jjjj jj mmmm aaaa"))

A+

 

[libellule85]

Re : Comment mettre auto une plage en nom propre en vba

Bonjour job75,

Merci pour ta réponse (je connaissais la formule), mais je voulais une macro qui s'applique pour la plage B11:G16 !

 

[job75]

Re : Comment mettre auto une plage en nom propre en vba

Re,

Dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [B11:B16])
If r Is Nothing Then Exit Sub
For Each r In r 'si entrées multiples
  r.NumberFormat = """" & Application.Proper(Format(r, "dddd")) _
    & """ dd """ & Application.Proper(Format(r, "mmmm")) & """ yyyy"
Next
End Sub

Un format personnalisé est créé pour chaque cellule, au total il pourra s'en créer 7 x 12 = 84 🙄

A+

 

[libellule85]

Re : Comment mettre auto une plage en nom propre en vba

Re,

Un grand grand merci pour ton aide.

 

[job75]

Re : Comment mettre auto une plage en nom propre en vba

Re,

Pour éviter la création de formats comme "hello" jj "hello" aaaa :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [B11:B16])
If r Is Nothing Then Exit Sub
For Each r In r 'si entrées multiples
If IsDate(r) Then _
  r.NumberFormat = """" & Application.Proper(Format(r, "dddd")) _
    & """ dd """ & Application.Proper(Format(r, "mmmm")) & """ yyyy"
Next
End Sub

A+