Utiliser les fonctions left, right, mid et len dans Visual Basic pour Applications dans Excel

Résumé

Cet article contient des exemples de manipulation de chaînes de texte à l’aide des fonctions Left, Right, Mid et Len dans Microsoft Visual Basic pour Applications dans Microsoft Excel.

Informations supplémentaires

Microsoft fournit des exemples de programmation à titre d’illustration uniquement, sans garantie expresse ou implicite. Cela inclut, sans y être limité, les garanties implicites de commercialisation et d’adaptation à un but en particulier. Cet article considère que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les ingénieurs du support Microsoft peuvent expliquer la fonctionnalité d’une procédure en particulier. Toutefois, ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques.

La procédure suivante illustre l’utilisation des fonctions Left, Right, Mid et Len de Microsoft Visual Basic pour Applications dans Microsoft Excel :

1. Créez un classeur Excel vide.

2. Ouvrez le Rédacteur Visual Basic en appuyant sur Alt+F11.

3. Dans le menu Insertion, cliquez sur Module.

4. Tapez la macro suivante dans la nouvelle feuille de module.

         Sub String_Len()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             ' Displays length of string.
             MsgBox Prompt:="The length of the string is " & _
                 Len(MyString) & " characters."
         End Sub
   
         Sub String_Left()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             StringLen = Len(MyString)
             Pos = InputBox("Please enter a number from 1 to " & StringLen)
             ' Takes the left number of specified characters.
             Result = Left(MyString, Pos)
             ' Displays the result.
             MsgBox Prompt:="The left " & Pos & " characters of """ & _
                 MyString & """ are: " & _
                 Chr(13) & Result
         End Sub
   
         Sub String_Right()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             StringLen = Len(MyString)
             Pos = InputBox("Please enter a number from 1 to " & StringLen)
             ' Takes the right number of specified digits.
             Result = Right(MyString, Pos)
             ' Displays the result.
             MsgBox Prompt:="The right " & Pos & " characters of """ & _
                 MyString & """ are: " & _
                 Chr(13) & Result
         End Sub
   
         Sub String_Mid()
             ' Sets MyString.
             MyString = InputBox("Enter some text.")
             ' Sets starting position.
             StartPos = InputBox _
                 ("Give me a starting position (1 to " _
                 & Len(MyString) & ")")
             ' Determines length of string of text.
             StringLen = Len(MyString) - StartPos + 1
             ' Sets number of characters.
             NumChars = InputBox _
                 ("How many characters would you like? (From 1 to " & _
                 StringLen & ")")
             MsgBox prompt:="The result is: " & _
                 Mid(MyString, StartPos, NumChars)
         End Sub
   
   

Pour voir un exemple des fonctions Left, Right, Mid et Len, utilisez l’une des procédures suivantes, en fonction de la version d’Excel que vous exécutez :

• Dans Microsoft Office Excel 2007, cliquez sur l’onglet Développeur , sur Macros dans le groupe Code , sélectionnez la macro pour la fonction souhaitée, puis cliquez sur Exécuter
• Dans Microsoft Office Excel 2003 et dans les versions antérieures d’Excel, cliquez sur Macros dans le menu Outils , sélectionnez la macro de la fonction souhaitée, puis cliquez sur Exécuter.

References

Pour plus d’informations sur ces fonctions, tapez le texte suivant dans une feuille de module :

• NbCar
• Droite
• Gauche
• Mid

Mettez en surbrillance la fonction sur laquelle vous souhaitez obtenir plus d’informations, puis appuyez sur F1.