Inverser une chaîne de texte avec VBA
La routine VBA ci-dessous permet à l'utilisateur de saisir une chaîne, puis la même chaîne est présentée à l'envers. Par exemple « lundi » devient « yadnoM » :
| 123456789101112131415161718192021222324252627282930313233343536 | Option ExplicitePrivate Sub CommandButton1_Click()'Définir les variablesDim Original_String en tant que chaîneDim Reversed_String en tant que chaîneDim Next_Char en tant que chaîneDim Longueur en tant qu'entierDim Pos en tant qu'entier'Obtenez la chaîne d'origineOriginal_String = InputBox("Veuillez saisir la chaîne d'origine : ")'Trouve la longueur révisée de la chaîneLongueur = Len(Original_String)'Configurer la chaîne inverséeChaîne_versée = ""'Progresse dans la chaîne caractère par caractère'En partant du dernier caractère et en allant vers le premier caractèrePour Pos = Longueur à 1 pas -1Next_Char = Mid(Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharPoste suivantMsgBox "La chaîne inversée est " & Reversed_StringFin du sous-marin |
Les principales caractéristiques du code sont :-
• Il a besoin d'un bouton de commande pour activer le code - sur l'événement de clic
• Les variables suivantes sont configurées :-
o Original_String - la chaîne d'origine qui sera inversée ("lundi")
o Reversed_String - la chaîne inversée ("yadnoM")
o Next_Char - le prochain caractère de la chaîne qui sera inversé
o Longueur - la longueur de la chaîne
o Pos - la position actuelle dans la chaîne
• Un InputBox pour capturer la chaîne. Ceci est stocké dans la variable "Original String"
• La longueur de la chaîne est calculée à l'aide de la fonction LEN et stockée dans la variable Longueur
• Une boucle FOR… NEXT est configurée pour parcourir la chaîne en commençant par le dernier caractère et en remontant un caractère à la fois
• Le caractère suivant dans la chaîne d'origine (en travaillant en arrière) est ensuite ajouté à la chaîne inversée
• Cette boucle est itérée jusqu'à ce que nous ayons parcouru toute la longueur de la chaîne
• La chaîne inversée est affichée dans un MsgBox.
Téléchargez le fichier Excel ici
