majuscule minuscule

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ChrisV
Le #5140361
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" 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



JB
Le #5140351
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"
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


anonymousA
Le #5140341
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




Xavier powaga
Le #5140291
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" 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



stephprod
Le #5287701
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" 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



Philippe.R
Le #5287151
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" 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" 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







Publicité
Poster une réponse
Anonyme