Discussion :

[SpcCwb]

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

[Ben_L]

Bonjour,

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

Code :

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

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

[SpcCwb]

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

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.

[Menhir]

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

Code :

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

    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.