Transformer les cellules en majuscules

Signaler
Messages postés
1
Date d'inscription
samedi 23 novembre 2019
Statut
Membre
Dernière intervention
23 novembre 2019
-
Mike-31
Messages postés
16994
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
12 décembre 2019
-
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
Messages postés
16994
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
12 décembre 2019
3715
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