Inverser les chaînes avec Excel VBA

Nous examinerons un programme dans Excel VBA qui peut inverser les chaînes.

 Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes:

1. Premièrement, nous déclarons quatre variables. Une variable appelée texte de type String, une variable appelée renversetext également de type String, une variable appelée longueur de type Integer et une variable appelée i de type Integer.

Dim text As String, renversetext As String, length As Integer, i As Integer

Texte sombre sous forme de chaîne, texte inversé sous forme de chaîne, longueur sous forme d’entier, i sous forme d’entier

2. Nous initialisons deux variables. Nous utilisons la fonction InputBox pour obtenir une chaîne de texte de l’utilisateur. Nous utilisons la fonction Len dans Excel VBA pour obtenir la longueur d’une chaîne.

text = InputBox("Entrez le texte que vous souhaitez inverser ")
length = Len(texte)

3. Nous commençons une boucle For Next.

For i = 0 To length - 1

4. Voici maintenant l’astuce simple. Nous prenons le dernier caractère du texte et le plaçons à l’avant de Renversetext. Nous pouvons utiliser la fonction Mid dans Excel VBA pour extraire un caractère d’une chaîne. Nous utilisons l’opérateur & pour concaténer (joindre) deux chaînes.

renversetext = renversetext & Mid(text, (length - i), 1)

5. N’oubliez pas de fermer la boucle.

Next i

Exemple: text = “car”. La longueur du texte est 5. Pour i = 0 à 2, on extrait la sous-chaîne de texte à partir de la position longueur – i avec longueur 1. Ainsi, pour i = 0, Mid (texte, 3, 1) est égal à r. Nous plaçons r à la première position de reverseText. Pour i = 1, Mid (texte, 2, 1) est égal à a. Nous ajoutons un à reverseText qui devient ra. Pour i = 2, Mid (texte, 1, 1) est égal à C. Nous ajoutons C au texte inversé qui devient raC.

6. Enfin, nous affichons renversetext à l’aide d’une MsgBox.

msgbox renverseText

7. Testez le programme.

Résultat:

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x