Majuscule en première position

Hasco à dit:

bonjour OlivePao,

Code:

If Not (Intersect(Target, ([B3])) Is Nothing) Then
     [B3] = UCase(Left([B3], 1)) & Right([B3], Len([B3]) - 1)
End If

A bientôt

Cliquez pour agrandir...

Hasco à dit:

re bonjour,

Non ce n'est pas necessaire, fais quelque chose comme ceci:

Code:

If Not (Intersect(Target, [B3],[C4]) Is Nothing) Then
   [Target] = UCase(Left([Target], 1)) & Right([Target], Len([Target]) - 1)

End if

A bientôt

Cliquez pour agrandir...

If Not (Intersect(Target, Union([B16], [B25])) Is Nothing) Then
   [Target] = UCase(Left([Target], 1)) & Right([Target], Len([Target]) - 1)
End If                                                         ' <-- le cellule B16 et B25 la première lettre est en majuscule.