Comment des fonctions utilisation gauche, à droite, milieu et len dans Visual Basic pour applications dans Excel

Traductions disponibles Traductions disponibles
Numéro d'article: 213646 - Voir les produits auxquels s'applique cet article
Pour obtenir Microsoft Excel 97 ou version antérieure et Microsoft Excel 98 Édition Macintosh et version antérieure de cet article, consultez 141287.
Agrandir tout | Réduire tout

Résumé

Cet article contient des exemples de la manipulation des chaînes de texte à l'aide à gauche, droite, Mid et fonctions Len dans Microsoft Visual Basic pour applications dans Microsoft Excel.

Plus d'informations

Microsoft fournit des exemples de programmation à des fins d'illustration uniquement, sans garantie expresse ou implicite. Cela inclut, mais n'est pas limité à, les garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du support technique Microsoft peuvent vous aider à comprendre la fonctionnalité d'une procédure particulière. 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.

Procédure illustre l'utilisation des fonctions Left, Right, Mid et Len de Microsoft Visual Basic pour applications dans Microsoft Excel :
  1. Créer un classeur Excel vide.
  2. Ouvrez Visual Basic Editor 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 de la gauche, droite, Mid et fonctions Len, appliquez l'une des procédures suivantes, selon la version d'Excel que vous exécutez :
  • Dans Microsoft Office Excel 2007, cliquez sur l'onglet développeur, cliquez sur macros dans le groupe code, sélectionnez la macro pour la fonction que vous souhaitez et cliquez sur exécuter
  • Dans Microsoft Office Excel 2003 et dans les versions antérieures d'Excel, cliquez sur macro dans le menu Outils, sélectionnez la macro pour la fonction souhaitée et cliquez sur exécuter.

Références

Pour plus d'informations sur ces fonctions, tapez le texte suivant sur une feuille de module :
Len
Droite
Gauche
Milieu
Mettez en surbrillance de la fonction sur laquelle plus d'informations, puis appuyez sur F1.

Propriétés

Numéro d'article: 213646 - Dernière mise à jour: mardi 23 janvier 2007 - Version: 5.2
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002
  • Microsoft Excel 2000 Standard
Mots-clés : 
kbmt kbmacro kbvba kbexpertiseinter kbdtacode kbhowto kbprogramming KB213646 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 213646
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com