Comment enregistrer et utiliser vos macros VBA dans tous les classeurs Excel ?

Il existe de nombreuses situations où vous pourriez avoir besoin d'utiliser la même macro VBA de manière répétée dans différents classeurs Excel, par exemple pour automatiser des calculs répétitifs, formater des données ou créer des fonctions personnalisées comme la conversion de nombres en mots. Un défi courant est que, par défaut, les macros sont stockées uniquement dans le classeur où elles ont été créées, ce qui signifie que vous ne pouvez pas y accéder ou les réutiliser facilement dans de nouveaux documents. Cependant, Excel propose plusieurs méthodes flexibles pour rendre une macro VBA disponible globalement, éliminant ainsi le besoin de recopier le code à chaque nouveau classeur. Ce tutoriel fournit des instructions complètes pour diverses approches afin de garantir que vos macros VBA soient facilement accessibles dans tous les classeurs, améliorant ainsi votre productivité et votre flux de travail.

Enregistrer et utiliser le code VBA dans tous les classeurs
Méthode du classeur de macros personnel

Par exemple, supposons que vous souhaitiez pouvoir convertir des nombres en mots équivalents en anglais à l'aide d'un code VBA personnalisé et vous assurer que cette fonctionnalité est toujours disponible, peu importe le classeur sur lequel vous travaillez. Avec la bonne approche, vous pouvez enregistrer vos modules VBA de sorte qu'ils soient réutilisables à tout moment dans Excel. Cela est particulièrement utile pour les fonctions personnalisées ou les automatisations que vous souhaitez rendre accessibles à chaque fois, sans dupliquer le code dans plusieurs fichiers.

Pour ce faire, vous pouvez empaqueter votre code VBA sous forme de module complémentaire Excel personnalisé. Ce module peut être activé dans Excel et exposera votre fonctionnalité personnalisée en tant que fonction disponible globalement.

Suivez ces étapes :

1. Appuyez sur Alt + F11 dans Excel pour ouvrir la fenêtre "Microsoft Visual Basic for Applications".

2. Dans l'éditeur VBA, cliquez sur Insertion > Module et collez la macro suivante dans la nouvelle fenêtre Module créée.

Code VBA : Convertir des nombres en mots

Function NumberstoWords(ByVal MyNumber)
'Update by ExtendofficeDim xStr As StringDim xFNum As IntegerDim xStrPointDim xStrNumberDim xPoint As StringDim xNumber As StringDim xP() As VariantDim xDPDim xCnt As IntegerDim xResult, xT As StringDim xLen As IntegerOn Error Resume NextxP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP >0 ThenxPoint = " point "
xStr = Mid(xNumber, xDP +1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum =1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum,1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNumxNumber = Trim(Left(xNumber, xDP -1))
End IfxCnt =0xResult = ""
xT = ""
xLen =0xLen = Int(Len(Str(xNumber)) /3)
If (Len(Str(xNumber)) Mod3) =0 Then xLen = xLen -1Do While xNumber <> ""
If xLen = xCnt ThenxT = GetHundredsDigits(Right(xNumber,3), False)
ElseIf xCnt =0 ThenxT = GetHundredsDigits(Right(xNumber,3), True)
ElsexT = GetHundredsDigits(Right(xNumber,3), False)
End IfEnd IfIf xT <> "" ThenxResult = xT & xP(xCnt) & xResultEnd IfIf Len(xNumber) >3 ThenxNumber = Left(xNumber, Len(xNumber) -3)
ElsexNumber = ""
End IfxCnt = xCnt +1LoopxResult = xResult & xPointNumberstoWords = xResultEnd FunctionFunction GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As StringDim xStrNum As StringDim xStr As StringDim xI As IntegerDim xBB As BooleanxStrNum = xHDgtxRStr = ""
On Error Resume NextxBB = TrueIf Val(xStrNum) =0 Then Exit FunctionxStrNum = Right("000" & xStrNum,3)
xStr = Mid(xStrNum,1,1)
If xStr <> "0" ThenxRStr = GetDigits(Mid(xStrNum,1,1)) & "Hundred "
ElseIf xB ThenxRStr = "and "
xBB = FalseElsexRStr = " "
xBB = FalseEnd IfEnd IfIf Mid(xStrNum,2,2) <> "00" ThenxRStr = xRStr & GetTenDigits(Mid(xStrNum,2,2), xBB)
End IfGetHundredsDigits = xRStrEnd FunctionFunction GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As StringDim xI As IntegerDim xArr_1() As VariantDim xArr_2() As VariantDim xT As BooleanxArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = TrueOn Error Resume NextIf Val(Left(xTDgt,1)) =1 ThenxI = Val(Right(xTDgt,1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
ElsexI = Val(Left(xTDgt,1))
If Val(Left(xTDgt,1)) >1 ThenIf xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt,1)))
xT = FalseEnd IfIf xStr = "" ThenIf xB ThenxStr = "and "
End IfEnd IfIf Right(xTDgt,1) <> "0" ThenxStr = xStr & GetDigits(Right(xTDgt,1))
End IfEnd IfGetTenDigits = xStrEnd FunctionFunction GetDigits(xDgt)
Dim xStr As StringDim xArr_1() As VariantxArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume NextxStr = xArr_1(Val(xDgt))
GetDigits = xStrEnd Function

