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
ChrisV
Bonjour,
Sub maJ() Dim c As Range Application.ScreenUpdating = False For Each c In Selection.SpecialCells(xlCellTypeConstants) c.Value = UCase(c) Next c End Sub
ChrisV
a écrit dans le message de news: 125f401c3f614$bec3aee0$ Bonjour,
Je sais pas si c'est possible mais j'aimerai trouvé une fonction qui mette le contenu de toutes les cellules en majuscule.
Si quelqu'un peut m'aider
Bonjour,
Sub maJ()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection.SpecialCells(xlCellTypeConstants)
c.Value = UCase(c)
Next c
End Sub
ChrisV
<anonymous@discussions.microsoft.com> a écrit dans le message de news:
125f401c3f614$bec3aee0$a601280a@phx.gbl...
Bonjour,
Je sais pas si c'est possible mais j'aimerai trouvé une
fonction qui mette le contenu de toutes les cellules en
majuscule.
Sub maJ() Dim c As Range Application.ScreenUpdating = False For Each c In Selection.SpecialCells(xlCellTypeConstants) c.Value = UCase(c) Next c End Sub
ChrisV
a écrit dans le message de news: 125f401c3f614$bec3aee0$ Bonjour,
Je sais pas si c'est possible mais j'aimerai trouvé une fonction qui mette le contenu de toutes les cellules en majuscule.
