Majuscule en première position

[olivepao]

Bonjour le forum 🙂

J'ai un petit soucis pour la "Casse"

Je désire sur le modèle ci-dessous que la première lettre de ma cellule soit obligatoirement une majuscule. le reste de la saisie peut être des majuscules, des minuscules, cela n'a aucune importance.

Voila mon code, je n'arrive qu'a faire une saisie majuscule pour toute la cellule.

If Not (Intersect(Target, ([B3])) Is Nothing) Then
[B3] = UCase([B3])
End If

Merci d'avance de vos réponses.

 

[Guest]

Re : Majuscule en première position

bonjour OlivePao,

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

A bientôt

 

[olivepao]

Re : Majuscule en première position

bonjour OlivePao,

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

A bientôt

Bonjour Hasco 🙂

Merci pour ta rapide réponse.

Puis-je adapter pour plusieurs cellules, disons B3 et C4 ?

Ou faut-il faire un If pour chaque cellule ?

Merci

 

[Guest]

Re : Majuscule en première position

re bonjour,

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

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

End if

A bientôt

 

[olivepao]

Re : Majuscule en première position

re bonjour,

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

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

End if

A bientôt

Salut Hasco 🙂

Merci pour ton aide.

J'ai essayé et ça ne marche pas. En m'inspirant d'un autre code, j'ai trouvé une soluce, la voici

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.

A++

 

[Guest]

Re : Majuscule en première position

Re:

Oui, c'est mieux.... j'ai oublié l'union et comme chaquun le sait l'union fait la force.

A bientôt