fonction split lecture fichier [vba] - VB/VBA/VBS - Programmation
Marsh Posté le 01-08-2005 à 17:24:56
Essaye:
Cells(i, k) = elem |
i à la place de 1
Marsh Posté le 02-08-2005 à 15:50:53
Merci c'etait exactement ca !
Désolé j'avais pas bien vue sur le coup la!!
Marsh Posté le 01-08-2005 à 11:44:38
Bonjour a tous,
J'ai le script suivant :
For i = 1 To 5
' Séparateur utilisé : ;
machaine = Split(Range("A" & i), ";", -1, 1)
' Affichage
k = 1
For Each elem In machaine
If elem = "" Then
ok = 1
Else: Cells(1, k) = elem
k = k + 1
End If
Next elem
Next i
Il permet normalement de lire les 5 premiere lignes de la colonne A et pour chacune des lignes séparés la chaine et incorporer chaque élement dans une colonne.
Mais ca ne marche pas!
Le programme découpe et place les éléments dans les bonnes colonnes de la ligne 1 mais seulement pour la derniere ligne. Les 4 premieres lignes ne sont pas traités !!