C
cédric
Guest
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
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