premire lettre majuscule

[cj welch]

bonjours le forum,

je voudrais que la cellule A6, (qui est au format personnalisé mmm aaaa) s'écrive avec la première lettre du mois en majuscule.

qlqu'un aurait il une solution a me communiquer

merci

 

[Raja]

Re : premire lettre majuscule

Bonjour,

Met cette formule dans une cellule à coté :

=NOMPROPRE(TEXTE(A6;"mmmm aaaa"))

 

[Staple1600]

Re : premire lettre majuscule

Bonjour



Pour info

On n'utilisera pas les majuscules pour :
• Les noms des mois (janvier, thermidor) ;
• Les noms des jours (lundi, mercredi) ;
• Les titres et qualités des chefs d'état ou de gouvernement (le premier ministre) ;
• Les déterminatifs et adjectifs (la Légion d'honneur, la Cour suprême

source:


Maintenant on ne risque rien (pas encore) à outrepasser cette règle typographique 😉

 

[cj welch]

Re : premire lettre majuscule

salut staple, salut raja,

j'ai essayé le code ça marche seulement si je rentre une nouvelle date, ça ne marche plus. Avec la formule ecrite sur une cellule a cotés cela ne marche pas non plus car la cellule ou est inscrite la formule marque janvier 1900.

est il possible de passé en vba pour uniquement une cellule ?

A+

 

[Staple1600]

Re : premire lettre majuscule

Re


La formule de Raja fonctionne

en A1 un date (format Date)

en B1 (format Standard)
et la formule de Raja

Si on change la date en A1, B1 s'actualise correctement.

 

[cj welch]

Re : premire lettre majuscule

re,

ça marche oui,
mais dans ma feuille, je ne peut pas faire comme ça.
Après reflexion, un petit code vba serait fantastique.

 

[Staple1600]

Re : premire lettre majuscule

Re



Alors essaie ceci
(dans le code de la feuille)
Clic-droit sur la feuille -> [Visualiser le code]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Strg As String
If Target.Address = "$A$6" Then
'ici on teste si c'est une date
If IsDate(Target) Then
Strg = Application.Proper(Format(Target, "mmm yyyy"))
Target = Strg
End If
End If
End Sub

ou cette variante (qui ne vérifie pas si la saisie en A6 est une date)

Private Sub Worksheet_Change(ByVal Target As Range)
Target = _
IIf(Target.Address = "$A$6", _
Application.Proper(Format(Target, "mmm yyyy")), Target)
End Sub

 

[cj welch]

Re : premire lettre majuscule

re,

j'ai essayé le code sans vérification du format date, et un message d'erreur apparait.
car j'ai déja un code avec Private Sub Worksheet_Change(ByVal Target As Range),
j'ai changé le nom de ma macro "Private Sub minuscule_Change....." et ça ne marche pas.

A+

 

[Staple1600]

Re : premire lettre majuscule

Re

Quel est le code déjà présent dans
Private Sub Worksheet_Change(ByVal Target As Range)?

 

[Catrice]

Re : premire lettre majuscule

Bonjour,

A partir de Excel 2002 (ou 2000), si tu mets ce code : [$-409]mmm aaaa dans Format/Nombre tu auras les premieres lettres en Majuscule.
MAIS c'est en anglais ... à toute fins utiles ...

 

[Staple1600]

Re : premire lettre majuscule

Bonjour Catrice


Sous Excel 2000, ca ne fonctionne pas

Dommage.

 

[cj welch]

Re : premire lettre majuscule

re
catrice ça marche mais malheursement c'est en anglais.

le code existant est :
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Or Target.Column <> 19 Then Exit Sub

If Target.Row > 8 And Target.Column = 19 Then
If Target <> "" Then
With UserForm2
.TextBox1.Value = Target.Row
.TextBox2.Value = Target.Value
.OptionButton1 = True 'valider
.Show
End With
End If
End If

End Sub


A+

 

[job75]

Re : premire lettre majuscule

Bonjour,

Une solution bovine : vous mettez votre cellule A6 au format Texte et vous tapez par exemple : Septembre 2008 ou Sept 2008

Utilisé dans des formules de calcul, ce texte sera converti automatiquement en nombre définissant la date du 01/09/2008. Vérifiez en tapant dans une autre cellule : =1*A6

A+

 

[Staple1600]

Re : premire lettre majuscule

Bonjour job75

Excellent cette astuce

 

[Raja]

Re : premire lettre majuscule

Re, Salut à tous,

Il y a aussi la saisie avec simple cote comme ceci : 'Décembre 2008. L'avantage : la cellule reste au format "Standard".