Transformer les cellules en majuscules

fartail Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
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 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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