Discussion :

[free_dom]

Bonjour,

j'utilise une boucle FOR pour récupérer les valeurs d'une colonne d'une autre feuille puis je met les deux premieres valeurs récupérées chacune dans une cellule et ainsi de suite sachant que ces deux cellules restent les memes à chaque itération.

c'est à dire je met les valeur 1 et 2 recuperées d'une autre colonne et je les mets dans les cellule J1 et J2 puis 3 et 4 et je les mets dans J1 et J2 etc.

le but de cette opération est d'imprimer deux tableaux identiques dans une seule page en changeant leurs contenus suivant la valeur récupérée.

Code :

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

1
2
3
4
5
6
7
8
9
 
For num = s To e
   For i = 1 To last
      If num = file.Worksheets("print ").Range("A" & i).Value Then
         Range("J1").Value = num
'         ActiveWindow.SelectedSheets.PrintOut copies:=1
      End If
   Next i
Next num

je veux que la deuxième itération soit mise dans:

Code :

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

Range("J2").Value = num

et ainsi de suite 3 et 4 puis 5 et 6 ...etc.

Pourriez vous m'aidez s'il vous plait.

Merci.

[mercatog]

Bonjour
Ton code adapté

Code :

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

1
2
3
4
5
6
7
8
9
10
For num = s To e
    For i = 1 To last
        If num = file.Worksheets("print ").Range("A" & i).Value Then
            k = k + 1
            Range("J" & k).Value = num
            'ActiveWindow.SelectedSheets.PrintOut copies:=1
            k = k Mod 2
        End If
    Next i
Next num

[free_dom]

Bonjour,

Merci pour la réponse et pour l'idée.

le problème est résolu.

Merci.

[free_dom]

Bonjour,

j'ai une petite modification dans le code mais toujours je ne sais pas comment faire, j'explique le problème:

dans un autre fichier excel, j'ai une colonne qui contient des chiffres, je ve récupérer ces chiffres dans deux cellules J1 et J2 pour imprimer deux tableaux, chaque tableau se change selon le contenu de J1 et l'autre selon J2.

le code est:

Code :

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

1
2
3
4
5
6
7
8
9
10
For num = s To e
    For i = 1 To last
        If num = file.Worksheets("print ").Range("A" & i).Value Then
            k = k + 1
            Range("J" & k).Value = num
            ActiveWindow.SelectedSheets.PrintOut copies:=1
            k = k Mod 2
        End If
    Next i
Next num

num est le chiffre récupéré à chaque itération, on vérifie son existence dans la colonne A et le met dans J1 puis le suivant dans J2.

à la fin de l'impression je coupe chaque page en deux et pour que les tableaux imprimés soient ordonnés: si j'ai des chiffre jusqu’à 10, je dois récupérer:
J1 1 2 3 4 5
J2 6 7 8 9 10

Pourriez vous me donner une idée comment je peux réaliser cette action sachant que la colonne qui contient les chiffres peut contenir jusqu’à 400 chiffre non consécutif.

Merci