completer une macro

[kakachi]

Bonjour ,

je me tourne vers vous afin de compléter mon petit programme VBA.

Mon objectif est d'obtenir la colonne I. Cette colonne représente le total de chaque colonne " E +F+G+H ", en fonction du nombre total de combinaisons "M2" .

Pour l'instant, la colonne I est obtenue en utilisant la fonction SOMME d'excel. J'aimerai obtenir cette même colonne avec un code VBA , si possible .

Merci pour ceux qui voudront bien m'aider !!!

Vous trouverez mon fichier en pièce jointe

Bonne journée !!

kakachi

 

[david84]

Re : completer une macro

Bonjour,
à tester :

Sub somme()
Dim DerL&, i&
DerL = Range("E" & Rows.Count).End(xlUp).Row
    For i = 2 To DerL
        Cells(i, 9) = Application.WorksheetFunction.Sum(Cells(i, 5), Cells(i, 6), Cells(i, 7), Cells(i, 8))
    Next i
End Sub

A+

 

[Paritec]

Re : completer une macro

Bonsoir Kakachi le forum
voilà
a+
papou

Sub total()
    Dim i&, fin&
    fin = Feuil1.Range("I" & Rows.Count).End(xlUp).Row
    For i = 2 To fin
        Cells(i, 9) = WorksheetFunction.Sum(Range(Cells(i, 5), Cells(i, 8)))
    Next i
End Sub

EDIT: Bonsoir David, un peu en retard le Papou mais bon !!!!! a+ Papou

 

[kakachi]

Re : completer une macro

Bonsoir david84 et Paritec, le forum

merci pour le code VBA, c'est exactement ce que je souhaitais obtenir !!

Paritec, il y a une faute dans ton code, j'ai remplacer "I" par "E"

et ça fonctionne très bien

A+!!!

 

[A l l i g a t o r 427]

Re : completer une macro

Hello

Une autre façon de faire le job

Sub Macrosomme()
Dim derlig As Long
derlig = [H65536].End(xlUp).Row
With Range("I2:I" & derlig)
    .FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
    .Value = .Value
End With
End Sub

 

[Paritec]

Re : completer une macro

Bonsoir Kakachi le forum
tu as bien fait, je l'avais fait exprès pour voir si tu trouverais l'erreur !!!!!
a+
papou