VBA – Boucle dans une Chaîne de Texte

Written by

Editorial Team

Reviewed by

Steve Rynearson

Translated by

David Gagnon

Last updated on août 22, 2022

Ce tutoriel montre comment boucler sur une chaîne de caractères à l’aide de VBA.

Vous pouvez effectuer des opérations logiques sur les caractères individuels d’une chaîne de caractères ou les retourner en VBA en bouclant la chaîne

Boucler sur Chaque Caractère d’une Chaîne

Voici un exemple de boucle dans une chaîne de caractères à l’aide d’une boucle For…Next. Chaque caractère est renvoyé dans une boîte de dialogue.

Sub BoucleDansChaine()

Dim Compteur As Integer
Dim MaChaine As String

MaChaine = "AutomateExcel" 'Définir une chaîne de caractères

For Compteur = 1 To Len(MaChaine)
    'faire quelque chose à chaque caractère de la chaîne
    'ici, nous allons envoyer chaque caractère dans une boite de message
    MsgBox Mid(MaChaine, Compteur, 1)
Next Compteur

End Sub

La Fonction Len compte le nombre total de caractères dans la chaîne. Ainsi, l’expression

For Counter = 1 to Len(MaChaine)

va parcourir chaque lettre de la chaîne.

Boucler sur Chaque Caractère d’une Chaîne – Alternative

Lire Chaque Caractère d’une Chaîne de Caractères
Cet exemple lit chaque caractère d’une chaîne de caractères de gauche à droite et renvoie le résultat dans une boîte de message. Il utilise la fonction Fonction Mid.

Sub BoucleDansChaine2()

Dim ExaminerCeci As String
Dim Compteur As Integer

'utilisez votre propre texte ici
ExaminerCeci = "AutomateExcel.com"

For Compteur = 1 To Len(ExaminerCeci)
    MsgBox Mid(ExaminerCeci, Compteur, 1)
Next Compteur

End Sub

Lire Chaque Mot d’une Chaîne de Caractères

Cet exemple lit chaque mot d’une chaîne de caractères de gauche à droite et renvoie le résultat dans une boîte de message. Il utilise la fonction Fonction Split.

Sub BoucleDansChaineMots()

Dim ExaminerCeci As String
Dim Compteur As Integer
Dim ChaineDivisée As Variant

'utilisez votre propre texte ici
ExaminerCeci = "J'aime Bien AutomateExcel.com"

ChaineDivisée = Split(ExaminerCeci, " ")

For Compteur = 0 To UBound(ChaineDivisée)
    MsgBox ChaineDivisée(Compteur)
Next Compteur

End Sub

La Programmation VBA Simplifiée

Ne cherchez plus de code VBA en ligne. Découvrez AutoMacro – un générateur de code VBA qui permet aux débutants de créer leurs propres procédures, avec des connaissances minimales en programmation et de nombreuses fonctions permettant à tous les utilisateurs de gagner du temps!

alt text

 

En savoir plus !

 

<<Retour aux exemples VBA

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users! vba save as


Learn More!
vba-free-addin

Module Complémentaire d'Exemples de Code VBA

Accédez facilement à tous les exemples disponibles sur le site.

Naviguez simplement dans le menu, cliquez, et le code sera inséré directement dans votre module. Module complémentaire .xlam.

(Aucune installation requise!)

Téléchargement gratuit

Retour aux exemples de code VBA