Transformer les cellules en majuscules

Fermé
fartail Messages postés 1 Date d'inscription samedi 23 novembre 2019 Statut Membre Dernière intervention 23 novembre 2019 - 23 nov. 2019 à 07:23
Mike-31 Messages postés 18345 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 8 novembre 2024 - 23 nov. 2019 à 08:33
Bonjour,
concernant les majuscules pour les classeurs excel voici une macro qui fonctionne en selection de cellule

Sub majuscule()
'Transforme en majuscules le contenu des cellules sélectionnées
For Each cellule In Selection
cellule.Value = UCase(cellule.Value)
Next cellule
End Sub


Configuration: Windows / Firefox 70.0

1 réponse

Mike-31 Messages postés 18345 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 8 novembre 2024 5 104
23 nov. 2019 à 08:33
Bonjour,

pourquoi fais tu une boucle For Each à part que tu sois obligé se traiter une plage étendue

tu peux également écrire simplement comme cela
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Value = UCase(ActiveCell.Value)
End Sub
0