Problème pour écrire Application.SumIf

[blord]

Bonjour à tous,

J'aimerais faire la somme des cellules de la colonne B à la condition que la gauche (8 caractères) des cellules de la colonne A soit 20100715.

ou encore mieux : est-ce que la condition peut être contenue dans un textbox ?

J'ai essayé ceci mais évidemment ça ne fonctionne pas...

Application.SumIf(Left(.Range("A2:A" & .Range("A65536").End(xlUp).Row),8), 20100715, .Range("B2:B" & .Range("B65536").End(xlUp).Row)

Merci pour votre aide...

Blord

 

[kjin]

Re : Problème pour écrire Application.SumIf

Bonsoir,

Sub blord()
With ActiveSheet
    dl = .Range("A65536").End(xlUp).Row
    total = Application.SumIf(.Range("A2:A" & dl), "20100715*", .Range("B2:B" & dl))
End With
MsgBox total
End Sub

Sub blord()
With ActiveSheet
    dl = .Range("A65536").End(xlUp).Row
    total = Application.SumIf(.Range("A2:A" & dl), TextBox1 & "*", .Range("B2:B" & dl))
End With
MsgBox total
End Sub

A+
kjin

 

[blord]

Re : Problème pour écrire Application.SumIf

Bonsoir kjin, le forum,

Merci beaucoup, ça fonctionne très bien !

Bonne fin de soirée...

Blord