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,

 

[chris]

Bonjour

Non, pendant la saisie VBA n'a pas la possibilité d'agir

 

[Usine à gaz]

Bonjour Chris,

Merci de m'avoir répondu (LOL, je m'en doutais un peu),
Bon WE 😉

 

[DoubleZero]

Bonjour, arthour973 🙂, chris + bise 🙂, le Forum,

...les NOMS doivent toujours être en MAJUSCULE)...

Pour alterner majuscules et minuscules (BONJOUR Printemps)... Cf. cette discussion.

A bientôt 🙂

 

[Usine à gaz]

Bonjour DoubleZero,

Merci de m'avoir répondu mais ça ne correspond pas à ce que je cherche 😉
Bon WE
Amicalement,
Lionel,

 

[Modeste geedee]

Bonsour®

Dans mon fichier, nous saisissons des NOMS et prénoms (les NOMS doivent toujours être en MAJUSCULE).

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 ?

reste la possibilité de forcer lors de l'activation de la feuille concernée, le clavier en "corbeille haute" (Majuscules), à l'aide d'une API...
et le problème reste le même si certaines saisies doivent être faites en minuscule...

 

[Usine à gaz]

Bonjour Modeste, le forum,

Merci d'être là et de m'avoir répondu 🙂
C'est juste une question de "confort" et pour éviter que mes intervenants "jouent" avec la touche majuscule/minuscule cela entraînant (têtes de linottes que nous sommes LOL), des saisies souvent "bizarres" 😕

Le code permettant de transformer la saisie en Majuscule dans certaines cellules me va très bien.
Cependant, comme l'écriture en Majuscule ne s'affiche qu'après l'exécution du code, certains ont toujours "tendance" à se mettre en Majuscule ce qui entraîne le souci précédent 😡

Si ma demande ne peut recevoir qu'une réponse plus contraignante que le petit souci, mieux vaux en rester là LOL.

Encore merci modeste 😉
Bon dimanche à toutes et à tous,
Amicalement,
Lionel,

 

[job75]

Bonjour Lionel, chris, DoubleZero, Modeste geedee,

Plutôt que le code du post #1 il vaut peut-être mieux utiliser :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [H9:H25], Me.UsedRange) 'plage à adapter
If r Is Nothing Then Exit Sub
For Each r In r 'si entrées multiples (copier-coller)
  If CStr(r) <> UCase(r) Then r = UCase(r)
Next
End Sub

A+

 

[Usine à gaz]

Bonsoir Job,
Merci d'être passé par là 🙂
Sans comprendre la différence, j'utiliserai votre code;
Bonne fin de dimanche,Amicalement,
Lionel,

 

[Si...]

Bonsoir

C'est juste une question de "confort" et pour éviter que mes intervenants "jouent" avec la touche majuscule/minuscule cela entraînant (têtes de linottes que nous sommes LOL), des saisies souvent "bizarres"
Cependant, comme l'écriture en Majuscule ne s'affiche qu'après l'exécution du code, certains ont toujours "tendance" à se mettre en Majuscule ce qui entraîne le souci précédent 😡

Et ainsi ?

 

[Lone-wolf]

Bonjour tout le monde 🙂

@Si... : bien vu le fait d'avoir mis une textbox 😉. C'est dommage(ou peut-être impossible, je ne sais pas) que MIMI ne mette pas cet option (mise en majuscule direct) sur les feuilles dans le format personnalisé par exemple.

 

[chris]

Bonjour

...dommage que MIMI ne mette pas cet option (mise en majuscule direct) sur les feuilles dans le format personnalisé par exemple.

Le format ce n'est que de l'habillage.
On l'a dans ACCESS : cela apparait en majuscule à la lecture après la saisie mais reste dans la table comme saisi, donc bof...

 

[Lone-wolf]

Bonjour chris 🙂

Ce que je voulais dire par là, au moment où tu rentre en lettre dans une textbox, le changement s'éffectue tout de suite n'est-ce pas? Ce serait bien(si possible) d'en faire de même avec les cellules.

@ Lionel: une proposition sans textbox. l'inconvénient c'est qu'il faut utiliser TAB à chaque lettre entrée et faire attention à éffacer le texte qui reprend celui des cellules précédentes. Pour vider la variable temp, place le curseur sur la cellule vide et utilise TAB.

 

[Usine à gaz]

Bonjour le Forum,
Bonjour Si,
Bonjour Chris,
Bonjour Lone,
Merci d'être encore sur mon fil 😉

Je regarde et je reviens...

 

[Usine à gaz]

Re à toutes et à tous,

Lone, ta solution est trop complexe pour la saisie mais ça marche.

Si, merci pour votre solution qui me va bien mais un tout petit souci (encore du confort LOL)

J'ai vu qu'il fallait cliquer sur une autre cellule pour valider.
Est-il possible de passer directement à une autre cellule genre "R.Offset(0, 6)" et que la validation soit automatique ?

Amicalement,
Lionel,