boucle for qui remplit deux cellules à chaque itération

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:

---

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:

---

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.

Bonjour
Ton code adapté

Code:

---

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

---

Bonjour,

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

le problème est résolu.

Merci.

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:

---

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