Excel VBA : créer une nouvelle ligne dans MsgBox (6 exemples)

Hugh West

20-06-2023 Macros & ; Excel VBA
  • Partage Ça
Hugh West

Nous utilisons souvent MsgBox sur VBA pour afficher la notification après l'exécution des codes. Parfois, une seule ligne ne peut pas afficher la sortie correctement. Dans ce cas, nous devons ajouter de nouvelles lignes Ainsi, grâce à cet article, vous apprendrez 6 Macros utiles pour ajouter une nouvelle ligne dans MsgBox en utilisant Excel VBA.

Télécharger le cahier d'exercices

Vous pouvez télécharger le modèle Excel gratuit ici et vous exercer par vous-même.

Créer une nouvelle ligne dans MsgBox.xlsm

6 exemples pour créer une nouvelle ligne dans MsgBox en utilisant Excel VBA

1. utiliser vbNewLine pour ajouter une nouvelle ligne dans MsgBox en utilisant Excel VBA

Ici, nous utiliserons vbNewLine sur Macro VBA pour ajouter une ligne dans MsgBox. Je vais montrer " Bonjour ! "dans la première ligne et " Bienvenue à ExcelWIKI" dans la deuxième ligne.

Des pas :

  • Appuyez sur Alt + F11 pour ouvrir le Fenêtre VBA .
  • Puis cliquez sur comme suit pour insérer un module : Insertion ➤ Module .

  • Plus tard, tapez les codes suivants dans celui-ci- 
 Sub NewLine_vbNewLine() MsgBox "Hello !" & ; vbNewLine & ; "Welcome to ExcelWIKI" End Sub

  • Puis revenir en arrière à votre feuille et cliquez sur comme suit pour ouvrir le Macros de la boîte de dialogue : Développeur ➤ Macros .

  • Sélectionnez le site Nom de la macro comme indiqué dans le codes .
  • Enfin, il suffit d'appuyer sur Exécuter .

Maintenant, regardez, vbNewLine montre la sortie dans deux lignes .

Lire la suite : VBA pour générer plusieurs lignes dans le corps d'un courriel en Excel (2 méthodes)

Utilisez vbCrLf pour créer une nouvelle ligne dans MsgBox en utilisant VBA dans Excel.

Maintenant, nous allons utiliser une autre constante de VBA - vbCrLf pour créer une nouvelle ligne dans MsgBox Il ajoutera également une nouvelle ligne entre les deux lignes consécutives.

Des pas :

  • Tout d'abord, suivez les les deux premières étapes de la première méthode pour insérer un module dans le VBA
  • Puis écrire les éléments suivants codes en elle. 
 Sub NewLine_vbCrLf() MsgBox "Hello !" & ; vbCrLf & ; vbCrLf & ; "Welcome to ExcelWIKI" End Sub

  • Ensuite, suivez les quatrième étape de la première méthode pour ouvrir le Boîte de dialogue Macro .
  • Sélectionnez le Nom de la macro et appuyez sur Exécuter .

La constante vbCrLf a ajouté une nouvelle ligne avec une ligne d'écart aussi.

Lire la suite : Comment ajouter une ligne dans une cellule Excel (5 méthodes simples)

3. insérer vbLf pour ajouter une nouvelle ligne dans MsgBox en utilisant Excel VBA

Utilisons une autre constante - vbLf pour ajouter un nouvelle ligne dans MsgBox en Excel VBA.

Des pas :

  • Suivez les les deux premières étapes de la première méthode pour insérer un module dans le VBA
  • Plus tard, écrire les éléments suivants codes en elle. 
 Sub NewLine_vbLf() MsgBox "Hello !" & ; vbLf & ; "Welcome to ExcelWIKI" End Sub

  • Ensuite, suivez les quatrième étape de la première méthode pour ouvrir le Boîte de dialogue Macro .
  • Plus tard, sélectionnez le Nom de la macro comme indiqué dans les codes et appuyez sur Exécuter .

