Cellule en majuscule

[RONIBO]

Bonjour,

Je souhaite mettre en majuscule la première lettre d'une phrase automatique lors d'une saisie sur C23:G43 de mon classeur

Existe il une solution en macro

Merci d'avance
A+

 

[Grand Chaman Excel]

Re : Cellule en majuscule

Bonsoir Ronibo,

Ceci?? Code à mettre dans la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C23:G43")) Is Nothing Then
        Target = UCase(Left(Target, 1)) & Mid(Target, 2)
    End If
End Sub

A+

 

[Staple1600]

Re : Cellule en majuscule

Bonjour à tous

Ou cela 😉 (pour varier les plaisirs et pour flatter mes endives)

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Count > 1 Then Exit Sub
    If Not Intersect(Target, [C23:G43]) Is Nothing Then
       .Value = StrConv(Left(.Text, 1), vbUpperCase) & Mid(.Text, 2)
    End If
End With
End Sub

 

[RONIBO]

Re : Cellule en majuscule

bonjour à tous,

les deux me conviens

merci à vous 🙂