Comment utiliser l’instruction Mid dans VBA ?

L’instruction `Mid` en VBA (Visual Basic for Applications) est utilisée pour extraire une sous-chaîne d’une chaîne de caractères. Vous pouvez également utiliser `Mid` pour modifier une partie d’une chaîne. Voici comment utiliser `Mid` dans ces deux contextes :

Extraire une sous-chaîne

Pour extraire une sous-chaîne, vous utilisez `Mid` avec la syntaxe suivante :

Mid(string, start, [length])
  • `string` : La chaîne de caractères d’origine dont vous voulez extraire une sous-chaîne.
  • `start` : La position de départ (1-indexée) dans la chaîne d’origine.
  • `length` (facultatif) : Le nombre de caractères à extraire. Si omis, `Mid` renvoie tous les caractères de la position de départ jusqu’à la fin de la chaîne.

Exemple :

Sub ExampleExtract()
    Dim originalString As String
    Dim extractedString As String
    
    originalString = "Bonjour le monde"
    extractedString = Mid(originalString, 9, 2) ' Extrait "le"
    
    MsgBox extractedString
End Sub

Modifier une partie d’une chaîne

Pour utiliser `Mid` pour modifier une chaîne, vous pouvez affecter une valeur à `Mid` de la chaîne :

Mid(string, start, [length]) = stringToInsert
  • `stringToInsert` : La nouvelle chaîne que vous souhaitez insérer à la place des caractères dans `string`.

Exemple :

Sub ExampleModify()
    Dim originalString As String
    
    originalString = "Bonjour le monde"
    
    ' Remplacer "le" par "tout le"
    Mid(originalString, 9, 2) = "tout le"
    
    MsgBox originalString ' Affiche "Bonjour tout le monde"
End Sub

Considerations

  • Assurez-vous que la position de départ et la longueur sont dans les limites de la chaîne, sinon une erreur d’exécution se produira.
  • `Mid` est sensible à la casse lorsque vous comparez ou manipulez des chaînes de caractères.

En utilisant l’instruction `Mid`, vous pouvez efficacement extraire et manipuler des segments de chaînes dans vos projets VBA.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project