transformer les cellules en majuscules

Question

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

Mike-31 · Answer

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

Transformer les cellules en majuscules

1 réponse

Discussions similaires

Newsletters