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
JB
Bonsoir,
Il faut du VBA.
Traduit en Majuscule dès la saisie dans la colonne A
Le code VBA de la procédure Sub Worksheet_Change() est exécuté à chaque fois qu'une cellule est modifiée dans une feuille
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
-Clic-droit sur l'onglet puis visualiser le code -Choisir WorkSheet dans menu déroulant -Choisir événement Change dans menu déroulant
JB
On 3 mar, 21:44, "Christophe" wrote:
Bonsoir,
1- Comment définir pour toute 1 colonne que le contenu de chaque cellule soit en majuscule ?
2- en entrant du texte dans une cellule, je veux qu'il soit mis en majuscule. possible avec une formule ou forme sous condition ??
Merci.
Bonsoir,
Il faut du VBA.
Traduit en Majuscule dès la saisie dans la colonne A
Le code VBA de la procédure Sub Worksheet_Change() est exécuté à
chaque fois qu'une cellule est modifiée dans une feuille
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
-Clic-droit sur l'onglet puis visualiser le code
-Choisir WorkSheet dans menu déroulant
-Choisir événement Change dans menu déroulant
JB
On 3 mar, 21:44, "Christophe" <flasht...@wanadoo.fr> wrote:
Bonsoir,
1- Comment définir pour toute 1 colonne que le contenu de chaque cellule
soit en majuscule ?
2- en entrant du texte dans une cellule, je veux qu'il soit mis en
majuscule. possible avec une formule ou forme sous condition ??
Traduit en Majuscule dès la saisie dans la colonne A
Le code VBA de la procédure Sub Worksheet_Change() est exécuté à chaque fois qu'une cellule est modifiée dans une feuille
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
-Clic-droit sur l'onglet puis visualiser le code -Choisir WorkSheet dans menu déroulant -Choisir événement Change dans menu déroulant
JB
On 3 mar, 21:44, "Christophe" wrote:
Bonsoir,
1- Comment définir pour toute 1 colonne que le contenu de chaque cellule soit en majuscule ?
2- en entrant du texte dans une cellule, je veux qu'il soit mis en majuscule. possible avec une formule ou forme sous condition ??
Merci.
LSteph
Bonjour, ...juste un ou deux détails : (saisie plage, suppression)
'''***** Private Sub Worksheet_Change(ByVal Target As Range) Dim iSect As Range, c As Range Set iSect = Intersect(Target, [a:a]) If iSect Is Nothing Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = False For Each c In iSect.Cells If Not IsEmpty(c) Then c = UCase(c) Next Application.EnableEvents = True End Sub '''*****
Cordialement.
lSteph
Bonsoir,
1- Comment définir pour toute 1 colonne que le contenu de chaque cellule soit en majuscule ?
2- en entrant du texte dans une cellule, je veux qu'il soit mis en majuscule. possible avec une formule ou forme sous condition ??
Merci.
Bonjour,
...juste un ou deux détails : (saisie plage, suppression)
'''*****
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range, c As Range
Set iSect = Intersect(Target, [a:a])
If iSect Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each c In iSect.Cells
If Not IsEmpty(c) Then c = UCase(c)
Next
Application.EnableEvents = True
End Sub
'''*****
Cordialement.
lSteph
Bonsoir,
1- Comment définir pour toute 1 colonne que le contenu de chaque cellule
soit en majuscule ?
2- en entrant du texte dans une cellule, je veux qu'il soit mis en
majuscule. possible avec une formule ou forme sous condition ??
Bonjour, ...juste un ou deux détails : (saisie plage, suppression)
'''***** Private Sub Worksheet_Change(ByVal Target As Range) Dim iSect As Range, c As Range Set iSect = Intersect(Target, [a:a]) If iSect Is Nothing Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = False For Each c In iSect.Cells If Not IsEmpty(c) Then c = UCase(c) Next Application.EnableEvents = True End Sub '''*****
Cordialement.
lSteph
Bonsoir,
1- Comment définir pour toute 1 colonne que le contenu de chaque cellule soit en majuscule ?
2- en entrant du texte dans une cellule, je veux qu'il soit mis en majuscule. possible avec une formule ou forme sous condition ??
Merci.
Modeste
Bonsour® Christophe avec ferveur ;o))) vous nous disiez :
1- Comment définir pour toute 1 colonne que le contenu de chaque cellule soit en majuscule ? Menu Données > Validation
Options Autoriser : Personalisée Formule : =EXACT(A1;Majuscule(A1)) Appliquer ces modifications aux cellules de parametres identique
Message de saisie quand la cellule est selectionnée : Saisir en majuscule !!!
2- en entrant du texte dans une cellule, je veux qu'il soit mis en majuscule. possible avec une formule ou forme sous condition ??
VBA Macro evenementielle de feuille Private Sub Worksheet_SelectionChange(ByVal Target As Range) etc....
-- -- @+ ;o)))
DC
Bonjour, LSteph
Merci ! pour cette réponse précise, qui permet les majuscules sur 1 colonne, mais également sur une plage (au choix)
Salutations ! DC
"LSteph" a écrit dans le message de news:
Bonjour, ...juste un ou deux détails : (saisie plage, suppression)
'''***** Private Sub Worksheet_Change(ByVal Target As Range) Dim iSect As Range, c As Range Set iSect = Intersect(Target, [a:a]) If iSect Is Nothing Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = False For Each c In iSect.Cells If Not IsEmpty(c) Then c = UCase(c) Next Application.EnableEvents = True End Sub '''*****
Cordialement.
lSteph
Bonsoir,
1- Comment définir pour toute 1 colonne que le contenu de chaque cellule soit en majuscule ?
2- en entrant du texte dans une cellule, je veux qu'il soit mis en majuscule. possible avec une formule ou forme sous condition ??
Merci.
Bonjour, LSteph
Merci ! pour cette réponse précise, qui permet les majuscules
sur 1 colonne, mais également sur une plage (au choix)
Salutations ! DC
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uRsOh2dXHHA.2636@TK2MSFTNGP06.phx.gbl...
Bonjour,
...juste un ou deux détails : (saisie plage, suppression)
'''*****
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range, c As Range
Set iSect = Intersect(Target, [a:a])
If iSect Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each c In iSect.Cells
If Not IsEmpty(c) Then c = UCase(c)
Next
Application.EnableEvents = True
End Sub
'''*****
Cordialement.
lSteph
Bonsoir,
1- Comment définir pour toute 1 colonne que le contenu de chaque cellule
soit en majuscule ?
2- en entrant du texte dans une cellule, je veux qu'il soit mis en
majuscule. possible avec une formule ou forme sous condition ??
Merci ! pour cette réponse précise, qui permet les majuscules sur 1 colonne, mais également sur une plage (au choix)
Salutations ! DC
"LSteph" a écrit dans le message de news:
Bonjour, ...juste un ou deux détails : (saisie plage, suppression)
'''***** Private Sub Worksheet_Change(ByVal Target As Range) Dim iSect As Range, c As Range Set iSect = Intersect(Target, [a:a]) If iSect Is Nothing Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = False For Each c In iSect.Cells If Not IsEmpty(c) Then c = UCase(c) Next Application.EnableEvents = True End Sub '''*****
Cordialement.
lSteph
Bonsoir,
1- Comment définir pour toute 1 colonne que le contenu de chaque cellule soit en majuscule ?
2- en entrant du texte dans une cellule, je veux qu'il soit mis en majuscule. possible avec une formule ou forme sous condition ??