Difficultés à manipuler la fonction print#

Bonjour à tous, et merci pour toute votre aide. La vie de stagiaire en entreprises est dure ! :D

Je vous contacte pour une macro conséquente, qui dans une BDD réalise des tests (date maximum dans colonne A, date minimum dans colonne B, etc..)

Je déroule ces différents tests dans une seule boucle, et pour chacun je stocke l'indice de la ligne correspondante au test.

Ensuite, à l'aide de la fonction print, je fais une sortie txt sans délimiteur.

Cependant, je voudrais que dans un seul fichier texte, l'ensemble des lignes répondant aux différents tests apparaissent.

C'est à dire un fichier de la forme :

Test 1 réalisé pour 2 individus
Ligne 1
Ligne 2

Test 2 réalisé pour 2 individus
Ligne 1
Ligne 2

etc..

Pour le moment, voici une portion de ma fonction print :

Code:

---

1 2 3 4 5 6 7

For I = 1 To nbtests   Print #1, Left(Range("A" & tab_dates_compta_max(I, 2)).Text, 10) & Space(10 - Len(Left(Range("A" & tab_dates_compta_max(I, 2)).Text, 10)))   next I Close #1

---

Merci pour votre aide !

Edit : Correction

Bonjour julio44,

Tu bloques a quel endroit?

bonjour jfontaine,

Et bien je ne sais pas faire le lien entre le test 1 et le test 2.
Je n'arrive pas à faire la distinction entre les & et les ; dans l'instruction print également.
En effet, je souhaiterais "mettre en page" la sortie texte.

Pour avoir dans le fichier de sortie tous les tests 1 puis tous les test 2, tu peux faire 2 passes sur ton fichier source

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Print #1, "Test 1" For I = 1 To nbtests if Condition 1 then Print #1, Left(Range("A" & tab_dates_compta_max(I, 2)).Text, 10) & Space(10 - Len(Left(Range("A" & tab_dates_compta_max(I, 2)).Text, 10))) end if next I   Print #1, "Test 2" For I = 1 To nbtests if condition 2 then Print #1, Left(Range("A" & tab_dates_compta_max(I, 2)).Text, 10) & Space(10 - Len(Left(Range("A" & tab_dates_compta_max(I, 2)).Text, 10))) end if next I   Close #

---

ça fonctionne, merci beaucoup !:mouarf: