Vba faire somme d'une rechercheV

[Arpette]

Bonsoir à toutes et à tous,
avec l'aide de Softmama et de vous tous j'arrive à la fin de mon application. Il me reste à mettre dans une variable le résultat d'une (rechercheV), toutes les valeurs trouvées à la fin de la boucle. Le fichier joint est plus parlant.
Je suis désolé pour Softmama qui doit certainement chercher, mais je suis obligé d'ouvrir un nouveau post.
Merci de votre aide et encore, merci Softmama.

 

[supercrapaud]

Re : Vba faire somme d'une rechercheV

Tu peux juste utiliser une fonction somme.si avec comme référence la donnée que tu cherches.

 

[kjin]

Re : Vba faire somme d'une rechercheV

Bonsoir,

Sub testV()
With Sheets("5-17")
    Set rng1 = .Range("F2:K" & .Range("F65536").End(xlUp).Row)
End With
With Sheets("5-9-12")
    Set rng2 = .Range("B2:B" & .Range("B65536").End(xlUp).Row)
    For Each c In rng2
        c.Offset(, 4) = Application.SumIf(rng1.Columns(1), c, rng1.Columns(6))
    Next
End With

End Sub

A+
kjin

 

[Arpette]

Re : Vba faire somme d'une rechercheV

Bonsoir,

Sub testV()
With Sheets("5-17")
    Set rng1 = .Range("F2:K" & .Range("F65536").End(xlUp).Row)
End With
With Sheets("5-9-12")
    Set rng2 = .Range("B2:B" & .Range("B65536").End(xlUp).Row)
    For Each c In rng2
        c.Offset(, 4) = Application.SumIf(rng1.Columns(1), c, rng1.Columns(6))
    Next
End With

End Sub

A+
kjin

Bonsoir kjin, juste deux mots, bravo et merci.
@+