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
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
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" <maud2604@neuf.fr> a écrit dans le message de news:
OdmGF$DYIHA.5396@TK2MSFTNGP02.phx.gbl...
Bonjour j aimerais savoir le code pour mettre les cellules de la colonne D
à J en majuscule si celles sont tapées en minuscule?
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
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
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" <maud2...@neuf.fr> 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?
-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
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
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?
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
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
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" <maud2604@neuf.fr> a écrit dans le message de news:
OdmGF$DYIHA.5396@TK2MSFTNGP02.phx.gbl...
Bonjour j aimerais savoir le code pour mettre les cellules de la colonne D
à J en majuscule si celles sont tapées en minuscule?
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
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
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" <maud2604@neuf.fr> a écrit dans le message de news:
OdmGF$DYIHA.5396@TK2MSFTNGP02.phx.gbl...
Bonjour j aimerais savoir le code pour mettre les cellules de la colonne D
à J en majuscule si celles sont tapées en minuscule?
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
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
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" <steph240900@hotmail.com> a écrit dans le message de
news:479d8775$0$884$ba4acef3@news.orange.fr...
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" <maud2604@neuf.fr> a écrit dans le message de news:
OdmGF$DYIHA.5396@TK2MSFTNGP02.phx.gbl...
Bonjour j aimerais savoir le code pour mettre les cellules de la colonne
D à J en majuscule si celles sont tapées en minuscule?
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?