A voir également:
- Impression en VBA page remplie
- Spouleur d'impression - Guide
- Supprimer une page word - Guide
- Page d'accueil iphone - Guide
- Traduire une page web - Guide
- Créer une page facebook - Guide
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
21 mai 2016 à 08:02
21 mai 2016 à 08:02
Bonjour,
peut-^tre une idée:
Combien de lignes mange chaque description ?
peut-^tre une idée:
Combien de lignes mange chaque description ?
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
21 mai 2016 à 08:26
21 mai 2016 à 08:26
Bonjour
Essayez ceci, à copier dans le module de la feuille
Cdlt
Essayez ceci, à copier dans le module de la feuille
Private Sub Worksheet_Change(ByVal Target As Range) Dim CptsautPage As Long Application.ScreenUpdating = False CptsautPage = ActiveSheet.HPageBreaks.Count DerSautPage = ActiveSheet.HPageBreaks.Item(CptsautPage).Location.Row If Target.Row + 1 = DerSautPage Then ActiveWindow.SelectedSheets.PrintOut From:=CptsautPage, To:=CptsautPage, Copies:=1, Collate:=True End Sub
Cdlt
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
21 mai 2016 à 08:29
21 mai 2016 à 08:29
Bonjour michel_m
Excusez_moi, je n'avais pas vu que vous étiez aussi sur l'affaire,
Cordialement
Excusez_moi, je n'avais pas vu que vous étiez aussi sur l'affaire,
Cordialement
21 mai 2016 à 14:02
Pour commencé, merci pour ta réponse si rapide.
Pour le nombre de ligne que mange chaque description, il est la le problème. Le champs descriptif de la panne varie en fonction de l'importance de la panne. Il n'y a donc pas de dimension standard hélas.