Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel majuscule minuscule

majuscule minuscule

6 réponses
Avatar
maud s
Bonjour j aimerais savoir le code pour mettre les cellules de la colonne D à
J en majuscule si celles sont tapées en minuscule?

merci bcps d avance
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour maud s,

Sub maJ()
Dim c As Range
Application.ScreenUpdating = False
With Columns("D:J")
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 23).Select
If Err.Number = 0 Then
For Each c In Selection
c.Value = UCase(c)
Next c
End If
End With
End Sub


ChrisV


"maud s" a écrit dans le message de news:
OdmGF$
Bonjour j aimerais savoir le code pour mettre les cellules de la colonne D
à J en majuscule si celles sont tapées en minuscule?

merci bcps d avance



Avatar
JB
Bonsoir,

-Sauvegarder le fichier joint
-L'ouvrir
-Il apparaît une barre de conversion
-Ouvrir le fichier à convertir
-Sélectionner le champ à convertir
-cliquer sur le bouton majuscules

http://cjoint.com/?bAtagZKP0q

JB
http://boisgontierjacques.free.fr



On 26 jan, 18:20, "maud s" wrote:
Bonjour j aimerais savoir le code pour mettre les cellules de la colonne D à
J en majuscule si celles sont tapées en minuscule?

merci bcps d avance


Avatar
anonymousA
Bonjour

A adapter en fonction de la plage sur laquelle tu souhaites utiliser

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True

End Sub

A+

Bonjour j aimerais savoir le code pour mettre les cellules de la colonne D à
J en majuscule si celles sont tapées en minuscule?

merci bcps d avance




Avatar
Xavier powaga
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column > 3 And Target.Column < 11 Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
End Sub

"maud s" a écrit dans le message de news:
OdmGF$
Bonjour j aimerais savoir le code pour mettre les cellules de la colonne D
à J en majuscule si celles sont tapées en minuscule?

merci bcps d avance



Avatar
stephprod
Je souhaiterais faire la meme chose mais je voudrais qu il me transforme
toutes les cellules de la feuille "toto" en majucule... lorsque je change d
onglet par exemple...

estc e possible?

stefane


"maud s" a écrit dans le message de news:
OdmGF$
Bonjour j aimerais savoir le code pour mettre les cellules de la colonne D
à J en majuscule si celles sont tapées en minuscule?

merci bcps d avance



Avatar
Philippe.R
Bonsoir,

On peut effectivement utiliser un évènement de feuille comme Activate à ces
fins ; ce qui donne un code de ce type, à coller dans la page de code de la
feuille "toto" :

Private Sub Worksheet_activate()
'MPFE le 28/01/2008
Application.ScreenUpdating = False
Range("A1", ActiveCell.SpecialCells(xlLastCell)).Select
For Each c In Selection
c.Value = UCase(c.Value)
Next c
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"stephprod" a écrit dans le message de
news:479d8775$0$884$
Je souhaiterais faire la meme chose mais je voudrais qu il me transforme
toutes les cellules de la feuille "toto" en majucule... lorsque je change
d onglet par exemple...

estc e possible?

stefane


"maud s" a écrit dans le message de news:
OdmGF$
Bonjour j aimerais savoir le code pour mettre les cellules de la colonne
D à J en majuscule si celles sont tapées en minuscule?

merci bcps d avance