insertion ligne

Bonsoir Tracor,


Pour répondre à la question posée, il suffit d'exécuter la séquence de code suivante :

====================================================
i = 20 'affecter à i le n° de la ligne devant laquelle insérer la nouvelle ligne
Rows(i).Insert Shift:=xlDown
Rows(i + 1).Copy
Rows(i).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
====================================================

Si les fonctions "Somme" permettant de calculer les totaux, travaillent avec des références relatives (et non absolues), la prise en compte de la nouvelle ligne dans les totaux devrait se faire automatiquement.

Bon courage pour la suite.

Omicron

salut Omicron

voici le code que tu m'as donné pour l'insertion d'une ligne
i = 12

Rows(i).Insert Shift:=xlDown
Rows(i + 1).Copy
Rows(i).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"

j'ai ajouté comme tu peux le voir une formule pour faire le total
malheureusement lors de l'insertion de la ligne le total ne se met pas à jour
le problème c que à chaque insertion la ligne total descend et le nombre de lignes à additionner augmentent
comment palier à ce problème

merci pour ton aide

tracor

Re Bonsoir Tracor,

Je n'ai pas assez d'éléments pour comprendre ce que tu cherches à faire avec tes totaux.
Pourrais-tu m'envoyer un exemple en pièce jointe ?

A bientôt peut-être.

Omicron

salut Omicron

j'ai mis en piéce jointe un fichier exemple
à la ligne 17 je voudrai mettre un total
malheureusement lorsque la ligne est inséré le total ne se met pas à jour