Il est de bon ton de se souhaiter la bonne année. Mais vous, et vous seul, pourrez faire en sorte que cette année soit bonne, meilleure que celle qui vient de s'écouler. Apprenez à ne compter que sur vous, car personne n'est plus qualifié que vous-même pour bâtir, réparer ou améliorer votre propre vie. Personne ne fera les choses à votre place. D'ailleurs, tout ce que les autres peuvent faire, c'est souhaiter que vous le fassiez. Et ne croyez pas que tout ceux qui vous entourent vous apporteront des solutions : certains font juste partie de vos problèmes. Transformez vos résolutions en actes, et dans douze mois, retournez-vous et souriez-vous fièrement : C'était long. C'était difficile. Mais ça y est : 2017 était une bonne année, merci Moi.

Traitement des chaînes de caractères

Left et Right : Prendre les extrêmes d'une chaîne de caractères

Sub GaucheDroite()
  MsgBox Left("abcdef", 3)
  MsgBox Right("abcdef", 2)
End Sub

MID extrait des caractères au milieu d'une chaîne

Sub MilieuChaine()
  MsgBox Mid("abcde", 3, 2) ' renvoie cd
  MsgBox Mid("abcde", 3, 10) ' renvoie cde
  MsgBox Mid("abcde", 10, 3) ' renvoie une chaîne nulle
End Sub

InStr: Vérifie l 'occurence d'une chaîne dans une autre.

Sub FonctionInStr()
  ' Exemple 1 : X contiendra 2
  MsgBox InStr("abc", "b")
  ' Exemple 2 : X contiendra 0
  MsgBox InStr("abc", "B")
  ' Exemple 3 : X contiendra 2
  MsgBox InStr("abc", "bc")
  ' Si dans la section General/Declarations, on écrit Option Compare Text, on peut comparer avec succès les minuscules et les majuscules. Si par contre on écrit Option
  ' Compare Binary (option par défaut), les caractères ASCII sont purement comparés.
  ' Mais, on peut avoir Option Compare Binary, et malgré tout, exceptionnellement demander une comparaison de texte avec :
  MsgBox InStr(0, "abc", "B", 1)
End Sub

CHR : Renvoie la valeur ASCII d'un caractère

Sub FonctionChr()
  MsgBox Chr("a") ' renvoie 97 (code ASCII de a)
End Sub

LEN : Calcule la longueur d'une chaîne

Sub LongueurChaine()
  MsgBox Len("abc") ' renvoie 3 (lettres)
End Sub

UCase et LCase Transforment les minuscules en majuscules et vice versa

Sub MajusculeMinuscule()
  MsgBox UCase("textE") ' renvoie TEXTE
  MsgBox UCase("téxte") ' renvoie TÉXTE
  MsgBox LCase("TExte") ' renvoie texte
End Sub

VAL renvoie l'équivalent numérique d'une chaîne

Sub FonctionVal()
  MsgBox Val(" 21x") ' renvoie 21
  MsgBox Val("x21") ' renvoie 0
  MsgBox Val(21) ' donne une erreur (le paramètre doitêtre une chaîne de caractères)
End Sub