Loop, Looping ... looper :(

Poto · 1 Juin 2012

Bonjour à tous,

je cherche a creer, probablement à l'aide d'une loop, un fichier txt a partir d'une feuille excel.

le "probleme", du moins l'un des problemes, que je rencontre c'est que je dois creer 3 lignes de texte pour chaque ligne dans la feuille excel ...

en gros, ma 1er ligne dans la feuille excel comporte une date en A, une valeur1 en B, une valeur2 en C et une valeur3 en D. La 2eme ligne comporte une date en A, une valeur1(differente) en B, une valeur2 (differente) en C et une valeur3 (differente) en D. Ce que j ai besoin de faire, c'est d'écrire dans le fichier texte qq chose comme ca :

1;Date; Valeur1 ;Remise CB; C
2;Date; Valeur2 ;Remise CB; D
3;Date; Valeur3 ;Remise CB; D
4; Date (ligne2); Valeur1 (ligne2); Remise CB, C
5; Date (ligne2); Valeur2 (ligne2); Remise CB, D
6; Date (ligne2); Valeur3 (ligne2); Remise CB, D
...etc

Alors j arrive a ecrire une ligne en utilisant freefile et print, mais je n arrive pas a "looper" la feuille excel.

une petite idee ??
(une explication de comment faire une loop correctement est la bienvenue 🙂 )

merci d'avance a tous

Poto

(le fichier DATA comporte les données que je souhaiterais traiter, le fichier Exemple Export est a renommer en .csv (j'ai du tricher en changeant son extension en xls, sinon le forum veut pas uploader les csv) et est un exemple du fichier texte (vous aurez compris que c est une CSV que je veux faire, mais bon c'est pareil 😛 ) que j'aimerais recuperer en sortie de chaine 😉 )

WUTED · 1 Juin 2012

Re : Loop, Looping ... looper 🙁

Bonjour Poto,

Aprés ton ouverture de fichier, il te suffirait de faire quelque chose comme :

VB:

Sub Macro()
  Dim numLigneTxt as Integer
  Dim numLigne Xl as Integer

  numLigneTxt = 1
  numLigneXl = 1

'Ouverture Fichier
------------------
  Do 
       Print #intFic, numLigneTxt & ";Date; Valeur1 ;Remise CB; C" & Range("B" & numLigneXl).Value
       numLigneTxt = numLigneTxt + 1 
       Print #intFic, numLigneTxt & ";Date; Valeur1 ;Remise CB; C" & Range("C" & numLigneXl).Value
       numLigneTxt = numLigneTxt + 1 
       Print #intFic, numLigneTxt & ";Date; Valeur1 ;Remise CB; C" & Range("D" & numLigneXl).Value
       numLigneTxt = numLigneTxt + 1 
       numLigneXl = numLigneXl + 1
  Loop Until Range("A" & numLigneXl) = ""

'Fermeture Ficher
----------------
End Sub

Teste déjà ça, histoire de voir ce que cela donne.

Poto · 1 Juin 2012

RESOLU : Loop, Looping ... looper 🙁

WUTED à dit:

Bonjour Poto,

Aprés ton ouverture de fichier, il te suffirait de faire quelque chose comme :

VB:

Sub Macro()
  Dim numLigneTxt as Integer
  Dim numLigne Xl as Integer

  numLigneTxt = 1
  numLigneXl = 1

'Ouverture Fichier
------------------
  Do 
       Print #intFic, numLigneTxt & ";Date; Valeur1 ;Remise CB; C" & Range("B" & numLigneXl).Value
       numLigneTxt = numLigneTxt + 1 
       Print #intFic, numLigneTxt & ";Date; Valeur1 ;Remise CB; C" & Range("C" & numLigneXl).Value
       numLigneTxt = numLigneTxt + 1 
       Print #intFic, numLigneTxt & ";Date; Valeur1 ;Remise CB; C" & Range("D" & numLigneXl).Value
       numLigneTxt = numLigneTxt + 1 
       numLigneXl = numLigneXl + 1
  Loop Until Range("A" & numLigneXl) = ""

'Fermeture Ficher
----------------
End Sub

Teste déjà ça, histoire de voir ce que cela donne.

super, en bidouillant un peu, ca marche nikel 😉
en plus, j'ai l impression que je commence a comprendre les loops

thx encore

Poto

WUTED · 1 Juin 2012

Re : Loop, Looping ... looper 🙁

Re,

Les loops sont vraiment pas compliqués, en français ça équivaut à :

Fais
instruction
Boucle tant que / jusqu'à que condition d'arrêt

Loop, Looping ... looper :(

Poto

XLDnaute Occasionnel

Pièces jointes

WUTED

XLDnaute Occasionnel

Poto

XLDnaute Occasionnel

WUTED

XLDnaute Occasionnel

Discussions similaires

Loop, Looping ... looper :(

Poto

XLDnaute Occasionnel

Pièces jointes

WUTED

XLDnaute Occasionnel

Poto

XLDnaute Occasionnel

WUTED

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency