pb avec une appli faite en excel 2000/avec 97

[cédric]

😱 bjr à tous g un pb avec une appli faites sous excel2000 et pour la faire fonctionner en excel 97 le probleme est plus exactement avec la fonction split. pouvez vous me donnez une alternative. MCI COOP 😱

 

[Hervé]

bonjour

Une proposition, en pièce jointe, en imaginant tes données en A1, et la virgule comme 'délimiter ' :

Option Explicit
Sub Bouton1_QuandClic()
Dim valeur As String
Dim tablo()
Dim i As Byte, x As Byte, debut As Byte
valeur = Range('a1') & ','
debut = 1
x = 1
For i = 1 To Len(valeur)
    If Mid(valeur, i, 1) = ',' Then
        ReDim Preserve tablo(1 To x)
        tablo(x) = Mid(valeur, debut, i - debut)
        x = x + 1
        i = i + 1
        debut = i
    End If
Next i

For i = 1 To UBound(tablo, 1)
    Range('c' & i + 1) = tablo(i)
Next i

End Sub

Je sais que ti_ un jour à fait un exemple, mais je n'arrive plus à y mettre la main dessus, fait une recherche, ca sera surement plus performant que mon bidule (qui me cause une bonne migraine, 🙂 ).

Salut