Majuscule

pierrejean à dit:

Re : Majuscule

bonjour Tony21
Salut mjo RICO1972 Jacques87

une autre macro pour l'initiale en majuscule

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = UCase(Left(Target.Value, 1)) & Right(Target.Value, Len(Target.Value) - 1)
End Sub

valable pour toute la feuille

si tu veux restreindre a certaines cellules reviens pour preciser lesquelles

Cliquez pour agrandir...

duplaly à dit:

Si je veux appliquer ton code uniquement à la colonne «G». G2 jusqu'à la dernière ligne remplie

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
If FilterMode Then ShowAllData 'si la feuille est filtrée
Set Target = Intersect(Target, Range("G2", Range("G" & Rows.Count).End(xlUp)))
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
For Each Target In Target 'si entrées multiples
    Target = Application.Proper(Target) 'NOMPROPRE
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

job75 à dit:

Bonsoir duplaly, le fil,

Pour éviter à pierrejean de se fatiguer :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If FilterMode Then ShowAllData 'si la feuille est filtrée
Set Target = Intersect(Target, Range("G2", Range("G" & Rows.Count).End(xlUp)))
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
For Each Target In Target 'si entrées multiples
    Target = Application.Proper(Target) 'NOMPROPRE
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

A+

Cliquez pour agrandir...

job75 à dit:

Bonjour duplaly,

Ne prenez pas l'habitude des questions à rallonge !

VB:

Range("B4", Range("B" & Rows.Count).End(xlUp)).Name = "P" 'plage nommée
[P] = [UPPER(P)]

A+

Cliquez pour agrandir...