Uniformiser sous tota VBA

Re : Uniformiser sous tota VBA

Bonjour à tous


Hoareau
Tu ne souhaites pas utiliser la fonction native d'Excel (dans Données/Sous-totaux) (avec ou sans VBA) ?
Voir ci-dessous

Re : Uniformiser sous tota VBA

Re,

Ce qui en VBA donnerait
(code initial issu de l'enregistreur de macros)

EDITION: ->Hoareau:
Après mon premier café et relecture de ta question, je crois ne pas avoir bien compris celle-ci, n'est-ce pas ? 😛

Re : Uniformiser sous tota VBA

Merci pour la réponse, mais l'enregistreur ne peur rien dans ce cas,

puisqu'il faut insérer des lignes.

J'avais pensé à quelque chose de ce style

le fichier joint, donne une explication plus complète



Sub test()

Set B = [B2:B25]
i = 2
Do While Cells(i, 2).Row < B.Rows.Count

If Cells(i, 2) < 5 Then



'Je défini toute la plage en dessous de la cellule active
Set Transfert = Range(Cells(i, 2).Offset(0, -1), Cells(i, 2).Offset(0,

1).End(xlDown))
'Je copie la plage transfert, une cellule en dessous
Transfert.Copy Destination:=Cells(i, 2).Offset(-1, -1)

'J'ajoute 1, à la cellule active, par rapport à la cellule juste en dessus
Cells(i, 2) = Cells(i, 2).Offset(-1, 0) + 1



End If


i = i + 1
Loop

End Sub