Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Bonjour à tous,J'ai un pb que n'arrive vraiment pas à résoudre :J'ai une macro qui me donne un tableau de type http://cjoint.com/?hfs4Z8JSwwJe souhaiterais grouper les lignes limitées par les agences comme me ledonne (en partie) la macro du fichier enregistrée Ctrl + l :---------------------------------------------------------Cells(10000, 4).End(xlUp).Offset(-1, 0).SelectRange(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).EntireRow.SelectSelection.Rows.GroupCells(10000, 4).End(xlUp).Offset(-1, 0).SelectActiveCell.End(xlUp).Offset(-1, 0).SelectRange(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).EntireRow.SelectSelection.Rows.GroupCells(10000, 4).End(xlUp).Offset(-1, 0).SelectActiveCell.End(xlUp).Offset(-1, 0).SelectActiveCell.End(xlUp).Offset(-1, 0).SelectRange(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).EntireRow.SelectSelection.Rows.GroupCells(10000, 4).End(xlUp).Offset(-1, 0).SelectActiveCell.End(xlUp).Offset(-1, 0).SelectActiveCell.End(xlUp).Offset(-1, 0).SelectActiveCell.End(xlUp).Offset(-1, 0).SelectRange(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).EntireRow.SelectSelection.Rows.GroupActiveSheet.Outline.ShowLevels RowLevels:=1----------------------------------------------------Problème : je ne sais pas comment répéter l'opération jusqu'au bout (danscet exemple, jusq'au groupement des lignes 6 à 8).Quelqu'un aurait-il la solution s'il vous plaît ?Merci beaucoup d'avance !!!Salutations,Jiffey
Bonjour à tous, J'ai un pb que n'arrive vraiment pas à résoudre : J'ai une macro qui me donne un tableau de type http://cjoint.com/?hfs4Z8JSww Je souhaiterais grouper les lignes limitées par les agences comme me le donne (en partie) la macro du fichier enregistrée Ctrl + l : --------------------------------------------------------- Cells(10000, 4).End(xlUp).Offset(-1, 0).Select Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).EntireRow.Select Selection.Rows.Group Cells(10000, 4).End(xlUp).Offset(-1, 0).Select ActiveCell.End(xlUp).Offset(-1, 0).Select Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).EntireRow.Select Selection.Rows.Group Cells(10000, 4).End(xlUp).Offset(-1, 0).Select ActiveCell.End(xlUp).Offset(-1, 0).Select ActiveCell.End(xlUp).Offset(-1, 0).Select Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).EntireRow.Select Selection.Rows.Group Cells(10000, 4).End(xlUp).Offset(-1, 0).Select ActiveCell.End(xlUp).Offset(-1, 0).Select ActiveCell.End(xlUp).Offset(-1, 0).Select ActiveCell.End(xlUp).Offset(-1, 0).Select Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).EntireRow.Select Selection.Rows.Group ActiveSheet.Outline.ShowLevels RowLevels:=1 ---------------------------------------------------- Problème : je ne sais pas comment répéter l'opération jusqu'au bout (dans cet exemple, jusq'au groupement des lignes 6 à 8). Quelqu'un aurait-il la solution s'il vous plaît ? Merci beaucoup d'avance !!! Salutations, Jiffey