VBA Comparer deux ranges

[Ortnext]

Bonjour,

Je suis en train d'essayer de faire une macro qui compare un range de donnée à un range de données de références,
Si le nom du fonds correspond à celui du fichier de référence, cela est censé me renvoyer la somme des collecte par Famille.
Ma macro s'éxécute sans erreurs, mais ca ne marche pas...

Quelqu'un peut-il jeter un oeil?

Merci!

Voici le code :

Public Sub TabFamille()

Dim RefSelect As Range
Dim Data As Range
Dim i As Integer
Dim j As Integer


Set RefSelect = Feuil1.Range("C16:C26") ' du Range des Fonds à requêter
Set Data = Feuil2.Range("A2:E" & Feuil2.[E65536].End(xlUp).Row) '

For i = 16 To (16 + RefSelect.Rows.Count)

For j = 2 To (2 + Data.Rows.Count)

If RefSelect.Cells(i, 3).Value = Data.Cells(j, 1).Value Then
If Data.Cells(j, 3).Value = "Diversification" Then
With Feuil1
.Cells(16, 10) = Application.Sum(Range(Feuil1.Cells(16, 5) + Data.Cells(j, 3)))
.Cells(16, 11) = Application.Sum(Range(Cells(16, 6), Data.Cells(j, 4)))
End With

ElseIf Data.Cells(j, 3).Value = "Famille" Then
With Feuil1
.Cells(17, 10) = Data.Cells(17, 5) + Data.Cells(j, 3)
.Cells(17, 11) = Cells(17, 6) + Data.Cells(j, 4)
End With

ElseIf Data.Cells(j, 3).Value = "Multigestion" Then
With Feuil1
.Cells(18, 10) = Cells(17, 5) + Data.Cells(j, 3)
.Cells(18, 11) = Cells(17, 6) + Data.Cells(j, 4)
End With

End If
Feuil1.Cells(19, 10) = Application.Sum(Range(Cells(16, 5), Cells(18, 5)))
Feuil1.Cells(19, 11) = Application.Sum(Range(Cells(16, 6), Cells(18, 6)))
End If
Next
Next
End Sub


ca ne m'affiche que 0 0 ( cells(19,10) et cells(19,11)

 

[Ortnext]

Re : VBA Comparer deux ranges

Bonjour,

J'ai modifié ma progression et j'en profite pour rafraichir le sujet