[vba] fonction split lecture fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [vba] fonction split lecture fichier

erwan551

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

Publicité

AlainTech

Pas trouvé? Cherche encore!

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!

erwan551

Merci c'etait exactement ca !

Désolé j'avais pas bien vue sur le coup la!!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[vba] fonction split lecture fichier

Sujets relatifs
[php] [RESOLU] lancer un fichier excel avec un header	Executer une commande dos sans creation de fichier
[SQL] Récupérer emails d'un fichier *.sql ?	Générer un fichier .txt dans un répertoire précis
Récupérer un nom de fichier (sans l'extension) en Php	pb : pas de notification d'ouverture de fichier XL
[vba] télécharger un fichier sur le serveur	[javascript] executer un fichier
Utilisation du for pour obtenir la date d'un fichier	Mise en page de fichier
Plus de sujets relatifs à : [vba] fonction split lecture fichier

Page générée en 0.021 secondes