Sujet Précédent Sujet Suivant

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

A voir également:

Insertion d'un ligne en VBA excel
Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
Vba dernière ligne non vide - Forum Visual Basic 6
Créer un emploi du temps en ligne - Forum Java
Créer un mot mélé en ligne - Forum Java
Excel vba formular1c1 - Forum Visual Basic

1 réponse

Réponse 1 / 1

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

Discussions similaires

Dernière cellule non vide d'une colonne

Selection derniere cellule non vide plage cellule Excel

Vba dernière cellule non vide (Ignorer les formules résultat "")

fonction modulo en VBA

Dernière ligne d'une colonne excel