MsgBox Len("Developpez") 'renvoie 10

'Renvoie les 3 premiers caractères d'un texte
MsgBox Left("Developpez", 3) 'renvoie "Dev"

'Renvoie les 3 derniers caractères d'un texte
MsgBox Right("Developpez", 3) ' renvoie "pez"

'5 est la position du caractère qui marque le début de la partie à extraire
'et 2 correspond au nombre de caractères à renvoyer)
MsgBox Mid("Vendredi", 5, 2) ' renvoie "re"

MsgBox Mid("Vendredi", 5) 'Renvoie "redi"

'Renvoie la position de la première occurrence d'une chaîne ("e")
MsgBox InStr("Developpez", "e") 'renvoie 2

				
MsgBox InStr(1, "Developpez", "e") 'renvoie 2

Dim x As Integer
x = InStr(1, "Developpez", "e") + 1
MsgBox InStr(x, "Developpez", "e") 'renvoie 4

MsgBox InStr(1, "Developpez", "Z", 0) 'renvoie 0
MsgBox InStr(1, "Developpez", "z", 0) 'renvoie 10

				
MsgBox InStr(1, "Developpez", "z", 1) 'renvoie 10
MsgBox InStr(1, "Developpez", "Z", 1) 'renvoie 10

	
Sub RechercheMultiple()
    Dim Cible As String
    
    Cible = "engrenage,reducteur,courroie"
    
    If InStr(Cible, Range("A1")) = 0 Then
        MsgBox "Non"
    Else
        MsgBox "Oui"
    End If
End Sub

	
MsgBox StrReverse("Developpez")

'Contrôler si un mot est un palindrome( qui s'épelle de la même façon dans les deux sens) 
Dim leMot As String
leMot = "radar"
If leMot = StrReverse(leMot) Then MsgBox "Il s'agit d'un palindrome"

MsgBox UCase("Developpez")

MsgBox LCase("Developpez")

'Extraire les données séparées par un espace dans une chaine de caractères
Sub extractionMots()
    Dim Tableau() As String
    Dim i As Integer
    
    'découpe la chaine en fonction des espaces " "
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split("Bienvenue sur le site Developpez.com", " ")
    
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
    	'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
        Debug.Print Tableau(i)
    Next i
End Sub

'Remplace les points virgules par des points dans la variable monText
Sub remplacerCaracteres()
    Dim monText As String
    
    monText = Replace(monText, ";", ".")
End Sub

'Remplace les points virgules par des points dans la plage de cellules sélectionnée
Sub remplacerCaracteres()
    Dim Cell As Variant
    
    For Each Cell In Selection
        Cell.Value = Replace(Cell.Value, ";", ".")
    Next Cell
End Sub

'Supprimer tous les espaces dans la colonne A 
Sheets("Feuil1").Columns(1).Replace " ", ""

Sub ModifChaine()
    Dim St As String
     
    St = "deceloppez.com"
    Debug.Print St
     
    'Oups... une erreur de frappe sur 3° caractère...
    'Utilisons Mid pour le modifier
    Mid(St, 3, 1) = "v"
    Debug.Print St
End Sub

'Transformer une chaine en majuscules
MsgBox StrConv("Developpez", vbUpperCase)

    'Convertit une chaîne Unicode en une chaîne ANSI.
    Dim i As Long
    Dim x() As Byte
    
    x = StrConv("ABCDEFG", vbFromUnicode)
    
    For i = 0 To UBound(x)
        Debug.Print x(i)
    Next

Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange
    Cell.Value = Application.WorksheetFunction.Clean(Cell.Value)
Next

Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange
    Cell = Application.WorksheetFunction.Trim(Cell)
Next

Dim monText as String
    monText = Trim(monText) '- supression des espaces à gauche et à droite
    monText = LTrim(monText) '- supression des espaces à gauche
    monText = RTrim(monText) '- supression des espaces à droite

Sub controleDictionnaireOffice()
    Dim Valeur As Boolean
    
    Valeur = Application.CheckSpelling("ordinateur", , True)
    MsgBox Valeur
End Sub

Dim Chaine As String
Chaine = " 21ieme siècle"
MsgBox Val(Chaine) ' renvoie 21

Chaine = " siècle 21"
MsgBox Val(Chaine) ' renvoie 0

Chaine = "123,456"
MsgBox Val(Chaine) ' renvoie 123

