Parser avec Split pour Excel 97Résolu

Question

J'ai un tableau Excel qui contient une colonnes avec des cellules ayant un contenu sur plusieurs ligne (donc saut à la ligne). Le problème c'est qu'elle ne fait rien, malgré les différent Code Source de la fonction Split adapté pour Office 97 que j'ai essayer, alors je me demande si cela ne viens pas d'ailleurs. Voici le code : Sub Parser() Dim i, j, k As Long j = 0 k = 0 i = 1 While (Worksheets(1).Cells(i, 3).Value <> "") While (UBound(Split(Worksheets(1).Cells(i, 3), vbCrLf)) <> j) Worksheets(2).Cells(k, 1).Value = Worksheets(1).Cells(i, 1).Value Worksheets(2).Cells(k, 2).Value = Worksheets(1).Cells(i, 2).Value Worksheets(2).Cells(k, 3).Value = Split(Worksheets(1).Cells(i, 3), vbCrLf)(j) j = j + 1 k = k + 1 Wend j = 0 i = i + 1 Wend End Sub Je suis plus que novice avec VB (et donc VBA), donc soyez indulgent.

Zlub · Accepted Answer

Salut, Sauf erreur, il me semble que sous Excel 97, split déconne... Tu peux essayer le code suivant : Option Explicit Public Function Parse(sIn As String, sDel As String) As Variant Dim i As Integer, x As Integer, s As Integer, t As Integer i 1: s 1: t = 1: x = 1 ReDim tArr(1 To x) As Variant If InStr (1, sIn, sDel) <> 0 Then Do ReDim Preserve tArr(1 To x) As Variant tArr(i) = Mid(sIn, t, InStr(s, sIn, sDel) - t) t = InStr (s, sIn, sDel) + Len(sDel) s = t If tArr(i) <> "" Then i = i + 1 x = x + 1 Loop Until InStr (s, sIn, sDel) = 0 ReDim Preserve tArr(1 To x) As Variant tArr(i) = Mid (sIn, t, Len(sIn) - t + 1) Else tArr(1) = sIn End If Parse = tArr End Function ' Exemple d'utilisation Private Sub Command1_Click() Dim A As Variant Dim i As Integer i = 1 A = Parse("Salut, comment vas-tu ???", " ") For i = 1 To UBound(A) MsgBox A(i) Next i End Sub ++ Zlub

jpleroisse · Answer

Bonsoir,
Que veux-tu que fasse ta Macro ???

jpleroisse

Zlub · Answer

Salut JP Leroise,


B'hein qu'il voit si &#224; la place de split &#231;a fonctionne ou
pas... vu qu'en d&#233;but de mon dernier post, j'indiquais qu'il me semble
que split a un fonctionnement &#233;trange sous Office 97 ... sauf erreur de
ma part ...

Voil&#224;, tout simplement,


++

Zlub

Eldros · Answer

Comme je l'ai dit, j'&#233;tais au courant que la fonction Split ne fonctionnait pas (elle est inexistante pour ainsi dire) avec Excel 97. Cependant j'ai trouv&#233; des sources sur ce site qui proposais des fonctions similaire &#224; Split. Et malheureusement &#231;a ne donnait rien.

Mais grace &#224; ton code et quelque remaniement sur le mien. Cela marche du tonnerre.

Merci beaucoup.

Parser avec Split pour Excel 97

4 réponses

Discussions similaires