Tri + sous-totaux incoherents vba

[fid]

Bonsoir à tous,

je n'y vois plus rien
j'ai une macro qui fait des sous-totaux sur une liste triée
1er sous-total sur la col M
2ème sous-total sur la col D
mais voilà j'ai toujours les 3 dernières lignes (pourtant bien triées) qui ne sont pas rassemblées suivant le 1er sous-total !!!
où est l'erreur ?
j'y vois plus rien
Merci de vos lumières

 

[Modeste]

Re : Tri + sous-totaux incoherents vba

Bonsoir fid,

Lorsque, dans la macro, le premier sous-total est effectué, 3 lignes sont insérées (contenant les sous-totaux demandés) entre la ligne 1 et la ligne 22 ... Ta "Selection" au moment du second sous-total n'est donc plus adaptée, puisque qu'elle représente toujours les 22 premières lignes!!
Pas regardé le reste de ton code, mais tu pourrais travailler avec:

Sheets("recap-produits").Range("A1").CurrentRegion.Subtotal ...

(pour les 2 sous-totaux !)

 

[fid]

Re : Tri + sous-totaux incoherents vba

merci Modeste, effectivement le souci était là bien sûr !
en modifiant le code comme indiqué, ça fonctionne impeccable
encore merci !