Insertion d'un ligne en VBA excel

robin3 Messages postés 1 Date d'inscription samedi 4 février 2006 Statut Membre Dernière intervention 4 février 2006 - 4 févr. 2006 à 01:52
CTAC Messages postés 133 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 8 juin 2012 - 6 févr. 2006 à 15:33
Bonjour,

Je veux insérer une ligne à l'intérieur d'un tableau qui possède des sous-totaux:

<COLGROUP>
<COL span=2 width=80>

----

A,
1,
----

B,
2,
----

C,
3,
----

Sous-Total 1,
6,
----

E,
1,
----

F,
1,
----

Sous-Total 2,
2,
----

Total,
8


Sous-Total 1 = SOUS.TOTAL(9;B2:B4)
Sous-Total 2 = SOUS.TOTAL(9;B6:B7)
Total= SOUS.TOTAL(9;B2:B8)

Si la ligne est inserée entre les lignes A et B ou B et C il n'y a pas de problème, mais si j'insère une ligne avant la ligne A ou après la ligne C alors cette ligne n'est pas incluse dans le sous-total. Comment faire une macro qui adapte la région à calculer pour le bon sous-total.

merci

robin3

1 réponse

CTAC Messages postés 133 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 8 juin 2012 5
6 févr. 2006 à 15:33
Bonjour,

Insertion Nom Définir LeST1
fait reference à =Feuil1!$B$5

Sous-Total 1 en B5 =SOUS.TOTAL(9;INDIRECT("B"&2&":B"&LIGNE()-1))
Sous-Total 2 en B8 =SOUS.TOTAL(9;INDIRECT("B"&2&":B"&LIGNE()-1))-LeST1
Total en B9 =SOUS.TOTAL(9;INDIRECT("B"&2&":B"&LIGNE()-1))

ctac
0