pb avec une appli faite en excel 2000/avec 97

cédric · 9 Mai 2005

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é · 9 Mai 2005

bonjour

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

Code:

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

pb avec une appli faite en excel 2000/avec 97

cédric

Guest

Hervé

XLDnaute Barbatruc

Discussions similaires