Zone imprimable

Bonjour j'aimerais pouvoir avoir une alerte si le contenu de ma feuil1 dépasse la zone imprimable ... je fouille sur le net mais je n'ai rien trouvé jusqu'à présent.

Merci de me guider si vous avez une idée.

pour l'instant si la feuille dépasse je peux toujours la redimenssioner à la mise en page mais ce n'est pas ce que je souhaite

Bonjour,

Tu peux toujours mettre la procédure suivante dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim n%
    If Me.PageSetup.Pages.Count > 1 Then
        MsgBox "Attention ! Vous ajoutez une page à imprimer.", _
         vbInformation, "Test impression"
    End If
End Sub

Cordialement.

merci je vais essayer ca

Tu peux supprimer le Dim n% !

C'est que j'avais pensé t'afficher le nombre de pages dans le message et ne l'ai finalement pas fait.

Si c'est pour ne pas déborder d'une page, cela suffit puisque n n'aurait pas dépassé 2...

Mais teste d'abord et vois si cela répond à ce que tu souhaites.

Bon week end.