problème code vba pour impression

[MARION]

Bonjour le forum .
J'ai un petit problème avec le code ci-dessous, il me sert a imprimer des feuilles cachées (OF1 OF2 OF3 ect).
je determine le nombre d'OF que je veux imprimer a l'aide d'un userform.
Mon problème est que la selection a1:g55 ne s'imprime pas alors que j'ai deux impression de la selection i155.
Si quelqu'un peut voir d'ou ça peut venir
Merci d'avance
A+ M

Private Sub VALIDATION_Click()
'selectionne la zone d'impression
Application.ScreenUpdating = False
Dim numOFx As Integer, i As Integer
numOFx = MENU_IMPRESSION.numOF.Value
For i = 1 To numOFx

'mise en page et impression "OF"
Sheets("OF" & i).Visible = True

ActiveSheet.PageSetup.PrintArea = "$A$1:$G$55"
Sheets("OF" & i).PrintOut copies:=1

ActiveSheet.PageSetup.PrintArea = "$I$1:$O$55"
Sheets("OF" & i).PrintOut copies:=1
Sheets("OF" & i).Visible = False
Next i

Sheets("planning").Select
Range("a1").Activate

End Sub

 

[Lord Nelson]

Salut Marion,

A première vue, ton ActiveSheet n'est pas celle que tu crois.
Essaie ceci :

For i = 1 To numOFx

'mise en page et impression "OF"
Sheets("OF" & i).Visible = True

Sheets("OF" & i).PageSetup.PrintArea = "$A$1:$G$55"
Sheets("OF" & i).PrintOut copies:=1

Sheets("OF" & i).PageSetup.PrintArea = "$I$1:$O$55"
Sheets("OF" & i).PrintOut copies:=1
Sheets("OF" & i).Visible = False
Next i

Sheets("planning").Select
Range("a1").Activate

A+
Horatio

 

[yeahou]

Bonjour

Je pense que Lord Nelson a raison. Peut être teste tu sans avoir masqué auparavant les feuilles auquel cas Sheets("OF" & i).Visible = True ne sélectionne pas la feuille concernée et cela provoque ton problème.

A+

 

[MARION]

Bonjour a tous les deux et au forum
C'est bien ce qui me fallait, vous étes super
Un trés grand merci
Gros bisous et bon week end
A+ M