Excel VBA: Prendre la somme des deux colonnes (tout en bas) et insérer une nouvelle colonne?

Exemple je veux le code VBA pour prendre la cellule "A1" et "B1" et la somme de ces deux "C1",

Ainsi, il doit le faire avec A2, A3, A4... tout le chemin jusqu'à la fin de la colonne et de la résumer à la colonne c.

Quelqu'un peut-il aider à programmer quelque chose comme ça?

  • Oui, nous pouvons vous aider... Merci de nous montrer ce que vous avez essayé et dont les résultats ont été incorrect. Aussi, voir stackoverflow.com/help/on-topic pour la question des lignes directrices.
InformationsquelleAutor n777l | 2015-07-02
  1. 3

    Je suis sûr que vous pouvez trouver la réponse facilement en cherchant un peu, mais voici un morceau de code qui peut être utile pour vous:

    Sub SumColumns()

Dim Nb_Rows As Integer

'Nb_Rows can be any integer
For i = 1 To Nb_Rows
    Range("C" & i).Value = Range("A" & i).Value + Range("B" & i).Value
Next i

End Sub

    Il calcule la valeur de Ai + Bi et le met dans l'Ic.
    Vous pouvez choisir la valeur de Nb_Rows : si vous savez exactement le nombre de lignes que vous voulez calculer vous pouvez affecter la valeur exacte, sinon il suffit de choisir un nombre élevé de sorte que vous êtes sûr qu'il passe à travers l'ensemble de votre feuille.

    • Si vous ne savez pas le nombre de lignes, alors vous pouvez utiliser quelque chose comme cela... Nb_Rows = ThisWorkbook.Sheets("Sheet 1").Range("A1", ThisWorkbook.Sheets("Sheet 1").Range("A1").End(xlDown)).Rows.Count
    InformationsquelleAutor LateRefrigerator
  2. 0

    Une version légèrement différente à l'aide de la formule de Cellules est plus facile à utiliser avec des numéros de Plage CELLULES(RowNum, ColNum)

    Sub SumColumns()

    Dim Nb_Rows As Integer
    Nb_Rows = 4

    With ThisWorkbook.Worksheets("Sheet1")
        .Cells(1, 3).FormulaR1C1 = "=Sum(RC1, RC2)"
        .Cells(1, 3).AutoFill Destination:=.Range(.Cells(1, 3), .Cells(Nb_Rows, 3))
        .Range(.Cells(1, 3), .Cells(Nb_Rows, 3)) = .Range(.Cells(1, 3), .Cells(Nb_Rows, 3)).Value
        .Cells(Nb_Rows + 1, 3).FormulaR1C1 = "=SUM(R1C:R[-1]C)"
    End With

End Sub
    InformationsquelleAutor Darren Bartrup-Cook