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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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