Macro pour mettre en majuscules

Résolu
Yoan -  
 Yoan -
Bonjour,

Je voudrais savoir s'il est possible de mettre (via une macro) en majuscules tout les mots contenu dans les colonnes B2:B99 ?

Merci de votre aide

Yoan
A voir également:

1 réponse

Réponse 1 / 1
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

Pas besoin de macro.

Insère une colonne vide en C.
En C1: =majuscule(B1) à recopier vers le bas.
Sélectionner la colonne C, copier, collage spécial 'valeur' sur elle-même.
Supprimer la colonne B

eric
0
Yoan
 
Bonjour,

Merci de votre réponse
Le tableau est amené à évoluer et à être utiliser par plusieurs personnes.
J'exécute déjà une macro automatiquement avant la fermeture du fichier et afin de simplifier l'utilisation pour les autres intervenants je souhaiterai passer par une macro...

Yoan
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour

alors par une macro, le code

Dim cellule As Range
For Each cellule In Range("B2:B99")
cellule = UCase(cellule)
Next
0
Yoan
 
Merci bonne journée
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
ok
Je pense que c'est mieux de le mettre à l'ouverture car si l'utilisateur a déjà sauvegardé il lui sera demandé un nouvel enregistrement. 
Private Sub Workbook_Open()  
    Dim c As Range  
    For Each c In [Feuil1!B2:B99]  
        c = UCase(c)  
    Next c  
End Sub

à mettre dans ThisWorkbook
eric

hé bé, vite baclé là... salut michel ;-)
0
Yoan
 
Ma macro a la fermeture enregistre le fichier après la mise en majuscules.

Merci Yoan
0

Discussions similaires

Comment fait-on des majuscules accentuées dans Excel?
rakatamouche -
rakatamouche -

10 réponses