XL 2010 Résolu par SI : saisie en MAJUSCULE

[Usine à gaz]

Bonjour à toutes et à tous de bon matin

J'ai une question pour le Fun :

Dans mon fichier, nous saisissons des NOMS et prénoms (les NOMS doivent toujours être en MAJUSCULE).
J'ai un code obtenu depuis longtemps sur le net qui fonctionne bien :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("h9:h25")) Is Nothing And Target.Count = 1 Then
    Application.EnableEvents = False
    Target = UCase(Target)
    Application.EnableEvents = True
End If
End Sub

Cependant, à la saisie en position minuscule, évidemment, le code transforme en MAJUSCULE qu'après son exécution.
Est-il possible que l'action du code se fasse au fur et à mesure de la saisie ?

En vous remerciant, je vous souhaite à toutes et à tous un super et beau WE
Amicalement,
Lionel,

 

[Si...]

Re

Il suffit de rajouter une macro

Private Sub Tx_KeyPress(ByVal K As MSForms.ReturnInteger)
  If K = 178 Then ActiveCell(1, 6).Select
End Sub

où 178 est le code ASCII du caractère de la touche rarement utilisée

La consigne à faire passer est donc «Taper sur cette touche pour finir la saisie dans la cellule ! »

 

[Usine à gaz]

Bonjour SI,

Merci, c'est nickel