Existe-t-il un format personnalisé dans les formats de cellules qui mette en
majuscule un texte sans passer par une fonction ?
Merci de votre aide et bonne soirée
Fil
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
La réponse est non.
Mais tu peux utiliser une procédure événementielle (macro) qui peut faire le travail à chaque fois que tu saisis du texte.
Un exemple : Colle cette procédure dans le module feuille où l'action se déroule Un clic droit sur l'onglet de la feuille, sélectionne "Visualiser le code" et dans la page blanche, tu copies la procédure suivante : Pour ton application, tu n'auras qu'à renseigner correctement la plage de cellules visées.
Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range Set Rg = Intersect(Target, Range("A:A")) If Not Rg Is Nothing Then Application.EnableEvents = False For Each c In Rg 'tout en maj 'seulement la première lettre c.Value = UCase(c) ' or Application.Proper(c) Next Application.EnableEvents = True End If End Sub
"Fil" a écrit dans le message de groupe de discussion :
Bonsoir,
Existe-t-il un format personnalisé dans les formats de cellules qui mette en majuscule un texte sans passer par une fonction ? Merci de votre aide et bonne soirée Fil
La réponse est non.
Mais tu peux utiliser une procédure événementielle (macro) qui peut faire
le travail à chaque fois que tu saisis du texte.
Un exemple : Colle cette procédure dans le module feuille où l'action se déroule
Un clic droit sur l'onglet de la feuille, sélectionne "Visualiser le code"
et dans la page blanche, tu copies la procédure suivante :
Pour ton application, tu n'auras qu'à renseigner correctement la plage de cellules visées.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("A:A"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each c In Rg
'tout en maj 'seulement la première lettre
c.Value = UCase(c) ' or Application.Proper(c)
Next
Application.EnableEvents = True
End If
End Sub
"Fil" <phio79@orange.fr> a écrit dans le message de groupe de discussion :
etaUaTtkJHA.1928@TK2MSFTNGP03.phx.gbl...
Bonsoir,
Existe-t-il un format personnalisé dans les formats de cellules qui mette en
majuscule un texte sans passer par une fonction ?
Merci de votre aide et bonne soirée
Fil
Mais tu peux utiliser une procédure événementielle (macro) qui peut faire le travail à chaque fois que tu saisis du texte.
Un exemple : Colle cette procédure dans le module feuille où l'action se déroule Un clic droit sur l'onglet de la feuille, sélectionne "Visualiser le code" et dans la page blanche, tu copies la procédure suivante : Pour ton application, tu n'auras qu'à renseigner correctement la plage de cellules visées.
Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range Set Rg = Intersect(Target, Range("A:A")) If Not Rg Is Nothing Then Application.EnableEvents = False For Each c In Rg 'tout en maj 'seulement la première lettre c.Value = UCase(c) ' or Application.Proper(c) Next Application.EnableEvents = True End If End Sub
"Fil" a écrit dans le message de groupe de discussion :
Bonsoir,
Existe-t-il un format personnalisé dans les formats de cellules qui mette en majuscule un texte sans passer par une fonction ? Merci de votre aide et bonne soirée Fil
Fil
C'est pile ce qui me fallait Encore merci pour ton aide et bonne nuit Fil
"michdenis" a écrit dans le message de news: La réponse est non.
Mais tu peux utiliser une procédure événementielle (macro) qui peut faire le travail à chaque fois que tu saisis du texte.
Un exemple : Colle cette procédure dans le module feuille où l'action se déroule Un clic droit sur l'onglet de la feuille, sélectionne "Visualiser le code" et dans la page blanche, tu copies la procédure suivante : Pour ton application, tu n'auras qu'à renseigner correctement la plage de cellules visées.
Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range Set Rg = Intersect(Target, Range("A:A")) If Not Rg Is Nothing Then Application.EnableEvents = False For Each c In Rg 'tout en maj 'seulement la première lettre c.Value = UCase(c) ' or Application.Proper(c) Next Application.EnableEvents = True End If End Sub
"Fil" a écrit dans le message de groupe de discussion :
Bonsoir,
Existe-t-il un format personnalisé dans les formats de cellules qui mette en majuscule un texte sans passer par une fonction ? Merci de votre aide et bonne soirée Fil
C'est pile ce qui me fallait
Encore merci pour ton aide et bonne nuit
Fil
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:4CCC0EF3-ED7D-4F86-A5FB-BEE166BD9B5B@microsoft.com...
La réponse est non.
Mais tu peux utiliser une procédure événementielle (macro) qui peut faire
le travail à chaque fois que tu saisis du texte.
Un exemple : Colle cette procédure dans le module feuille où l'action se
déroule
Un clic droit sur l'onglet de la feuille, sélectionne "Visualiser le code"
et dans la page blanche, tu copies la procédure suivante :
Pour ton application, tu n'auras qu'à renseigner correctement la plage de
cellules visées.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("A:A"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each c In Rg
'tout en maj 'seulement la première lettre
c.Value = UCase(c) ' or Application.Proper(c)
Next
Application.EnableEvents = True
End If
End Sub
"Fil" <phio79@orange.fr> a écrit dans le message de groupe de discussion :
etaUaTtkJHA.1928@TK2MSFTNGP03.phx.gbl...
Bonsoir,
Existe-t-il un format personnalisé dans les formats de cellules qui mette en
majuscule un texte sans passer par une fonction ?
Merci de votre aide et bonne soirée
Fil
C'est pile ce qui me fallait Encore merci pour ton aide et bonne nuit Fil
"michdenis" a écrit dans le message de news: La réponse est non.
Mais tu peux utiliser une procédure événementielle (macro) qui peut faire le travail à chaque fois que tu saisis du texte.
Un exemple : Colle cette procédure dans le module feuille où l'action se déroule Un clic droit sur l'onglet de la feuille, sélectionne "Visualiser le code" et dans la page blanche, tu copies la procédure suivante : Pour ton application, tu n'auras qu'à renseigner correctement la plage de cellules visées.
Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range Set Rg = Intersect(Target, Range("A:A")) If Not Rg Is Nothing Then Application.EnableEvents = False For Each c In Rg 'tout en maj 'seulement la première lettre c.Value = UCase(c) ' or Application.Proper(c) Next Application.EnableEvents = True End If End Sub
"Fil" a écrit dans le message de groupe de discussion :
Bonsoir,
Existe-t-il un format personnalisé dans les formats de cellules qui mette en majuscule un texte sans passer par une fonction ? Merci de votre aide et bonne soirée Fil
