masque de saisi en majuscule

R

Raja

XLDnaute Accro

• 28 Avril 2009

• #2

Re : masque de saisi en majuscule

Bonjour,

Code VBA à mettre dans la module de la feuille en question :

Code:

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

C'est possible par la formule, mais il faut l'effectuer dans une autre cellule que la cellule de saisie.

PS : le VBA n'est pas une solution au pire des cas, c'est une alternative pour automatiser est surtout parfois un plus (un must) quand la solution n'est pas prévue par le créateur de l'application

 

Dernière édition: 28 Avril 2009

Vote positif 0 Vote négatif

S

sniper2002

XLDnaute Occasionnel

• 28 Avril 2009

• #3

Re : masque de saisi en majuscule

ya t'il une option sur excel qui permet ça ? sans que je passe par VBA

 

Vote positif 0 Vote négatif

S

sniper2002

XLDnaute Occasionnel

• 28 Avril 2009

• #4

Re : masque de saisi en majuscule

sinon dans code VBA je vois pas de precision sur la celulle exemple A2

 

Vote positif 0 Vote négatif

S

sniper2002

XLDnaute Occasionnel

• 28 Avril 2009

• #5

Re : masque de saisi en majuscule

j'ai oubli merci comme mm pour réponse 🙂 désolé

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 28 Avril 2009

• #6

Re : masque de saisi en majuscule

Bonjour sniper2002, Raja,

Oui, il y a la fonction MAJUSCULE(), mais tu ne pourras pas la mettre dans la même cellule.

Tu ne peux avoir en même temps une formule et la possibilité de saisir dans une cellule unique. La saisie écrasant la formule.

Bonne journée.

Jean-Pierre

 

Vote positif 0 Vote négatif

R

Raja

XLDnaute Accro

• 28 Avril 2009

• #7

Re : masque de saisi en majuscule

Re, Salut jeanpierre,

Oui, enclencher la touche majuscule quand on saisit (il faut quand même un minimum d'effort à fournir). A part ça, je ne vois pas de solution. Avis aux amateurs.

 

Dernière édition: 28 Avril 2009

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 28 Avril 2009

• #8

Re : masque de saisi en majuscule

Bonjour peuple du forum


Il y a une possibilité avec Données/Validation

mais moins intuitive qu'en VBA.

Formule pour la validation
--> =EXACT(MAJUSCULE(A1);A1)

 

Pièces jointes

• Ex_MAJUSCULE.xls

  15 KB · Affichages: 123

Dernière édition: 28 Avril 2009

Vote positif 0 Vote négatif

S

sniper2002

XLDnaute Occasionnel

• 28 Avril 2009

• #9

Re : masque de saisi en majuscule

Raja à dit:

Bonjour,

Code VBA à mettre dans la module de la feuille en question :

Code:

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

C'est possible par la formule, mais il faut l'effectuer dans une autre cellule que la cellule de saisie.

PS : le VBA n'est pas une solution au pire des cas, c'est une alternative pour automatiser est surtout parfois un plus (un must) quand la solution n'est pas prévue par le créateur de l'application

Cliquez pour agrandir...

comment je peux spécifier pour une celule donnée merci

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 28 Avril 2009

• #10

Re : masque de saisi en majuscule

Re


sniper2002
J'ai édité mon message précédent

Tu as essayé la PJ ?

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 28 Avril 2009

• #11

Re : masque de saisi en majuscule

Bonjour sniper2002, Raja, jeanpierre, vbacrumble,

Je crois que ce que souhaite sniper2002 est une modificartion de la solution de Raja qui, bien qu'étant à base de VBA, semblait lui convenir... Soit pour la seule cellule A2 :

Code:

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Worksheet_Change([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range)
    [B][COLOR=NAVY]If[/COLOR] Target.Address = "$A$2" [COLOR=NAVY]Then[/COLOR][/B]
        Target.Value = UCase(Target.Value)
    [COLOR=NAVY][B]End If[/B]
End Sub[/COLOR]

Cordialement,

 

Vote positif 0 Vote négatif