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
MichDenis
Bonjour,
Dans le code module de ta feuille : '--------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range Application.EnableEvents = False If TypeName(Selection) = "Range" Then For Each c In Selection.SpecialCells(xlCellTypeConstants, 6) c.Value = UCase(c.Value) Next End If Application.EnableEvents = True End Sub '---------------------------------
"Infogroup" a écrit dans le message de groupe de discussion : eK5$ Bonjour à tous,
lorsque j'écris du texte dans une cellule ( Excel 2003 ) , je voudrais que ce texte s'inscrive automatiquement en majuscules.
Merci pour vos infos
Cordialement
Infogroup
Bonjour,
Dans le code module de ta feuille :
'---------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
Application.EnableEvents = False
If TypeName(Selection) = "Range" Then
For Each c In Selection.SpecialCells(xlCellTypeConstants, 6)
c.Value = UCase(c.Value)
Next
End If
Application.EnableEvents = True
End Sub
'---------------------------------
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de groupe de discussion :
eK5$c1AIKHA.5956@TK2MSFTNGP03.phx.gbl...
Bonjour à tous,
lorsque j'écris du texte dans une cellule ( Excel 2003 ) , je voudrais que
ce texte s'inscrive automatiquement en majuscules.
Dans le code module de ta feuille : '--------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range Application.EnableEvents = False If TypeName(Selection) = "Range" Then For Each c In Selection.SpecialCells(xlCellTypeConstants, 6) c.Value = UCase(c.Value) Next End If Application.EnableEvents = True End Sub '---------------------------------
"Infogroup" a écrit dans le message de groupe de discussion : eK5$ Bonjour à tous,
lorsque j'écris du texte dans une cellule ( Excel 2003 ) , je voudrais que ce texte s'inscrive automatiquement en majuscules.
Merci pour vos infos
Cordialement
Infogroup
Infogroup
Merci mille fois Denis pour tes solutions toujours pertinentes et rapides
Cdl
Infogroup
"MichDenis" a écrit dans le message de news:u$
Bonjour,
Dans le code module de ta feuille : '--------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range Application.EnableEvents = False If TypeName(Selection) = "Range" Then For Each c In Selection.SpecialCells(xlCellTypeConstants, 6) c.Value = UCase(c.Value) Next End If Application.EnableEvents = True End Sub '---------------------------------
"Infogroup" a écrit dans le message de groupe de discussion : eK5$ Bonjour à tous,
lorsque j'écris du texte dans une cellule ( Excel 2003 ) , je voudrais que ce texte s'inscrive automatiquement en majuscules.
Merci pour vos infos
Cordialement
Infogroup
Merci mille fois Denis pour tes solutions toujours pertinentes et rapides
Cdl
Infogroup
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:u$ny9ABIKHA.4376@TK2MSFTNGP03.phx.gbl...
Bonjour,
Dans le code module de ta feuille :
'---------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
Application.EnableEvents = False
If TypeName(Selection) = "Range" Then
For Each c In Selection.SpecialCells(xlCellTypeConstants, 6)
c.Value = UCase(c.Value)
Next
End If
Application.EnableEvents = True
End Sub
'---------------------------------
"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de groupe de
discussion :
eK5$c1AIKHA.5956@TK2MSFTNGP03.phx.gbl...
Bonjour à tous,
lorsque j'écris du texte dans une cellule ( Excel 2003 ) , je voudrais que
ce texte s'inscrive automatiquement en majuscules.
Merci mille fois Denis pour tes solutions toujours pertinentes et rapides
Cdl
Infogroup
"MichDenis" a écrit dans le message de news:u$
Bonjour,
Dans le code module de ta feuille : '--------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range Application.EnableEvents = False If TypeName(Selection) = "Range" Then For Each c In Selection.SpecialCells(xlCellTypeConstants, 6) c.Value = UCase(c.Value) Next End If Application.EnableEvents = True End Sub '---------------------------------
"Infogroup" a écrit dans le message de groupe de discussion : eK5$ Bonjour à tous,
lorsque j'écris du texte dans une cellule ( Excel 2003 ) , je voudrais que ce texte s'inscrive automatiquement en majuscules.
Merci pour vos infos
Cordialement
Infogroup
JB
Bonjour,
Pour texte saisi en colonne A
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 And Target.Count = 1 Then Target =Ucase(Target) End If Application.EnableEvents = True End Sub
JB http://boisgontierjacques.free.fr
On 18 août, 16:08, "Infogroup" wrote:
Bonjour à tous,
lorsque j'écris du texte dans une cellule ( Excel 2003 ) , je voudrais que ce texte s'inscrive automatiquement en majuscules.
Merci pour vos infos
Cordialement
Infogroup
Bonjour,
Pour texte saisi en colonne A
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Target.Count = 1 Then
Target =Ucase(Target)
End If
Application.EnableEvents = True
End Sub
JB
http://boisgontierjacques.free.fr
On 18 août, 16:08, "Infogroup" <Infogrou...@orange.fr> wrote:
Bonjour à tous,
lorsque j'écris du texte dans une cellule ( Excel 2003 ) , je voudrais que
ce texte s'inscrive automatiquement en majuscules.
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 And Target.Count = 1 Then Target =Ucase(Target) End If Application.EnableEvents = True End Sub
JB http://boisgontierjacques.free.fr
On 18 août, 16:08, "Infogroup" wrote:
Bonjour à tous,
lorsque j'écris du texte dans une cellule ( Excel 2003 ) , je voudrais que ce texte s'inscrive automatiquement en majuscules.
