VBA - Instr

La fonction InStr renvoie la première occurrence d'une chaîne dans une autre chaîne. La recherche s'effectue de la gauche vers la droite.

Syntaxe

InStr([start,]string1,string2[,compare])

Description des paramètres

• Start- Un paramètre facultatif. Spécifie la position de départ de la recherche. La recherche commence à la première position de la gauche vers la droite.

• String1- Un paramètre obligatoire. Chaîne à rechercher.

• String2- Un paramètre obligatoire. Chaîne dans laquelle String1 est recherché.

• Compare- Un paramètre facultatif. Spécifie la comparaison de chaînes à utiliser. Il peut prendre les valeurs mentionnées ci-dessous.

  • 0 = vbBinaryCompare - Effectue une comparaison binaire (par défaut)

  • 1 = vbTextCompare - Effectue une comparaison de texte

Exemple

Ajoutez un bouton et ajoutez la fonction suivante.

Private Sub Constant_demo_Click() 
   Dim Var As Variant 
   Var = "Microsoft VBScript" 
   MsgBox ("Line 1 : " & InStr(1, Var, "s")) 
   MsgBox ("Line 2 : " & InStr(7, Var, "s")) 
   MsgBox ("Line 3 : " & InStr(1, Var, "f", 1)) 
   MsgBox ("Line 4 : " & InStr(1, Var, "t", 0)) 
   MsgBox ("Line 5 : " & InStr(1, Var, "i")) 
   MsgBox ("Line 6 : " & InStr(7, Var, "i")) 
   MsgBox ("Line 7 : " & InStr(Var, "VB")) 
End Sub

Lorsque vous exécutez la fonction ci-dessus, elle produit la sortie suivante.

Line 1 : 6
Line 2 : 0
Line 3 : 8
Line 4 : 9
Line 5 : 2
Line 6 : 16
Line 7 : 11