"S" (pourquoi les gens ne peuvent-ils pas signer leur e-mail avec au moins un prénom?) A écrit la question du jour.
J'essaie de mettre automatiquement des sauts de page dans un tableau dans Excel. J'ai essayé Données - Sous-totaux, mais cela m'oblige à ajouter une somme ou un décompte. Je ne veux pas de sous-totaux, juste un saut de page chaque fois que la valeur de la colonne A change.
Cette macro résoudra le problème. Pour une raison quelconque, les macros qui modifient les sauts de page ou les mises en page prennent beaucoup de temps à s'exécuter, mais ce sera certainement plus rapide que d'effectuer le processus manuellement. La macro suppose que vos données se trouvent dans la colonne A et qu'elles commencent à la ligne 2.
Sub AddBreaks() StartRow = 2 FinalRow = Range("A65536").End(xlUp).Row LastVal = Cells(StartRow, 1).Value For i = StartRow To FinalRow ThisVal = Cells(i, 1).Value If Not ThisVal = LastVal Then ActiveSheet.HPageBreaks.Add _ before:=Cells(i, 1) End If LastVal = ThisVal Next i End Sub
