Bonjour
Dans une feuille j'ai ce code que force les Majuscules dans une plage dans une plage de B3 à B29 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B29")) Is Nothing Then Target = UCase(Target)
End Sub
Je souhaiterai la même chose dans la plage de C3 à C29 mais seulement la 1ère lettre en Majuscule en prenant en compte les noms composés.
J'ai essayé d'ajouter :
If Not Intersect(Target, Range("C3:C29")) Is Nothing Then Target = Proper(Target)
Mais évidemment ça ne fonctionne pas.
Un petit coup de main ne serait pas de refus.
Merci
Dans une feuille j'ai ce code que force les Majuscules dans une plage dans une plage de B3 à B29 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B29")) Is Nothing Then Target = UCase(Target)
End Sub
Je souhaiterai la même chose dans la plage de C3 à C29 mais seulement la 1ère lettre en Majuscule en prenant en compte les noms composés.
J'ai essayé d'ajouter :
If Not Intersect(Target, Range("C3:C29")) Is Nothing Then Target = Proper(Target)
Mais évidemment ça ne fonctionne pas.
Un petit coup de main ne serait pas de refus.
Merci
