Excel VBA est un outil puissant et pratique qui permet d'effectuer rapidement des tâches en grande quantité. Vous pouvez appliquer plusieurs conditions et obtenir différents résultats sur la base des conditions individuelles grâce à VBA. Parfois, vous voudrez vérifier si une feuille particulière existe dans votre classeur. Et, si ce n'est pas le cas, vous devrez créer cette feuille. Dans cet article, je vous montrerai toutes les étapes pour ajouter une feuille s'il n'existe pas, en utilisant Excel VBA.

Excel VBA : ajouter une feuille si elle n'existe pas (vue d'ensemble)

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Which Sheet Are You Looking For ?", _ "Add Sheet If Not Exist", "Sheet5", , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & ; addSheetName & ; _ "'' sheet hasa été ajoutée car elle n'existait pas.", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "La ''" & ; addSheetName & ; _ "''feuille existe déjà dans ce classeur.", _ vbInformation, "Add Sheet If Not Exist" End If End Sub 

Insérer dans un nouveau module pour appliquer le code ci-dessus.

Télécharger le cahier d'exercices

Vous pouvez télécharger gratuitement notre cahier d'exercices à partir d'ici !

Étapes pour appliquer le code VBA afin d'ajouter une feuille dans Excel si elle n'existe pas

Supposons que vous ayez un classeur contenant 4 feuilles de travail nommées Janvier, Février, Mars et Avril. Chaque feuille contient le rapport de ventes du mois suivant. Maintenant, vous devez trouver certaines feuilles dans le classeur et ajouter la feuille si elle n'existe pas. Vous pouvez suivre les directives étape par étape ci-dessous pour accomplir ceci.

📌 Étape 1 : Insérer un nouveau module

Tout d'abord, vous devez insérer un module pour écrire du code VBA.

• Pour ce faire, au tout début, rendez-vous dans la rubrique Développeur tab>> ; Visual Basic outil.

• Par conséquent, le Microsoft Visual Basic pour les applications apparaît.
• Ensuite, allez dans la section Insérer tab>> ; Module outil.

Ainsi, un nouveau module nommé Module1 a été créé.

Lire la suite : Comment ajouter une feuille avec un nom dans Excel VBA (6 méthodes simples)

Lectures similaires

• Créer un nouveau classeur et l'enregistrer en utilisant VBA dans Excel
• Excel VBA : créer un nouveau classeur et le nommer (6 exemples)
• Comment créer une nouvelle feuille à partir d'un modèle en utilisant une macro dans Excel ?

📌 Étape 2 : écrire et enregistrer le code VBA requis

Maintenant, vous devez écrire le code à l'intérieur du module et le sauvegarder.

• Pour ce faire, cliquez sur le bouton Module1 et écrivez le code suivant dans la fenêtre de code.

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Which Sheet Are You Looking For ?", _ "Add Sheet If Not Exist", "Sheet5", , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & ; addSheetName & ; _ "'' sheet hasa été ajoutée car elle n'existait pas.", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "La ''" & ; addSheetName & ; _ "''feuille existe déjà dans ce classeur.", _ vbInformation, "Add Sheet If Not Exist" End If End  Sous 

• En conséquence, la fenêtre de code ressemblera à ce qui suit.

🔎 Explication du code :

♣ Segment 1 :

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String 

Dans cette partie, nous avons déclaré le nom de la macro et les noms des variables.

♣ Segment 2 :

 addSheetName = Application.InputBox("Quelle feuille recherchez-vous ?", _ "Add Sheet If Not Exist", "Sheet5", , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name 

Dans cette partie, nous avons créé une boîte de saisie qui nous permet de saisir le nom du fichier que nous devons trouver.

♣ Segment 3 :

 If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & ; addSheetName & ; _ "'' sheet has been added as it did not exist.", _ vbInformation, "Add Sheet If Not Exist" 

Dans cette partie, nous vérifions si la feuille requise existe dans le classeur. Si ce n'est pas le cas, il crée la feuille requise et nous montre un message sur ce changement.

♣ Segment 4 :

 Else MsgBox "La ''" & ; addSheetName & ; _ "''feuille existe déjà dans ce classeur.", _ vbInformation, "Add Sheet If Not Exist" End If End Sub 

Dans cette partie, nous avons travaillé avec le résultat si la feuille requise existe déjà dans le classeur. Dans ce scénario, une autre boîte de message apparaîtra pour vous informer que cette feuille existe. En outre, dans cette partie, nous terminons le code correctement.

• Ensuite, appuyez sur Ctrl + S.

• Par la suite, un Microsoft Excel Cliquez sur le bouton Non bouton.

• Par conséquent, le Enregistrer sous apparaît.
• Ensuite, choisissez le Enregistrer comme type : comme .xlsm Ensuite, cliquez sur l'icône Sauvez bouton.

Ainsi, vous avez écrit et sauvegardé le code requis.

Note :

Vous devez enregistrer le classeur Excel dans .xlsm Sinon, la macro ne sera pas activée et le code ne fonctionnera pas.

Lire la suite : Excel VBA pour ajouter une feuille avec un nom de variable (5 exemples idéaux)

📌 Étape 3 : Exécuter le code

Maintenant, vous devez exécuter le code et vérifier les résultats.

• Pour ce faire, il faut tout d'abord cliquer sur l'icône de l'entreprise. Exécuter dans l'icône Microsoft Visual Basic pour les applications fenêtre.

• Par conséquent, le Macros apparaît.
• Ensuite, choisissez le AddSheetIfNotExist et cliquez sur le bouton Exécuter bouton.

• À ce moment-là, notre boîte de messages créée, nommée Ajouter une feuille si elle n'existe pas apparaît. Ici, l'option automatique serait Feuille 5 .

• Maintenant, pour vérifier, écrivez "Avril" dans la zone de texte et cliquez sur le bouton Ok bouton.

• Par la suite, vous verrez qu'une autre boîte de message apparaîtra pour vous dire que la feuille existe déjà.
• Cliquez sur le Ok bouton.

• Ensuite, exécutez à nouveau le code et écrivez "Mai" dans la zone de texte de la boîte de message créée. Ensuite, cliquez sur le bouton OK bouton.

• En conséquence, vous verrez apparaître une autre boîte de message vous informant que la "Mai" n'existait pas et a donc créé cette feuille.
• Ensuite, cliquez sur le OK bouton.

Enfin, vous pouvez voir que vous avez ajouté une feuille qui n'existait pas auparavant et que le classeur ressemble maintenant à ceci.

Lire la suite : Excel VBA : ajouter une feuille après la dernière (3 exemples idéaux)

Conclusion

Ainsi, dans cet article, je vous ai montré toutes les étapes pour ajouter une feuille si elle n'existe pas avec Excel VBA. Lisez attentivement l'article complet pour mieux le comprendre et obtenir le résultat souhaité. J'espère que vous trouverez cet article utile et instructif. Si vous avez d'autres questions ou recommandations, n'hésitez pas à me contacter.

Et, visitez ExcelWIKI pour beaucoup d'autres articles comme celui-ci. Merci !