Recherche V couplé à une Somme - VBA

Bonjour,

Je suis débutante en VBA et travaille sur un doc confidentiel (pas de PJ, dsl). Voici le défi, si vous l'acceptez :

J'ai deux colonnes dans un gros tableau qui m'intéresse (une en E et une en L).

La colonne E donne des références (ex : "vitesse de production", "efficacité" ...) et la colonne L donne des notes.

Je souhaite avoir la somme des notes de la colonne L pour chaque référence.

Le hic! est que les références reviennent sur plusieurs lignes, ce qui génère plusieurs notes (d'où la nécessité d'avoir une somme à la fin). Le résultat de cette somme doit apparaître dans un autre onglet en C3, d'où "RProd.Cells(3,3)" dans mon code VBA.

J'ai essayé le code suivant, sans grand espoir ... :/

Help me please

Rosine

Sub Vprod1()

Dim CF As Worksheet
Set CF = Worksheets("Conception Fonctionnelle")
Dim RProd As Worksheet
Set RProd = Worksheets("Rating Productivité")

Dim i As Integer
Dim n As Integer
n = CF.UsedRange.Rows.Count - 1

For i = 1 To n

If CF.Cells(i + 1, 5).Value = "Vitesse de productivité" Then

RProd.Cells(3, 3).Value = CF.Sum(i + 1, 12)

End If

Next

End Sub

Bonjour,

Pourquoi ne pas utiliser la formule SOMME.SI ou SOMME.SI.ENS ?

Cdlt,

Bonjour,

A tester.

Sub Vprod1()
Dim CF As Worksheet, RProd As Worksheet
Dim I As Long, n As Long
Dim X As Double
    Set CF = Worksheets("Conception Fonctionnelle")
    Set RProd = Worksheets("Rating Productivité")
    n = CF.UsedRange.Rows.Count - 1
    For I = 1 To n
        If CF.Cells(I + 1, 5).Value = "Vitesse de productivité" Then
            X = X + Cells(I + 1, 12)
        End If
    Next
    RProd.Cells(3, 3).Value = X
End Sub

Ben ouais, tout simplement ... x)

Merci beaucoup !!

Bonne journée,

Rosine