Sujet Précédent Sujet Suivant

Macro pour mettre en majuscules

Résolu/Fermé
Yoan - 14 oct. 2011 à 10:55
 Yoan - 14 oct. 2011 à 11:48
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 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
14 oct. 2011 à 11:17
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
14 oct. 2011 à 11:21
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
14 oct. 2011 à 11:22
bonjour

alors par une macro, le code

Dim cellule As Range
For Each cellule In Range("B2:B99")
cellule = UCase(cellule)
Next
0
Yoan
14 oct. 2011 à 11:28
Merci bonne journée
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
Modifié par eriiic le 14/10/2011 à 11:31
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
14 oct. 2011 à 11:31
Ma macro a la fermeture enregistre le fichier après la mise en majuscules.

Merci Yoan
0