Copier/Coller une distribution

Bonjour, je cherche une macro pour copier une distribution de nombres sur la feuille 1 (A1:A4) et la coller sur la feuille 2 (B1:B4). Je voudrais aussi pouvoir créer un total sur la feuille 2 dans la cellule B5, soit juste après (B1:B4). Le problème c'est que je veux garder le droit d'ajouter des nombres à la distribution de la feuille 1 (A1:A4) en tout temps sans compromettre le collage et le total qui doit apparaître à la fin de ce collage.

Bonjour Kor-hegan le forum

Sub copie()
    Feuil1.Range("A1:A4").Copy Feuil2.Range("B1")
    Feuil2.Range("B5") = Application.WorksheetFunction.Sum(Feuil2.Range("B1:B4"))
End Sub

pour ton

Le problème c'est que je veux garder le droit d'ajouter des nombres à la distribution de la feuille 1 (A1:A4) en tout temps sans compromettre le collage et le total qui doit apparaître à la fin de ce collage.

perso je ne comprend pas ce que tu veux dire, A1 à A4 c'est clair c'est A1 A2 A3 A4 tu veux ajouter quoi ??? en plus à la distribution cela veut dire quoi ???

explique au besoin un petit fichier avec les explications dedans et on fera

a+

papou

Bonjour à tous,

Résultat en Feuil2

Tu choisis le résultat en dur ou en formule

tu peux ajouter des valeurs en colonne "A"

Sub Copie()
Dim Lg&
    Lg = Range("a" & Rows.Count).End(xlUp).Row
    With Sheets("Feuil2")
        .Columns("b").Clear
        Range("a1:a" & Lg).Copy Destination:=.Range("b1")
        .Range("b" & Lg + 1) = Application.Sum(.Range("b1:b" & Lg)) 'en dur
        .Range("b" & Lg + 1) = "=SUM(b1:b" & Lg & ")"               'en formule
        .Range("b" & Lg + 1).Interior.ColorIndex = 15
        .Activate
    End With
End Sub

Amicalement

Claude