Macro sous conditions

[Atiom]

Bonsoir le forum

Je souhaiterais avoir un petit coup de main pour une macro.

Je souhaiterais obtenir une somme des colonnes dans une plage, mais sous la condition de la colonne B.

Je mets une petite pièce jointe avec plus de détails.

Merci de votre aide

 

[kjin]

Re : Macro sous conditions

Bonsoir,
Une solution simple

Sub SomColonne()
For i = 11 To [B65000].End(xlUp).Row
    Range("N" & i) = Application.Sum(Range("D" & i), Range("F" & i & ":H" & i), Range("J" & i & ":K" & i))
Next
End Sub

A+
kjin

 

[tototiti2008]

Re : Macro sous conditions

Bonjour Atiom,

à tester :

Sub SommeListe()
Dim i  As Long
    For i = 11 To ActiveSheet.Range("B65536").End(xlUp).Row
        ActiveSheet.Range("N" & i).Value = Application.WorksheetFunction.Sum(ActiveSheet.Range("D" & i & ",F" & i & ":H" & i & ",J" & i & ":K" & i))
    Next i
End Sub

Edit : Bonjour kjin, même inspiration 😉

 

[Atiom]

Re : Macro sous conditions

Bonsoir,

Impeccable.
Les deux solutions fonctionnement parfaitement
Merci vos deux.🙂

Bonne nuit bonne fête de fin d’année.