Discussion :

[julio44]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour julio44,

Tu bloques a quel endroit?

[julio44]

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.

[jfontaine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 #

[julio44]

ça fonctionne, merci beaucoup !