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

1 réponse

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
    1. 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
    2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      bonjour

      alors par une macro, le code

      Dim cellule As Range
      For Each cellule In Range("B2:B99")
      cellule = UCase(cellule)
      Next
      0
    3. Yoan
       
      Merci bonne journée
      0
    4. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      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
    5. Yoan
       
      Ma macro a la fermeture enregistre le fichier après la mise en majuscules.

      Merci Yoan
      0