tout en majuscules

ben, là je ne sais plus trop Zoltan...c'est ton "automatiquement" qui
m'interpelle...faut-il que tes cellules des colonnes B et F soient en
majuscules au fil de leur saisie ou bien peux-tu accepter que la mise en
majusucles pour toutes les cellules soit faite à la fermeture par exemple?
jps

Zoltan a écrit:

"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de
news:3F1AFD09.2030806@wanadoo.fr...

bnjour zoltan
peut-être peux-tu t'inspirer de cette proc -pas de moi, bien sûr-....

ok, dans mon cas ce sont les textes des colonnes "B" et "F"
que je voudrais transformer en majuscule,

et je la place ou cette procédure?

Bonjour,

J'avais récupéré, je ne sais plus où, ce code pour 3 macros:
- l'une transforme la sélection en minuscules,
- la 2ème transforme la sélection en majuscules,
- la 3ème transforme la sélection en Nom Propre (1ère lettre de chaque mot
en majuscules, le reste en minuscules)

Le plus simple pour l'emploi est de mettre ces macros dans le classeur de
macros personnelles et d'associer à chacune un bouton sur une barre
d'outils.

' Minusculisation Macro
' Convertit un texte en Minuscules
'
'
Sub Minusculisation()
Set PlageATraiter = Selection
For Each C In PlageATraiter
TexteAModifier = C
C.FormulaR1C1 = LCase(TexteAModifier)
Next C
End Sub

'
' Majusculisation Macro
' Convertit un texte en Majuscules
'
'
Sub Majusculisation()
Set PlageATraiter = Selection
For Each C In PlageATraiter
TexteAModifier = C
C.FormulaR1C1 = UCase(TexteAModifier)
Next C
End Sub

'
' Nompropre Macro
' Convertit un texte en Majuscules
'
'
Sub NomPropre()
Set PlageATraiter = Selection
For Each C In PlageATraiter
TexteAModifier = C
C.FormulaR1C1 = Application.Proper(TexteAModifier)
Next C
End Sub

Christian Volle


"Zoltan" <zoltan@wanadoo.fr> a écrit dans le message de news:
e4nO#zvTDHA.1912@TK2MSFTNGP12.phx.gbl...

Salut à tous,

comment faire pour que le texte saisi dans une colonne soit
automatiquement mis en majuscules même s'il est saisi en minuscules?

merci de votre aide

Bonsoir,

Copie cette procédure dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim c As Range
If Not Intersect(Target, Range("B:B,F:F")) Is Nothing Then
Application.EnableEvents = False
For Each c In Target.SpecialCells(xlCellTypeConstants, xlTextValues)
If c.Column = 2 Or c.Column = 6 Then
c = UCase(c)
End If
Next c
Application.EnableEvents = True
End If
End Sub

"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de
news:3F1AFD09.2030806@wanadoo.fr...

bnjour zoltan
peut-être peux-tu t'inspirer de cette proc -pas de moi, bien sûr-....

ok, dans mon cas ce sont les textes des colonnes "B" et "F"
que je voudrais transformer en majuscule,

et je la place ou cette procédure?

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Pour les colonnes B et F
Clic droit sur l'onglet de la feuille => Visualiser le code => copier/coller le
code suivant :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 2 And zz.Column <> 6 Or Selection.Count > 1 Then Exit Sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub

AV

"Zoltan" <zoltan@wanadoo.fr> a écrit dans le message news:
e4nO#zvTDHA.1912@TK2MSFTNGP12.phx.gbl...

Salut à tous,

comment faire pour que le texte saisi dans une colonne soit
automatiquement mis en majuscules même s'il est saisi en minuscules?

merci de votre aide

Pour les colonnes B et F
Clic droit sur l'onglet de la feuille => Visualiser le code

euh, comment on fait pour visualiser le code?

merci

euh, comment on fait pour visualiser le code?

ah oui, je viens de trouver, je vais essayer

merci beaucoup

Copie cette procédure dans le module de la feuille concernée :

finalement c'est celle là qui va bien,
merci beaucoup

Clic droit sur l'onglet de la feuille => Visualiser le code =>
copier/coller le

code suivant :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 2 And zz.Column <> 6 Or Selection.Count > 1 Then Exit Sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub

AV

ok, et par exemple pour avoir juste la première lettre en majuscule?

merci

ok, et par exemple pour avoir juste la première lettre en majuscule?

Remplace :
zz = Ucase(zz)
par :
zz = Application.Proper(zz)

AV