For Each avec un Step, possible?

Bonjour,

Tout est dans le titre. J'aimerai savoir s'il est possible d'utiliser le For Each loop en utilisant un step.

Actuellement j'utilise ce code:

Code:

---

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

Sub impression_selective() Application.ScreenUpdating = False   For Each c In Range("AB14", "AB100") If c.Value <> "" And c.Offset(1, 0).Value <> Range("R12").Value Then If c.Offset(0, -2).Value <> "" Then Range("F11").Value = c.Offset(0, 1).Value Range("F12").Value = c.Value ActiveSheet.PrintOut End If End If If c.Value <> "" And c.Offset(1, 0).Value = "" Then Application.ScreenUpdating = True: Exit Sub Next c Application.ScreenUpdating = True   End Sub

---

Qui me permet d'imprimer une série de document en changeant l'intitulé de chaque document en fonction d'une liste d'intitulé.

Je change le format d'impression et maintenant sur une feuille imprimée j'imprime deux intitulés de la liste précédemment citée.

J'aurais donc voulu modifier mon code avec quelque chose comme ça, pour qu'à la prochaine itération, la feuille soit imprimée avec deux nouveaux intitulés au lieu de reprendre un intitulé imprimé précédemment.

Code:

---

For Each c In Range("AB14", "AB100") step 2

---

Cela ne fonctionne évidemment pas, et c'est pour ça que j'ai besoin de votre aide. Une idée géniale pour me dépanner?

Merci infiniment d'avance

Bonjour,

A ma connaissance, impossible de faire ce vous demandez tel que vous souhaitez.
Mais vous pourriez procéder comme suit :

Code:

---

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

Sub impression_selective() Application.ScreenUpdating = False For c = 14 To 100 Step 2 Set Rng = Range("AB" & c) If Rng.Value <> "" And Rng.Offset(1, 0).Value <> Range("R12").Value Then If Rng.Offset(0, -2).Value <> "" Then Range("F11").Value = Rng.Offset(0, 1).Value Range("F12").Value = Rng.Value ActiveSheet.PrintOut End If If Rng.Value <> "" And Rng.Offset(1, 0).Value = "" Then Application.ScreenUpdating = True: Exit Sub Next c Application.ScreenUpdating = True End Sub

---

Bonjour,

Tout d'abord merci pour votre retour et désolé de ne pas avoir pu répondre plutôt, je fais passer quelques entretiens toute la journée et je n'ai pas eu le temps de revenir à mon problème.

Super! Votre solution fonctionne au poil! Mais il y a un mais :aie:

J'ai 22 intitulés dans mon range "AB14:AB:100", comme j'en imprime 2 par feuille je devrai avoir 11 feuilles d'imprimées mais le code s'arrête à 10 feuilles..

Je continue de chercher en me penchant sur votre piste.

Juste après le For To, mets cette ligne :

Code:

---

Debug.Print "c = " ; c ; " - Rng = " ; Rng.Address ; " - Value = " ; Rng.Value ; " - Offset(1,0) = " ; Rng.Offset(1, 0).Value ; " - R12 = " ; Range("R12").Value ; " - Offset(0, -2) = " ; Rng.Offset(0, -2).Value

---

Comme ça tu verras dans la fenêtre d'exécution, pour chaque tour de boucle, quelles sont les valeurs qui agissent sur les tests et où se déclenche le Exit Sub.