Discussion :

[ilissnmiden92]

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

[Mr Poulpe]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ilissnmiden92]

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