[vba] fonction split lecture fichier

fonction split lecture fichier [vba] - VB/VBA/VBS - Programmation

Marsh Posté le 01-08-2005 à 11:44:38    

Bonjour a tous,
 
J'ai le script suivant :
 

Citation :

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 !!

Reply

Marsh Posté le 01-08-2005 à 11:44:38   

Reply

Marsh Posté le 01-08-2005 à 17:24:56    

Essaye:

Cells(i, k) = elem


i à la place de 1


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

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!!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed