Insertion d'un ligne en VBA excel

Signaler
Messages postés
1
Date d'inscription
samedi 4 février 2006
Statut
Membre
Dernière intervention
4 février 2006
-
Messages postés
133
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
8 juin 2012
-
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

Messages postés
133
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
8 juin 2012
4
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