Et peu après, vous obtiendrez le résultat souhaité.

Lire la suite : Comment ajouter une nouvelle ligne avec la formule CONCATENATE dans Excel (5 façons)

4. appliquer Chr pour créer une nouvelle ligne dans MsgBox en utilisant VBA dans Excel

Ici, nous allons utiliser deux constantes de VBA- Chr(13) & ; Chr(10) pour ajouter des lignes.

Des pas :

  • Commencez par suivre les les deux premières étapes de la première méthode pour insérer un module dans le VBA
  • Puis écrire les éléments suivants codes en elle. 
 Sub NewLine_Chr() MsgBox "Hello !" & ; Chr(13) & ; Chr(10) & ; "Welcome to ExcelWIKI" End Sub

  • Après cela, suivez les quatrième étape de la première méthode pour ouvrir le Boîte de dialogue Macro .
  • Ensuite, sélectionnez le Nom de la macro et appuyez sur Exécuter .

Voyez que nous avons obtenu le même résultat.

5. ajouter une nouvelle ligne dans la macro en Excel VBA

Dans les méthodes précédentes, nous n'avons pas cassé la ligne dans le code. Ici, nous allons casser et ajouter des lignes dans les codes.

Des pas :

  • Tout d'abord, suivez les les deux premières étapes de la première méthode pour insérer un module dans le VBA
  • Suivant, écrire les éléments suivants codes en elle. 
 Sub NewLine_within_Macro() MsgBox "Hello !" & ; vbCrLf & ; vbCrLf & ; _ "Welcome to ExcelWIKI" End Sub

  • Plus tard, suivez le quatrième étape de la première méthode pour ouvrir le Boîte de dialogue Macro .
  • Ensuite, il suffit de sélectionner le Nom de la macro et appuyez sur Exécuter .

Maintenant, voyez, que macro a ajout d'une nouvelle ligne en gardant une ligne d'écart entre les lignes.

Lire la suite : Comment faire un saut de ligne dans Excel (4 façons)

6. Embed VBA pour ajouter de nouvelles lignes dans MsgBox en utilisant un bouton

Dans notre toute dernière méthode, nous allons effectuer la tâche d'une manière un peu différente, en définissant un fichier bouton pour ajouter des lignes dans MsgBox .

6.1 Bouton pour une seule ligne

Tout d'abord, nous allons créer un bouton pour ajouter une seule ligne. Pour cela, j'ai créé un ensemble de données qui représente trois cellules à saisir. Nom de famille , Adresse et Numéro de téléphone Quand nous cliquerons sur le bouton bouton il vérifiera les cellules et si obtient une cellule vide alors sera afficher le message pour cette cellule.

  • Cliquez sur comme suit : Développeur ➤ Insertion et ensuite sélectionnez le site boîte rectangulaire de la Section Contrôles du formulaire .

  • Peu après, vous recevrez un signe plus dans votre curseur, Cliquez à gauche sur votre souris et draguer sur le feuille pour définir le taille du bouton .

  • Puis Cliquez à droite sur votre souris sur le bouton et sélectionnez Modifier le texte de la menu contextuel pour définir le nom du bouton .

  • Type le site Nom et cliquez n'importe où sur la feuille.

  • Encore une fois Cliquez à droite sur votre souris sur le bouton et sélectionnez Attribuer une macro de la menu contextuel pour définir un Macro .

  • A ce moment, donnez un Nom de la macro et appuyez sur Nouveau .

  • Puis type les éléments suivants codes - 
 Private Sub SingleLine_Button() Dim WS As Worksheet Set WS = Sheets("Single Line") If WS.Range("C4").Value = "" Then MsgBox "Please Insert Last Name !" End If WS.Range("C5").Value = "" Then MsgBox "Please Insert Address !" End If WS.Range("C6").Value = "" Then MsgBox "Please Insert Phone Number !" End If End Sub