3. Maintenant, cliquez sur l'icône "Enregistrer" située dans le coin supérieur gauche de la fenêtre ou appuyez simplement sur Ctrl + S pour ouvrir la boîte de dialogue "Enregistrer sous".

4. Dans la fenêtre "Enregistrer sous", entrez le nom de fichier souhaité dans le champ "Nom de fichier". Pour le menu déroulant "Type de fichier", assurez-vous de sélectionner Complément Excel (*.xlam).

5. Cliquez sur le bouton "Enregistrer" pour stocker votre classeur en tant que fichier complément Excel. Cela crée un complément réutilisable qui peut être activé à tout moment pour n'importe quel classeur.

6. Une fois enregistré, retournez dans Excel et fermez le classeur que vous venez de convertir en complément.

7. Ouvrez un nouveau ou un classeur existant où vous souhaitez utiliser votre macro. Entrez la formule personnalisée dans la cellule appropriée (par exemple, dans B2) :

=NumberstoWords(A2)

8. Allez dans l'onglet Développeur et cliquez sur le bouton Compléments Excel dans le groupe Compléments.

9. Dans la boîte de dialogue Compléments qui apparaît, sélectionnez Parcourir.

10. Localisez et sélectionnez le fichier du complément que vous avez enregistré précédemment, puis cliquez sur OK.

11. Votre complément personnalisé, comme "Convertir des nombres en mots", devrait maintenant apparaître dans la liste des compléments. Assurez-vous qu'il est coché et cliquez sur OK pour l'activer.

12. Maintenant, entrez à nouveau la fonction personnalisée dans la cellule cible (comme B2) et appuyez sur Entrée. Vous devriez voir la formule renvoyer les mots anglais corrects correspondant au nombre.

=NumberstoWords(A2)

13. Pour appliquer rapidement la formule de conversion à plusieurs nombres, faites glisser la poignée de remplissage automatique de la cellule vers le bas pour copier la fonction dans d'autres cellules.

1. Vous pouvez attribuer une macro à la barre d'outils Accès rapide pour une exécution en un clic dans n'importe quel classeur visible. Pour ce faire, faites un clic droit sur la barre d'outils Accès rapide, sélectionnez "Personnaliser la barre d'outils Accès rapide", puis ajoutez votre macro.
   
2. Vous pouvez également appuyer sur Alt + F11 pour ouvrir l'éditeur VBA, sélectionner manuellement votre macro, et appuyer sur F5 pour exécuter le code selon vos besoins.

Une autre méthode très pratique pour vous assurer que vos macros préférées ou les plus utilisées sont prêtes dans chaque session Excel, peu importe le classeur ouvert, consiste à utiliser le Classeur de macros personnel (PERSONAL.XLSB). Il s'agit d'un fichier Excel spécial et caché qui se charge automatiquement chaque fois qu'Excel démarre, permettant à toutes les macros stockées à l'intérieur d'être accessibles dans tous les classeurs ouverts.

Scénarios applicables : Idéal pour l'automatisation personnelle, les scripts de formatage de routine ou les fonctions utilitaires que vous n'avez pas besoin de partager en tant que compléments Excel formels. Les macros dans PERSONAL.XLSB sont disponibles sur votre ordinateur, quel que soit le fichier ouvert.

Avantages : Les macros sont disponibles globalement pour votre profil Excel local et ne nécessitent aucune installation de compléments ni fichiers supplémentaires.
Inconvénients : Les macros stockées de cette manière ne sont utilisables que sur l'ordinateur et le compte où PERSONAL.XLSB existe. Le partage avec d'autres nécessite l'exportation et l'importation manuelle des modules.

• Pour utiliser cette méthode, vous devez d'abord enregistrer ou créer une macro et vous assurer qu'elle est enregistrée dans le Classeur de macros personnel.

Suivez ces étapes :

1. Ouvrez Excel. Sous l'onglet Affichage, cliquez sur Macros, puis Enregistrer une macro.
2. Dans la boîte de dialogue, sous "Stocker la macro dans", sélectionnez Classeur de macros personnel. Terminez l'enregistrement (vous pouvez arrêter immédiatement si ce n'est pas nécessaire).
3. Appuyez sur Alt + F11 pour entrer dans l'éditeur VBA où vous verrez un projet pour PERSONAL.XLSB. Ici, insérez un nouveau module ou collez votre code de macro souhaité.
4. Enregistrez vos modifications. Excel crée et maintient automatiquement le classeur PERSONAL.XLSB dans son dossier de démarrage.
5. Les macros dans PERSONAL.XLSB peuvent ensuite être exécutées via la boîte de dialogue Macros (Alt + F8), attribuées aux boutons du ruban ou de la barre d'outils, ou appelées depuis VBA.

Dépannage & Maintenance : Si les macros dans PERSONAL.XLSB ne sont pas disponibles, vérifiez si Excel s'ouvre en mode sans échec ou si les paramètres de sécurité des macros sont définis sur “Désactiver toutes les macros.” De plus, PERSONAL.XLSB est masqué par défaut ; si vous fermez accidentellement sans enregistrer ou supprimez-le, vous devrez peut-être réenregistrer une macro pour le régénérer.