Majuscule en fomat texte

Le
Fil
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
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #18714141
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"
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
Le #18714321
C'est pile ce qui me fallait
Encore merci pour ton aide et bonne nuit
Fil


"michdenis" 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"
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
Publicité
Poster une réponse
Anonyme