Chaine = "123.456"
MsgBox Val(Chaine) ' renvoie 123.456

Sub extraireValeursNumeriques_DansChaine()
    Dim i As Byte, Nb As Byte
    Dim Cible As String, Resultat As String
    Dim Nombre As Double
    
    Cible = "12,3azerty23,5 67"
    'Pour que fonction Val puisse reconnaitre les décimales: Remplacement des
    'virgules par des points
    Cible = Replace(Cible, ",", ".")
    'Pour gérer deux nombres qui se suivent: remplacement des espaces
    'par un caractère Alpha
    Cible = Replace(Cible, " ", "x")
    
    For i = 1 To Len(Cible)
        If IsNumeric(Mid(Cible, i, 1)) Then
        Nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
        Nb = Nb + 1
        Resultat = Resultat & Nombre & vbLf
        i = i + Len(Str(Nombre)) - 1
        End If
    Next
    
    MsgBox "Il y a " & Nb & " valeurs numériques dans la cellule " & vbLf & Resultat
End Sub

Dim x As Boolean
x = "A" > "a"
MsgBox x 'renvoie Faux

x = "A" < "a"
MsgBox x 'renvoie Vrai

x = "a" < "b"
MsgBox x 'renvoie Vrai

x = "b" < "a"
MsgBox x 'renvoie Faux

'Exemples:
'A < B < E < Z < a < b < e < z < À < Ê < Ø < à < ê < ø

'Vérifie si la chaîne DVP existe dans la cellule A1 
If Range("A1").Value Like "*DVP*" Then MsgBox "Le mot ""DVP"" existe dans la cellule A1."

'Vérifie si la chaîne DVP existe dans la chaîne monText 
If monText Like "*DVP*" Then MsgBox "Le mot ""DVP"" existe dans la chaîne monText."

If Range("A1") Like "[A-Z]###" Then MsgBox "OK"

If monText Like "[A-Z]###" Then MsgBox "OK"

MsgBox Asc("a") 'Renvoie 97
MsgBox Asc("A") 'renvoie 65

MsgBox Chr(97) 'renvoie a
MsgBox Chr(65) 'renvoie A

'Remplace le caractère guillemet " par un point d'exclamation dans une chaine
Dim strVariable As String
strVariable = Range("A1")
MsgBox Replace(strVariable, Chr(34), "!")

    '------- procedure pour scinder la requete -------------
    'La chaine sera scindée si sa longueur est supérieure à 80 caractères 

	Cible = Requete
        Requete = ""
        
        For i = 1 To Len(Cible)
            'Recherche le premier espace après le 80ème caractère        
            X = InStr(80, Cible, " ")
            
            If X = 0 Then
                Chaine = Cible
                Requete = Requete & """" & Chaine & """"
                Exit For
            End If
            
            Chaine = Mid(Cible, 1, X)
            Requete = Requete & """" & Chaine & """ & _" & vbCrLf
            Cible = Mid(Cible, Len(Chaine) + 1)
        Next
    
    Debug.Print Requete

    Dim DataString(3) As String
    Dim InString() As String
    Dim i As Integer
 
    'Remplissage du tableau qui va être testé
    DataString(0) = "chaine 1"
    DataString(1) = "string 2"
    DataString(2) = "chaine 3"
    DataString(3) = "string 4"
    
    '"DataString" est le tableau dans lequel doit être effectué la recherche.
    '"str" est la chaîne à rechercher.
    'La fonction Filter renvoie le tableau "InString" contenant les éléments
    'qui répondent aux critères de la recherche.
    InString = Filter(DataString, "str", True)
    
    'Boucle sur le tableau afin de visualiser les éléments
    'qui répondent aux critères de recherche.
    For i = 0 To UBound(InString)
        Debug.Print InString(i)
    Next i

Dim Tableau(2) As String

Tableau(0) = "Chaine01"
Tableau(1) = "Chaine02"
Tableau(2) = "Chaine03"

'Regroupe les chaînes du tableau, séparés par un point virgule ";"
MsgBox Join(Tableau, ";")

'Regroupe les chaînes du tableau sans séparateur
MsgBox Join(Tableau, "")

'Les éléments sont séparés par un espace si l'argument Delimiter n'est
'pas spécifié.
MsgBox Join(Tableau)

'Regroupe les chaînes du tableau et ajout d'un saut de ligne
'entre chaque élément.
MsgBox Join(Tableau, vbLf)