Découpage du code

  • D'abord, j'ai créé un Sous-procédure SingleLine_Button .
  • Puis on déclare une variable WS comme Feuille de travail .
  • Ensuite, j'ai utilisé trois Déclarations IF pour vérifier les cellules, si la cellule est remplie de valeur alors elle l'ignorer et si obtient une cellule vide montrera alors le message correspondant par le biais de MsgBox .
  • Plus tard, juste revenir en arrière à votre feuille et cliquez sur le site bouton .

Comme le Nom de famille est vide, c'est pourquoi le message de notification s'affiche.

  • Appuyez sur OK et ensuite il vérifiera le deuxième champ.

Le deuxième le champ est vide aussi pour qu'il ajouté une nouvelle ligne pour le notifier .

Ici, j'ai rempli le premier champ et cliqué sur le bouton, et vous voyez qu'il a sauté ce champ et est passé au champ deuxième champ pour afficher le message.

6.2 Bouton pour les lignes multiples

En attribuant ce bouton, nous serons en mesure d'ajouter plusieurs lignes à la fois dans la boîte de message.

  • D'abord, suivez les 6 premières étapes de la section précédente pour ajouter un bouton et attribuer un macro .

  • Puis type les éléments suivants codes dans la macro- 
 Sub Multiple_Line_Button() Dim WS As Worksheet Set WS = Sheets("Multiple Line") Dim Last_Name, Address, Phone, Error_msg As String Last_Name = Len(WS.Range("C4") Address = Len(WS.Range("C5")) Phone = Len(WS.Range("C6")) If Last_Name = 0 Then Error_msg = "Please Insert Last Name !" End If Address = 0 Then Error_msg = Error_msg & ; vbNewLine & ; "Please Insert Address !" End If Phone = 0Then Error_msg = Error_msg & ; vbNewLine & ; "Please Insert Phone Number !" End If Error_msg "" Then MsgBox Error_msg, vbOKOnly, Title:="Important Caution !" Exit Sub End If End Sub

Découpage du code

  • Ici, j'ai créé un Sous-procédure Bouton_ligne_multiple .
  • Puis nous avons déclaré des variables WS Comme Feuille de travail et Nom_de_famille , Adresse , Téléphone , Erreur_msg Comme
  • Plus tard, utilisé Len et Gamme pour définir les champs.
  • Enfin, utilisé Si les déclarations pour vérifier si les champs sont vides ou non S'il est rempli, il sera ignoré et s'il ne l'est pas, les messages seront affichés. MsgBox .
  • Enfin, juste retourner à la feuille et cliquez sur le site bouton .

Et voir qu'elle montre trois lignes pour le trois champs comme ils le sont tous vide .

J'ai rempli le premier champ et maintenant voir, il est seulement montrer des messages pour le 2 champs suivants .

Lire la suite : Comment mettre plusieurs lignes dans une cellule Excel (2 façons simples)

Conclusion

J'espère que les procédures décrites ci-dessus seront suffisantes pour créer une nouvelle ligne dans MsgBox en utilisant Excel VBA. N'hésitez pas à poser vos questions dans la section des commentaires et à me faire part de vos réactions.

Post précédent Comment supprimer les espaces blancs dans Excel (6 méthodes simples)
Prochain article Comment compter le nombre de caractères d'une cellule dans Excel (6 méthodes les plus simples)

Hugh West est un formateur et analyste Excel très expérimenté avec plus de 10 ans d'expérience dans l'industrie. Il est titulaire d'un baccalauréat en comptabilité et finance et d'une maîtrise en administration des affaires. Hugh a une passion pour l'enseignement et a développé une approche pédagogique unique qui est facile à suivre et à comprendre. Sa connaissance approfondie d'Excel a aidé des milliers d'étudiants et de professionnels du monde entier à améliorer leurs compétences et à exceller dans leur carrière. Grâce à son blog, Hugh partage ses connaissances avec le monde, offrant des tutoriels Excel gratuits et une formation en ligne pour aider les particuliers et les entreprises à atteindre leur plein potentiel.