Forcer majuscule dans cellule

tototiti2008

XLDnaute Barbatruc

• 20 Août 2008

• #2

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.

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 20 Août 2008

• #3

Re : Forcer majuscule dans cellule

Salut Degap05, le Forum

peut-être comme cela

Code:

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

Code:

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

 

Dernière édition: 20 Août 2008

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Août 2008

• #4

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 :

Code:

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
@+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 20 Août 2008

• #5

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

Cliquez pour agrandir...

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 🙂)

 

Dernière édition: 20 Août 2008

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 20 Août 2008

• #6

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 20 Août 2008

• #7

Re : Forcer majuscule dans cellule

alors là c'est encore plus simple :

Code:

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

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 20 Août 2008

• #8

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é.

 

Vote positif 0 Vote négatif

N

nicxls

Guest

• 25 Mars 2011

• #9

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 :

Code:

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.
😕

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Mars 2011

• #10

Re : Forcer majuscule dans cellule

Bonjour,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

N

nicxls

Guest

• 28 Mars 2011

• #11

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Mars 2011

• #12

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.

Cliquez pour agrandir...

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
@+

 

Vote positif 0 Vote négatif