tu peux voir si la fonction MAJUSCULE convient. Dans une cellule, tu tapes =MAJUSCULE("toto"), tu appuyes sur entrée et il doit renvoyer TOTO...
Ca convient ?
CAP2
michdenis
Bonjour Erick,
Dans la feuille module où l'action se déroule, copie la procédure suivante :
Adapte, la plage de cellule de la procédure soumise Range("A1:G10") pour l'étendue de la plage de ton application.
'------------------------ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("A1:G10")) If Not Rg Is Nothing Then For Each C In Rg If C.HasFormula = False Then Application.EnableEvents = False C.Value = UCase(C) Application.EnableEvents = True End If Next End If Set C = Nothing: Set Rg = Nothing End Sub '------------------------
Salutations!
"erick jardin" <erick a écrit dans le message de news: bonjour comme faire dans excel pour mettre automatiquement em majuscule une cellule
Bonjour Erick,
Dans la feuille module où l'action se déroule, copie la procédure suivante :
Adapte, la plage de cellule de la procédure soumise Range("A1:G10") pour l'étendue de la plage de ton application.
'------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G10"))
If Not Rg Is Nothing Then
For Each C In Rg
If C.HasFormula = False Then
Application.EnableEvents = False
C.Value = UCase(C)
Application.EnableEvents = True
End If
Next
End If
Set C = Nothing: Set Rg = Nothing
End Sub
'------------------------
Salutations!
"erick jardin" <erick jardin@discussions.microsoft.com> a écrit dans le message de
news:E4F441DA-F8F6-4FF0-A634-6508CA96FDC7@microsoft.com...
bonjour
comme faire dans excel pour mettre automatiquement em majuscule une cellule
Dans la feuille module où l'action se déroule, copie la procédure suivante :
Adapte, la plage de cellule de la procédure soumise Range("A1:G10") pour l'étendue de la plage de ton application.
'------------------------ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("A1:G10")) If Not Rg Is Nothing Then For Each C In Rg If C.HasFormula = False Then Application.EnableEvents = False C.Value = UCase(C) Application.EnableEvents = True End If Next End If Set C = Nothing: Set Rg = Nothing End Sub '------------------------
Salutations!
"erick jardin" <erick a écrit dans le message de news: bonjour comme faire dans excel pour mettre automatiquement em majuscule une cellule
erick jardin
mon idée etait justement d'eviter une cellule intermediaire et plutot chercher une solution vba qui transformerait les minuscule merci pour ta réponse erick
Salut,
tu peux voir si la fonction MAJUSCULE convient. Dans une cellule, tu tapes =MAJUSCULE("toto"), tu appuyes sur entrée et il doit renvoyer TOTO...
Ca convient ?
CAP2
mon idée etait justement d'eviter une cellule intermediaire et plutot
chercher une solution vba qui transformerait les minuscule
merci pour ta réponse
erick
Salut,
tu peux voir si la fonction MAJUSCULE convient.
Dans une cellule, tu tapes =MAJUSCULE("toto"), tu appuyes sur entrée et il
doit renvoyer TOTO...
mon idée etait justement d'eviter une cellule intermediaire et plutot chercher une solution vba qui transformerait les minuscule merci pour ta réponse erick
Salut,
tu peux voir si la fonction MAJUSCULE convient. Dans une cellule, tu tapes =MAJUSCULE("toto"), tu appuyes sur entrée et il doit renvoyer TOTO...
Ca convient ?
CAP2
erick jardin
un seul mot : génial. encore merci erick
Bonjour Erick,
Dans la feuille module où l'action se déroule, copie la procédure suivante :
Adapte, la plage de cellule de la procédure soumise Range("A1:G10") pour l'étendue de la plage de ton application.
'------------------------ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("A1:G10")) If Not Rg Is Nothing Then For Each C In Rg If C.HasFormula = False Then Application.EnableEvents = False C.Value = UCase(C) Application.EnableEvents = True End If Next End If Set C = Nothing: Set Rg = Nothing End Sub '------------------------
Salutations!
"erick jardin" <erick a écrit dans le message de news: bonjour comme faire dans excel pour mettre automatiquement em majuscule une cellule
un seul mot : génial.
encore merci
erick
Bonjour Erick,
Dans la feuille module où l'action se déroule, copie la procédure suivante :
Adapte, la plage de cellule de la procédure soumise Range("A1:G10") pour l'étendue de la plage de ton application.
'------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:G10"))
If Not Rg Is Nothing Then
For Each C In Rg
If C.HasFormula = False Then
Application.EnableEvents = False
C.Value = UCase(C)
Application.EnableEvents = True
End If
Next
End If
Set C = Nothing: Set Rg = Nothing
End Sub
'------------------------
Salutations!
"erick jardin" <erick jardin@discussions.microsoft.com> a écrit dans le message de
news:E4F441DA-F8F6-4FF0-A634-6508CA96FDC7@microsoft.com...
bonjour
comme faire dans excel pour mettre automatiquement em majuscule une cellule
Dans la feuille module où l'action se déroule, copie la procédure suivante :
Adapte, la plage de cellule de la procédure soumise Range("A1:G10") pour l'étendue de la plage de ton application.
'------------------------ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("A1:G10")) If Not Rg Is Nothing Then For Each C In Rg If C.HasFormula = False Then Application.EnableEvents = False C.Value = UCase(C) Application.EnableEvents = True End If Next End If Set C = Nothing: Set Rg = Nothing End Sub '------------------------
Salutations!
"erick jardin" <erick a écrit dans le message de news: bonjour comme faire dans excel pour mettre automatiquement em majuscule une cellule
