Problème de formatage de textboxes et boutons dans une feuille - PageSetup.Zoom

[Banosjo]

MISE À JOUR :

Après quelques tests supplémentaires, le problème survient plutôt lorsque la macro passe par les HPageBreaks :

For i = 40 To 46
If Feuil7.Range("i:i").EntireRow.Hidden = False Then
   If Feuil7.Rows(i).PageBreak <> xlNone Then
      Feuil7.Cells(39, 1).Select
      Feuil7.HPageBreaks.Add Before:=ActiveCell
      Exit For
   End If
End If
Next i

Y aurait-il incompatibilité entre les HPageBreaks et les objets (textboxes, boutons) d'une feuille ?

Merci de votre aide !

José


--------------------------------------------------------



Bonjour,

J'ai un problème bizarre en 2010 dans la mise en page d'une feuille, problème que je n'avais pas en 2003 et 2007. En gros, la macro réinitialise la mise en page, fait un zoom de 75% et refait les coupures de page de façon dynamique.

Voici la macro :

Sub MiseenpageEnonce()

Dim i As Long

Feuil7.ResetAllPageBreaks

Feuil7.PageSetup.Zoom = 75

Feuil7.PageSetup.PrintArea = "A1:I285"

For i = 40 To 46
If Feuil7.Range("i:i").EntireRow.Hidden = False Then
   If Feuil7.Rows(i).PageBreak <> xlNone Then
      Feuil7.Cells(39, 1).Select
      Feuil7.HPageBreaks.Add Before:=ActiveCell
      Exit For
   End If
End If
Next i

For i = 48 To 50
If Feuil7.Rows(i).PageBreak <> xlNone Then
   Feuil7.Cells(47, 1).Select
   Feuil7.HPageBreaks.Add Before:=ActiveCell
   Exit For
End If
Next i

For i = 67 To 72
If Feuil7.Range("i:i").EntireRow.Hidden = False Then
   If Feuil7.Rows(i).PageBreak <> xlNone Then
      Feuil7.Cells(66, 1).Select
      Feuil7.HPageBreaks.Add Before:=ActiveCell
      Exit For
   End If
End If
Next i

For i = 120 To 125
If Feuil7.Range("i:i").EntireRow.Hidden = False Then
   If Feuil7.Rows(i).PageBreak <> xlNone Then
      Feuil7.Cells(119, 1).Select
      Feuil7.HPageBreaks.Add Before:=ActiveCell
      Exit For
   End If
End If
Next i

For i = 127 To 129
If Feuil7.Range("i:i").EntireRow.Hidden = False Then
   If Feuil7.Rows(i).PageBreak <> xlNone Then
      Feuil7.Cells(126, 1).Select
      Feuil7.HPageBreaks.Add Before:=ActiveCell
      Exit For
   End If
End If
Next i

For i = 131 To 133
If Feuil7.Rows(i).PageBreak <> xlNone Then
   Feuil7.Cells(130, 1).Select
   Feuil7.HPageBreaks.Add Before:=ActiveCell
   Exit For
End If
Next i

If Feuil7.Range("150:150").EntireRow.Hidden = False Then
      Feuil7.Cells(149, 1).Select
      Feuil7.HPageBreaks.Add Before:=ActiveCell
End If

For i = 273 To 281
If Feuil7.Range("i:i").EntireRow.Hidden = False Then
   If Feuil7.Rows(i).PageBreak <> xlNone Then
      Feuil7.Cells(272, 1).Select
      Feuil7.HPageBreaks.Add Before:=ActiveCell
      Exit For
   End If
End If
Next i

Feuil7.Cells(5, 1).Select

End Sub

Pas de problème en 2003 et 2007. Cependant, en 2010, la page se met à l'échelle 75 normalement mais les objets de la page semblent se réduire beaucoup plus (??) et sont, par le fait même, déplacer dans la page .. Voir les images jointes.

Plus bizarre, si je le refait encore, la page se remet à 75% mais les objets se réduisent encore davantage pour finir par être miniature.

Y comprenez-vous quelque chose ?

Merci de m'éclairer !

José