{"id":6638,"date":"2016-08-28T20:11:02","date_gmt":"2016-08-28T18:11:02","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=6638"},"modified":"2016-08-28T20:11:02","modified_gmt":"2016-08-28T18:11:02","slug":"excel-vba-convertir-une-chaine-de-caracteres-en-une-variable-tableau-avec-la-fonction-split","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=6638","title":{"rendered":"EXCEL & VBA : convertir une cha\u00eene de caract\u00e8res en une variable tableau avec la fonction Split"},"content":{"rendered":"

La fonction VBA\u00a0Split<\/em> convertit une cha\u00eene de caract\u00e8res\u00a0en une variable tableau<\/a> \u00e0 partir\u00a0d’un s\u00e9parateur. Cette fonction r\u00e9alise la m\u00eame t\u00e2che que le menu EXCEL\u00a0Donn\u00e9es \/ Convertir \/ Format d\u00e9limit\u00e9<\/a>.<\/p>\n

Syntaxe :<\/em><\/p>\n

VariableTableau = Split(Cha\u00eene, S\u00e9parateur)<\/pre>\n
Exemple :<\/em><\/p>\n
Const AdresseChoix = \"B16;B18;B20;B22;B24;B26;B28;B30;B32;B34;B38;B42;B44;B46;B48\"\r\nDim TableAdresseChoix() As String\r\n\r\nSub LectureTable()\r\n    TableAdresseChoix = Split(AdresseChoix, \";\")\r\nEnd Sub<\/pre>\n
Dans cet exemple, la variable AdresseChoix<\/em> contient une cha\u00eene de caract\u00e8res constitu\u00e9es d’adresses de cellules d’un tableau Excel, chacune s\u00e9par\u00e9e par un point virgule (s\u00e9parateur). Le s\u00e9parateur peut \u00eatre n’importe quel autre caract\u00e8re.<\/p>\n
Une fois la fonction Split<\/em> appliqu\u00e9e \u00e0 la variable AdresseChoix<\/em> avec le s\u00e9parateur point virgule, la variable tableau TableAdresseChoix<\/em> contient les adresses de cellules individuelles de TableAdresseChoix(0)<\/em> \u00e0 TableAdresseChoix(14)<\/em>, soit quinze occurrences.<\/p>\n
Le couple de commandes DATA<\/em> (stockage des donn\u00e9es s\u00e9par\u00e9es par des virgules) et\u00a0READ<\/em> (lecture des donn\u00e9es) associ\u00e9 \u00e0 une boucle compteur FOR… TO… NEXT<\/a><\/em>, commun\u00e9ment pr\u00e9sentes dans la plupart des langages BASIC<\/a> des ordinateurs des ann\u00e9es 80<\/a>, effectuait un traitement similaire.<\/p>\n
Exemple d’utilisation de la variable tableau :<\/em><\/p>\n
Dim i As Long\r\n    \r\nFor i = 0 To UBound(TableAdresseChoix)\r\n    .Range(TableAdresseChoix(i)).Value = i * 10\r\nNext i\r\n<\/pre>\n
Dans cet exemple, la boucle compteur For… To… Next<\/em> attribue successivement les valeurs de 0 \u00e0 14 (soit le nombre d’occurrences contenues dans la variable tableau TableAdresseChoix<\/em> : UBound(TableAdresseChoix)<\/em>) et le r\u00e9sultat du calcul i * 10<\/em> (soit 0 puis 10 puis 20…) est stock\u00e9 dans les cellules (.Range<\/em>) du tableau Excel\u00a0identifi\u00e9es dans la variable tableau TableAdresseChoix<\/em> (soit B16, B18, B20<\/em>…).<\/p>\n
Pour plus d’informations sur l’utilisation des variables tableaux, consulter l’article Manipuler des plages de cellules dans des variables tableaux<\/a>.<\/p>\n
La fonction Join<\/em> r\u00e9alise l’inverse de Split<\/em> en concat\u00e9nant le contenu d’une variable tableau dans une variable.<\/p>\n
Tous savoir sur l<\/em>a conversion de fichier<\/a> (Texte <-> Excel) \/ l\u2019analyse de donn\u00e9es<\/a>
\n<\/em><\/p>\n
Approfondir le sujet : Programmer en VBA<\/a> \/ D\u00e9couvrir la s\u00e9rie d\u2019articles Ma\u00eetriser Excel<\/a><\/p>\n
\"Share<\/a>