Comment inverser une chaîne dans VBA (avec exemple)

Vous pouvez utiliser la fonction StrReverse dans VBA pour inverser une chaîne de texte.

Voici une manière courante d’utiliser cette fonction dans la pratique :

Sub ReverseStrings()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

Cet exemple particulier inverse chaque chaîne de la plage A2:A11 et affiche les résultats dans la plage B2:B11 .

L’exemple suivant montre comment utiliser cette syntaxe dans la pratique.

Exemple : Comment inverser des chaînes à l’aide de VBA

Supposons que nous ayons la colonne suivante de noms d’équipes de basket-ball dans Excel :

Supposons que nous souhaitions inverser le nom de chaque équipe et afficher les résultats dans la cellule correspondante de la colonne B.

Nous pouvons créer la macro suivante pour ce faire :

Sub ReverseStrings()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

La colonne B affiche chaque nom d’équipe de la colonne A à l’envers.

Par exemple:

• Mavs devient svaM
• Les Spurs deviennent des SrupS
• Rockets devient stekcoR
• Kings devient sgniK

Et ainsi de suite.

Notez que la fonction StrReverse fonctionne également avec les nombres.

Par exemple, appliquer la fonction StrReverse au nombre 1234 renverrait 4321 .

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

VBA : comment vérifier si une chaîne contient une autre chaîne
VBA : Comment compter le nombre de lignes dans la plage
VBA : Comment écrire les fonctions COUNTIF et COUNTIFS