VBA Traitements de chaines de caractères

• extraction d’une partie d’une chaîne
• comparaison de chaînes
• conversion de nombres en chaîne
• mise en forme d’une date pour inclure le jour de la semaine
• recherche d’un caractère dans une chaîne
• suppression des blancs
• analyse vers un tableau

Inchangé :

• chaîne & chaîne donne chaîne
• chaîne + chaîne donne chaîne
• chaîne & nombre donne chaîne (le nombre est converti)
• chaîne + nombre donne message d’erreur
• nombre & nombre donne message d’erreur
• nombre + nombre donne nombre

• Aligne à gauche une chaîne à l’intérieur d’une variable chaîne.

• Remplace un nombre spécifié de caractères dans une variable chaîne par des caractères extraits d’une autre chaîne.

• Aligne à droite une chaîne à l’intérieur d’une variable chaîne.

Ch1   =   "123456789"
Ch2   =   "wxyz"
Ch3   =   "abcdefghijklmn"

• met la chaîne2 à gauche dans chaîne1. Si chaîne2 est plus courte que chaîne1, on complète par des espaces, si elle est plus longue, on ne prend que le nombre de caractères de chaîne1,
• Len (<chaînel>). Avec les initialisations ci-dessus :
• Lset Ch1 = Ch2 donne Ch1 = « wxyz…. »
• Lset Ch1 = Ch3 donne Ch1 = « abcdefghi »

• met la chaîne2 à droite dans chaîne1. Si la chaîne2 est plus courte que la chaîne1, on complète par des espaces ; si elle est plus longue, on ne prend que le nombre de caractères de chaîne1, Len (<chaînel>), mais à partir de la gauche, donc le résultat est le même que LSet. Avec les initialisations ci-dessus :

RSet   Chl   =   Ch2   donne Chl  = "□□□□□wxyz"
RSet   Chl   =   Ch3   donne Chl  = "abcdefghi"

• remplace dans chaîne1, à partir de la position départ, longueur caractères pris dans chaîne2. Si <longueur> n’est pas fourni, on considère toute la chaîne2. Si le nombre de caractères à installer dépasse la taille disponible, on ne prend que ce qu’il faut. Avec les initialisations ci-dessus :
• Mid ( Ch1, 3) = Ch2 donne Ch1 = « 12wxyz789 »
• Mid ( Ch1, 3) = Ch3 donne Ch1 = « 12abcdefg »
• Mid(Chl,3,2) = Ch3 donne Ch1 = « 12ab56789 »
• Mid ( Ch1, 1) = Ch2 donne Ch1 = « wxyz56789 ».
• C’est cette solution et non Lset qui convient pour installer une sous-chaîne à gauche en gardant les caractères de droite.

• Fournit la longueur ( = nombre de caractères) de la chaîne. Len(11 Bonjour ») vaut 7. Len est de type Long car les chaînes peuvent dépasser 32 000 caractères.

• fournit les <n> caractères les plus à gauche de la chaîne. Left(« Bonjour « ,3) donne « Bon ». Si
  <n> est supérieur à la longueur, on obtient toute la chaîne. Si <n> vaut 0, on obtient la chaîne vide.

• fournit les <n> caractères les plus à droite de la chaîne. Right(« Bonjour »,4) donne « jour ». Si
  <n> est supérieur à la longueur, on obtient toute la chaîne. Si <n> vaut 0, on obtient la chaîne vide.

• fournit les n caractères extraits de la chaîne à partir de la position d.Mid(« Bonjour »,4,2) donne « jo ». Si <n> n’est pas spécifié ou est supérieur au nombre de caractères restants après d, on obtient toute la chaîne restante. Si <n> vaut 0, on obtient la chaîne vide.
• Dans toutes ces questions, les positions de caractères sont comptées de gauche à droite à partir de 1.Mid(Texte,I,1) est très importante : c’est le 1° caractère de Texte, ce qui permet d’analyser une chaîne caractère par caractère.

• indique si la sous-chaîne se trouve dans la chaîne; si non, le résultat est 0, si oui le résultat est la position où commence la première concordance. <d> est la position où commencer la recherche, 1 par défaut.
• Instr(« Bonjour », »jour ») donne 4;
• InStr (« Bonjour », »Jour ») donne 0 (à cause du J majuscule);
• InStr (« ABRACADABRA », »BRA » ) donne 2; InStr(3, »ABRACADABRA », »BRA ») donne 9.

• agit comme InStr sauf que la recherche se fait en d’arrière en avant. Si Rep est le chemin d’accès à un dossier, Left(Rep, InStrRev (Rep, »\ »)-1) fournit le dossier père.

• est vraie si la chaîne peut représenter une date. IsDate(« 10/10/04 ») est vraie.

• est vraie si la chaîne peut représenter un nombre. IsNumeric(« 1000 Euros ») est fausse mais IsNumeric (« 1000 € ») est vraie car l’argument s’interprète comme un format monétaire.

• renvoie la même chaîne, mais tout en minuscules. Seules les lettres sont transformées.
• LCase(« Bonjour ») vaut « bonjour ». If x = LCase (x) … teste si x ne contient pas de lettres ou que des minuscules.

