Découper un fichier excel en plusieurs

bonsoir,

j'ai créé une macro pr scinder un fichier en plusieurs en fonction du contenu de la colonne A ( qui contient groupe a, groupe b, groupe c)
à la fin du tableau, j'ai une ligne avec des formules ( totaux..)
exactement j'ai ça

en colonne L à la fin: =SOMME(L2:L70)
en colonne M à la fin: =L7*1.9%
en colonne N à la fin: =SOMME(N2:N70)
en colonne O à la fin: =N70/L70

cette ligne ne se reproduit pas dans les différents fichiers tableaux éclatés parce ce que dans la colonne A c vide, donc le filtre ne la prend pas.

avec l'enregistreur de macro, j'ai pu trouver le code et je l'ai intégré dans ma macro. mes formules marchent bien et vont bien se positionner dans les colonnes concernées mais vont toujours se positionner au même nombre de ligne que dans le fichier basique, y a-t-il moyen de dire à la macro de venir se posionner à la fin du tableau et mettre ces formules??

si vous pouvez m'aider, je dois boucler cette macro ce soir :)

merci

Bonsoir,

Essaie peut être un truc qui ressemble à ça :

Code:

---

1 2 3 4 5

Dim Lastcell As String   Lastcell = Range("A2").End(xlDown).Address   Range("A2").End(xlDown).Offset(1, 0).Formula = "=SUM(A2:" & Lastcell & ")"

---

Avec l'instruction Range("A2").End(xlDown).Address , tu récupères l'adresse de la dernière cellule en bas de la plage A2.

Avec l'instruction Range("A2").End(xlDown).Offset(1, 0).Formula = "=Somme(A2:" & Lastcell & ")" , tu mets la formule somme avec comme plage pour la somme de A2 à la cellule trouvée précédemment.

Je pense qu'en adaptant ça, tu devrais pouvoir te débrouiller.

Bon courage,

Mr Poulpe

Merci ça a marché pour moi!
Bonne journée