Comment mettre auto une plage en nom propre en vba

libellule85 · 4 Avril 2016

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 · 4 Avril 2016

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 :

Code:

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

A+

libellule85 · 4 Avril 2016

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 · 4 Avril 2016

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

Re,

Dans le code de la feuille :

Code:

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 · 4 Avril 2016

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

Re,

Un grand grand merci pour ton aide.

job75 · 4 Avril 2016

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

Re,

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

Code:

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+

Comment mettre auto une plage en nom propre en vba

libellule85

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

libellule85

XLDnaute Accro

job75

XLDnaute Barbatruc

libellule85

XLDnaute Accro

job75

XLDnaute Barbatruc

Discussions similaires