• renvoie la même chaîne, mais tout en majuscules. Seules les lettres sont transformées.
• UCase (« Bonjour ») vaut « BONJOUR ». If x = UCase(x) … teste si x ne contient pas de lettres ou que des majuscules.

• Ces fonctions renvoient une copie de leur argument débarrassé des espaces à gauche (LTrim), à droite (RTrim) ou les deux (Trim). Les espaces internes restent.
• LTrim(« □□□□□ab□cd□□□□□ ») donne « ab□cd□□□□□ »
• RTrim(« □□□□□ab□cd□□□□□ ») donne «  »□□□□□ab□cd »
• Trim(«  »□□□□□ab□cd□□□□□ ») donne « ab□cd »

• Les arguments sont nommés. On remplace dans expression les occurrences de find par replace. Si start est présent, on commence à la position qu’il indique, s’il est absent, on commence au début. Si count est présent, on fait count remplacements, s’il est absent, on fait tous les remplacements possibles. compare définit le mode de comparaison :
• vbUseCompareOption : obéit à Option Compare

• La valeur renvoyée par la fonction est Mid (express ion, s tart) ; si s tart est absent, c’est la valeur de expression après transformation.

• Asc(<chaîne>)
• renvoie le code (valeur numérique de la représentation binaire interne) du premier caractère de la chaîne.
• On ne l’utilise donc pratiquement qu’avec des chaînes de 1 seul caractère. Asc(« A ») vaut 65. Asc(« a ») vaut 97. Asc (« o ») vaut 48.
• Chr(<n>)
• renvoie la chaîne de 1 caractère dont le code est n. C’est le moyen d’obtenir des caractères
• impossibles à obtenir au clavier. Chr(65) est « A » ; Chr(32) est l’espace ; Chr(13) est le retour chariot, etc.

• Val(<<haîne>)
• renvoie le nombre représenté par la chaîne. Il faut que la chaîne représente un nombre. Si vous connaissez le type du nombre, utilisez plutôt la fonction de conversion vers ce type CBool, CByte, CCur, CDate, CDec, CDbl, Cint, CLng, CSng.
• Str, CStr
• Ces fonctions font la conversion inverse. La différence est pour les nombres positifs : Str met un espace en tête (pour le signe), CStr n’en met pas. Str ( -2) et cstr ( -2) donnent
  « -2 »; Str(2) donne « □2 »; cstr (2) donne « 2 ». Pour désigner une TextBox de BDi dont le numéro est calculé, on écrit : Controls (TextBox »+CStr(I)).
• Format
• contrôle la chaîne convertie d’un nombre conformément à une chaîne de format identique (mais en anglais) à celle qu’on fournit dans un Format personnalisé d’Excel.
• Format (0.12345, »##0,00″) donne « □□0,12 »; Format (Date, « dd/mm/yyyy ») donne par exemple 11/10/2004.
• Oct et Hex
• traduisent respectivement leur argument en octal et en hexadécimal. Hex(7860) donne « 1EB4 ».

• La concaténation des chaînes est réalisée à l’aide des opérateurs & et +. Il est cependant conseillé de privilégier l’opérateur &, qui ne fonctionne qu’avec les chaînes, et de conserver l’opérateur + pour les additions. Votre code sera ainsi sans ambiguïté.
• Vous pouvez concaténer toute expression qui renvoie une chaîne de caractères. Il peut s’agir d’une variable de type String comme d’une fonction renvoyant une chaîne, ou encore d’une chaîne de caractères entourée de guillemets.

• Si vous souhaitez créer une seule chaîne de caractères à partir des différentes valeurs d’une variable de matrice (ou variable tableau), utilisez la fonction Join selon la syntaxe suivante : Join(SourceArray, Delimiter)
• où l’argument nommé SourceArray est la variable de matrice dont on souhaite réunir les données en une chaîne,
• et Delimiter (facultatif) la chaîne de caractères qui sera utilisée comme séparateur entre les différentes données extraites de la variable. Si Delimiter est omis, les éléments du tableau sont concaténés sans séparateur.

• Dans l’exemple suivant, les jours de la semaine sont stockés dans le tableau Jours-Semaine. La boîte de dialogue représentée à la figure suivante est ensuite affichée.



• Notez qu’on utilise une virgule suivie d’un espace comme séparateur, et que l’on ajoute un point à la fi de la chaîne.

Option Explicit
Sub ConcatenerUnTableau()
Dim JoursSemaine(1 To 7)
Dim n As Byte
For n = 1 To 7
JoursSemaine(n) = WeekdayName(Weekday:=n, abbreviate:=False, _
firstdayofweek:=vbMonday)
Next n
MsgBox "Les jours de la semaine sont : " & Join(JoursSemaine, ", ") & "."
End Sub

• Compter le nombre de caractères dans une cellule Excel
• La fonction NBCAR, permet de calculer le nombre de caractères dans Excel, peut être utilisée très facilement. Sa syntaxe très simple est la suivante :=NBCAR(référence de la cellule)

• Compter le nombre de mots, séparés par un espace dans une cellule Excel
• Essayez de faire l’exercice de votre côté avant de Cliquer ici !