Il existe plusieurs macros courtes que vous pouvez ajouter à votre classeur de macros personnelles, puis ajouter au QAT. Dans cette astuce, vous verrez comment créer le classeur de macros personnelles, taper des macros, puis les affecter à des icônes sur le QAT.
Créer un classeur de macros personnelles
Commencez à partir de n'importe quel classeur. Allez dans Affichage, Macros, Enregistrer une macro. Dans la boîte de dialogue Enregistrer une macro, saisissez un nom en un mot tel que HelloWorld. Choisissez le classeur de macros personnelles. Cliquez sur OK.
Tapez Hello dans la cellule active et appuyez sur Entrée. Ensuite, sélectionnez Afficher, Macros, Arrêter l'enregistrement. Ces étapes créeront un Personal.xlsb sur votre ordinateur où vous pourrez stocker de nouvelles macros.
Ouvrez l'éditeur VBA et recherchez Module1 dans Personal.xlsb
Dans Excel, appuyez sur Alt + F11. (Si vous n'avez pas Alt + F11, vous pouvez ajouter la commande Visual Basic au QAT et cliquer dessus.
Votre première fois dans l'éditeur VBA, cela pourrait être une vaste étendue de gris. Dans le menu VBA, sélectionnez Affichage, Explorateur de projets.
Recherchez une entrée appelée VBAProject (PERSONAL.XLSB). Cliquez sur l'icône + pour le développer.
Recherchez et développez des modules. Cliquez avec le bouton droit sur Module1 et choisissez Afficher le code.
Vous verrez votre code HelloWorld. Après le End Sub, tapez l'une de ces procédures.
Sub VeryHideActiveSheet() ActiveSheet.Visible = xlVeryHidden End Sub Sub ShowAllSheets() For Each sh In ActiveWorkbook.Worksheets sh.Visible = True Next sh End Sub Sub UpperSelection() For Each cell In Selection.SpecialCells(2, 2) ' 2, 2 means xlCellTypeConstants, Text cell.Value = UCase(cell.Value) Next End Sub Sub LowerSelection() For Each cell In Selection.SpecialCells(2, 2) cell.Value = LCase(cell.Value) Next End Sub Sub ProperSelection() For Each cell In Selection.SpecialCells(2, 2) cell.Value = Application.WorksheetFunction.Proper(cell.Value) Next End Sub Lorsque vous personnalisez le QAT, choisissez Macros dans le menu déroulant en haut à gauche.
Lorsque vous choisissez une macro et cliquez sur Ajouter >>, l'icône sera par défaut un organigramme. Cliquez sur Modifier en bas à droite. Choisissez une nouvelle icône. Tapez une bonne info-bulle.
Voici une explication de la façon d'utiliser ces cinq macros:
- Très caché: les feuilles de calcul peuvent être visibles, masquées ou très cachées. Peu de gens connaissent les feuilles Very Hidden car vous devez utiliser VBA pour les créer. Une feuille de calcul très masquée n'apparaîtra pas dans Accueil, Format, Masquer et afficher, Feuilles de calcul. (Merci à -Sagar Malik)
- Afficher toutes les feuilles : il est facile de sélectionner 12 feuilles et de les masquer en une seule commande. Mais alors dévoiler les feuilles est une proposition une à la fois. Cette macro affichera toutes les feuilles (y compris les feuilles très cachées).
- Sélection supérieure : convertit tout le texte de la sélection en majuscules.
- Sélection inférieure : convertit tout le texte de la sélection en minuscules.
- Sélection correcte : convertit tout le texte de la sélection en casse appropriée.
Merci à MF Wong pour avoir suggéré certaines de ces macros.
