Forcer majuscule dans cellule

[degap05]

Bonjour,

J'ai besoin de votre aide pour faciliter la saisie dans les cellules d'une même colonne.

L'opérateur doit inscrire un numéro de lot qui est le plus souvent du type: 08L0456.

Pour uniformiser la saisie, serait-il possible que l'opérateur n'ait pas à se soucier de mettre la lettre en majuscule (d'office en majuscule).

Merci.

 

[tototiti2008]

Re : Forcer majuscule dans cellule

Bonjour degap05,

c'est possible en VBA
si tu veux le faire par formule, il faudra que l'opérateur saisisse à un endroit mais que la valeur retenue soit à un autre endroit.

 

[Dull]

Re : Forcer majuscule dans cellule

Salut Degap05, le Forum

peut-être comme cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = UCase(Target)
End Sub

à coller dans le Module de la Feuille

EDITION: Salut tototiti
RE EDITION: pour la Colonne A

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Target = UCase(Target)
End If
End Sub

Salut Pierrot 🙂
Bonne Journée

 

[Pierrot93]

Re : Forcer majuscule dans cellule

Bonjour Degap, tototiti, Dull🙂

une autre solution en utilisant l'événement change, avec variable static afin d'éviter de boucler, controle la colonne A :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Static b As Boolean
If b = False And Target.Count = 1 And Target.Column = 1 Then
    b = True
    Target.Value = UCase(Target.Value)
    b = False
End If
End Sub

bonne journée
@+

 

[tototiti2008]

Re : Forcer majuscule dans cellule

Bonjour Pierrot93, Bonjour Dull

Pierrot, c'est trés intéressant, je n'ai jamais trop utilisé de variable statique... peux-tu expliquer ce que tu veux dire par :

afin d'éviter de boucler

je ne vois pas dans quel cas il pourrait boucler...

Edit : Désolé, c'est bon j'ai compris... Moi j'avais tendance à désactiver tous les évènements de l'application (on coupe l'arrivée d'électricité pour éteindre la lumière des toilettes 🙂)

 

[degap05]

Re : Forcer majuscule dans cellule

Bonjour,

Merci à tous.

J'ai installé la solution de Pierrot93, qui fonctionne bien.

Puisqu'il faut utiliser le VBA et que j'utilise un Userform pour ma saisie, comment adapter ce code à une Textbox:

Private Sub TextBox2_Change()

End Sub

Merci.

 

[tototiti2008]

Re : Forcer majuscule dans cellule

alors là c'est encore plus simple :

Private Sub TextBox2_Change()
TextBox2.Text = UCase(Textbox2.Text)
End Sub

 

[degap05]

Re : Forcer majuscule dans cellule

Re-Bonjour, merci à tous et à tototiti2008,

En fait je vais utiliser les deux solutions, dans deux colonnes différentes. Une avec saisie par Userform et l'autre dans une colonne en saisie directe
🙂🙂.

Merci encore pour votre rapidité.

 

[nicxls]

Re : Forcer majuscule dans cellule

bonjour le forum,

j'ai un code trouvé sur ce forum qui fonctionne très bien sous excel 2003, mais qui plante sous excel 2010 pb de mémoire dans la pile. le code est le suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
' Mise en masjuscule des saisie dans cellule depuis colonne indice à fin de la diffusion
    If Not Intersect(Target, Range("E31:U50")) Is Nothing Then Target = UCase(Target)
End Sub

Quelqu'un peut-il m'aider à corriger ce problème ?

Merci d'avance.
😕

 

[Pierrot93]

Re : Forcer majuscule dans cellule

Bonjour,

peut être en utilisant le code du post 4 modifié comme ceci :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Static b As Boolean
If b = False And Target.Count = 1 And Not Intersect(Target, Range("E31:U50")) Is Nothing Then
    b = True
    Target.Value = UCase(Target.Value)
    b = False
End If
End Sub

bonne journée
@+

 

[nicxls]

Re : Forcer majuscule dans cellule

Bonjour et merci pierrot93,

J'ai inséré le code que tu m'as donné. il fonctionne super bien.
cependant je n'ai pas bien compris son fonctionnement. je vais revoir mes cours pour comprendre les variables static et bolean!
J'avais bien vu le post#4 mais je ne comprenais comment l’appliquer à mon exemple.


Merci encore.
Bonne journée
@ bientôt

 

[Pierrot93]

Re : Forcer majuscule dans cellule

Bonjour,

cf, extrait de l'aide vba sur les variables "static" :

Les variables déclarées à l'aide de l'instruction Static conservent leur valeur pendant toute la durée de l'exécution du code.

en l'état sert de "flag" afin que la procédure événementielle "Worksheet_Change" ne boucle pas puisque ce même événement est déclenché lorsque la casse est modifiée...

bon après midi
@+