Sauts de page et cellules fusionnées

Question

Bonjour,

Est-il possible de faire des sauts de page automatiques sans que cela coupe des cellules fusionnées ?

Merci d'avance

Answer 1

Est-ce que ce résultat est correct ?

https://www.cjoint.com/c/MEAkoW16wl6

Daniel

Answer 2

Super top, je regarde ça demain et je reviens vers toi

Muriel

Answer 3

Bonjour,

Pour recopier la macro dans ton classeur, fais un clic droit sur un onglet et clique sur "Visualiser le code". La fenêtre de l'éditeur VBA s'ouvre. Fais un clic droit sur le projet VBA qui porte le nom de ton classeur, clique sur Insertion et sur Module :

Colle les lignes ci-dessous dans la partie droite :

Sub Paginer()
Dim SP As HPageBreak, C As Range, Ctr As Long
With ActiveSheet
For Each SP In .HPageBreaks
Set C = SP.Location.Cells
Ctr = C.Row
Set plage = Intersect(Rows(C.Row), .UsedRange)
If IsNull(plage.MergeCells) Then
For Each C In plage
If C.MergeCells = True Then
If Ctr > C.MergeArea.Cells.Row Then
Ctr = C.MergeArea.Cells.Row
End If
End If
Next C
SP.Delete
.HPageBreaks.Add Cells(Ctr, 1)
End If
Next SP
End With
End Sub

Ferme l'éditeur VBA. Enregistre la classeur avec le type "Classeur Excel (prenant en charge les macros) (*.xlsm)". Tu peux maintenant un raccourci clavier qui permettra d'exécuter facilement la macro :

Dans Excel, clique sur l'onglet Affichage et sur Macros. Sélectionne "Paginer". Clique sur Options :

Clique dans la case "Touche de raccourci" et entre P. Valide. Maintenant, à chaque fois que tu appuieras sur Ctr+Maj+P, tu lanceras la macro Paginer. Enregistre le classeur.

Teste. Je vais être absent quelques jours. Si tu a sbesoin de précisions, n'hésite pas.

Daniel

Answer 4

Bonjour,

Merci de votre retour et désolée de ne pas avoir répondu plus tôt, j'étais en vacances.

Oui je suis intéressée par une macro, les cellules fusionnées se trouvant dans la même colonne.

Merci d'avance

Muriel

Answer 5

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Bonjour, BIADATTI Muriel.

Nous n’avons pas eu de vos nouvelles au cours des dernières 72 heures, nous considérerons donc votre problème comme résolu. À l’avenir, nous ne surveillerons pas ce fil, donc si vous avez besoin d’aide supplémentaire, veuillez créer un nouveau fil de discussion pour discuter de ces préoccupations en cliquant sur le lien ci-dessous. Ou cliquez sur l’option Poser une question comme indiqué sur la photo.

https://answers.microsoft.com/fr-fr/newthread?threadtype=Questions&cancelurl=%2Ffr-fr

Merci de votre compréhension.

Respectueusement

Glenn Rue