Ajout d'une ligne en gardant la somme dans une cellule

Bonjour à tous,

J'ai une feuille sur laquelle je dois faire entrer automatiquement des données sur une ligne.

A chaque nouvelle donnée il faudrait que j'inclus une nouvelle ligne en sachant qu' à la ligne inférieure je dois avoir un total.

Comment faire que cette cellule me totalise toute la colonne?

Merci de m'apporter une solution je pense que cala existe exp "LES TICKETS DE CAISSE"

Amicalement

Noel

Bonjour.

Insère ta ligne sur laquelle il y a la somme.

La formule pour prendre en compte toute la colonne en ayant possibilité d'insérer les lignes:

=somme($A$1:A9)

Sans doute est-ce plus compliqué mais tel que demandé, ça fonctionne.

A plus

-- 04 Juil 2010, 10:37 --

Re,

Bonjour Pass-Pass,

Ca fonctionne. Je n'ai eu que la moitié de ma demande.

L'autre moitié comment inclure dans ma macro un code pour ajouter une ligne entre.

J'ai essayé de faire une recherche sur ajout ligne je n'ai pas trouvé pour adapter à mon projet.

Merci de ton aide

Amicalement

Noel

-- Dim Juil 04, 2010 1:18 pm --

Re,

Bonjour Pass-Pass,

Ca fonctionne. Je n'ai eu que la moitié de ma demande.

L'autre moitié comment inclure dans ma macro un code pour ajouter une ligne entre.

J'ai essayé de faire une recherche sur ajout ligne je n'ai pas trouvé pour adapter à mon projet.

Merci de ton aide

Amicalement

Noel

Bonjour,

Peux-tu envoyer la feuille avec la macro actuelle ?

Claude

Re.

La macro copie la somme puis la met sur la ligne du dessous te permettant ainsi d'obtenir ta ligne d'insertion directement.

Si ça n'a pas marché, c'est parce qu'il y a déjà une cellule vide entre la somme et les valeurs dans le fichier joint.

Saisi une valeur puis relance ta macro. Tu verras que ta ligne est insérée juste au-dessus de la somme.

Cordialement. Passpass

Re,

Exacte ça ne marche pas

Ca me donne une erreur d'exécution 438 propriété ou méthode non géré par cet objet.

J'ai installé telquel le fichier que tu m'as transmis cela donne cette erreur

a te relire

@+

Amicalement

Noel

????

Je ne sais pas quoi te dire. Ca marche chez moi.

  Range("A1").Select
    Selection.End(xlDown).Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-1, 0).Range("A1").Select
    Application.CutCopyMode = False
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.ClearContents
End Sub

Si quelqu'un sait ce qui peut clocher?

Peut être une version différente?

Bonsoir à tous,

Noel, je suppose que tu veux insérer une valeur au dessus du total,

ici, j'ai pris la valeur de "C1" (la liste commençant en A1)

ligne entière

Sub InsertLigne()
    With Rows(Range("A1").End(xlDown).Row - 1)
        .Copy
        .Insert
        .Cells(, "a") = Range("c1") 'à régler
    End With
        Application.CutCopyMode = False
End Sub

ou cellule seule

Sub InsertCellule()
    With Range("a" & Range("A1").End(xlDown).Row - 1)
        .Copy
        .Insert Shift:=xlDown
        .Value = Range("c1") 'à régler
    End With
        Application.CutCopyMode = False
End Sub

Amicalement

Claude

Bonjour à tous,

Noel, merci de donner suite ou de clôturer tes postes

Amicalement

Claude

Re,

Bonjour Claude,

Je te remercie de me le signaler, parceque je n'ai pas encore trouver la solution.

@+

Amicalement

Noel