*Convertir en majuscules . ( Version Excel 97 )
a- Lancer Visual Basic Editor .
b- Ouvrir le menu Insertion / Module .
c- Saisir le listing ci-dessous :
Sub MinMaj ()
Dim ChaineCellule As String
ChaineCellule = Selection.Value
ChaineCellule = UCase (ChaineCellule)
Selection.Value = ChaineCellule
End Sub
d- Affecter la macro à un bouton
Avec toutes mes excuses pour son auteur, je n'ai pas retrouvé son nom.
andré