Saisie majuscules-minuscules automatique Fermé

Question

Bonjour,

J'ai besoin de vos lucioles les amis svp encore une fois pour, dans une cellule ou plusieurs cellules à la fois :
- Forcer la saisie d'un texte en majuscule 
- Forcer la saisie d'un texte en minuscule 
- Forcer la saisie de la première lettre du premier mot d'un texte en majuscule
- Forcer la saisie de la première lettre d'un mot d'un texte, se situant après un point, en majuscule
- Forcer la saisie de la première lettre d'un nom propre en majuscule

J'aimerai ne pas passer par "validation des données" car ça oblige l'utilisateur de ressaisir pour corriger.
Existe-t-il une méthode qui paramètre tout ça, sans que l'utilisateur ne se souci de son mode d'écriture ?

Par exemple si dans la cellule A1 je souhaite qu' un texte ou un mot apparaisse en majuscule dès sa saisie et que l'utilisateur ne le sache pas et écrive donc en minuscule, le texte se transforme ou se converti automatiquement en majuscule sans gêner l'utilisateur. 
Je souhaite que l'utilisateur ne se soucis pas si à tel endroit il faut écrire en majuscule, à un autre en minuscule, ou si après un point il faut mettre une majuscule. Que ça corrige pour lui le format.

Je n'ai pas de fichier pour l'instant. 

Merci à tous :)

didibonf · Answer

Bonjour,
Une macro devrait pouvoir t’aider :
par exemple dans Feuil1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 1).Value = UCase(Cells(1, 1))
End Sub


Le texte en A1 sera automatiquement transformé en majuscule.
LCase tranformera en minuscule.

michel_m · Answer

Bonjour Feanerys, Dididonf

Comment veux tu qu'Excel sache ce que tu veux faire ? il faut bien que tu lui transmettes ton ordre

michel_m · Answer

Excusez moi d'avoir dérangé en essayant d'aider Deanerys. Mais, c'est promis, je ne le gênerai plus.

jean300 · Answer

Bonjour à tous,
Un code à adapter 
Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False 'pour éviter de relancer alors qu'on modifie
' première lettre en majuscule
    If Target.Address = "$J$14" Then [J14] = LCase([J14]): GoTo fin
    If Target.Address = "$A$30" Then Target = Application.Proper(Target): GoTo fin
    If Target.Address = "$A$35" Then Target = Application.Proper(Target): GoTo fin
    If Target.Address = "$A$38" Then Target = Application.Proper(Target): GoTo fin
    If Target.Address = "$G$25" Then Target = Application.Proper(Target): GoTo fin
    If Target.Address = "$K$4" Then Target = Application.Proper(Target): GoTo fin
    If Target.Address = "$K$7" Then Target = Application.Proper(Target): GoTo fin
    If Target.Address = "$K$50" Then Target = Application.Proper(Target): GoTo fin
    If Target.Address = "$K$53" Then Target = Application.Proper(Target): GoTo fin
    If Target.Address = "$S$22" Then Target = Application.Proper(Target): GoTo fin
    If Target.Address = "$S$10" Then Target = Application.Proper(Target): GoTo fin
    If Target.Address = "$S$19" Then Target = Application.Proper(Target): GoTo fin

' tout en majuscule
Select Case Target.Address(0, 0)
    Case "A4, K4"
    Target.Value = UCase(Target.Text) 'j'utilise la propriété text
End Select

fin:
Application.EnableEvents = True 'on remet

If IsEmpty(Range("Y47")) Then
    Range("Y47").Value = Date
End If
End Sub