Modif macro calcul

Bonjour,

j'aurais besoin d'aide pour modifier une macro de calcul. Grâce à des macros j'extrais 3 colonnes suivant une période de recherche (N° cde, nom client et création). Ensuite une macro supprime les lignes en doublons afin de ne garder d'un N°cde et nom client. je souhaite modifier ma macro afin de faire le calcul suivant: la somme du produit colonne K*H dont la date de création est comprise dans la période de recherche. Actuellement elle fait la somme totale.

Je joint un fichier à titre illustration (sans macro et simplifié afin qu'il ne soit pas trop lourd).

Merci par avance

Sub CALCUL_PRIX()
Dim WsC As Worksheet, WsS As Worksheet
Dim Ligne As Long
Dim Tablo As Variant
Dim Ctr As Double
Dim i As Integer, j As Integer
Dim Compar As String
    Set WsC = ActiveSheet
    Set WsS = Worksheets("DONNEES Idcc DETAIL")
    With WsS
        Tablo = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 11)
    End With
    For Ligne = 6 To WsC.Range("A" & Rows.Count).End(xlUp).Row
        Compar = WsC.Cells(Ligne, 1)
        Ctr = 0
        For i = 1 To UBound(Tablo)
            If Tablo(i, 1) = Compar Then
                Ctr = Ctr + Tablo(i, 11) * Tablo(i, 8)
            End If
        Next i
        WsC.Cells(Ligne, 4) = Ctr
    Next Ligne
End Sub

Bonjour

Sub px()

    Dim debut As Date, fin As Date
    debut = CLng(Feuil2.[C1])
    fin = CLng(Feuil2.[E1])
    a = Feuil1.UsedRange

    For j = 6 To Feuil2.UsedRange.Rows.Count
        C = 0
        For i = 2 To UBound(a)
            If CInt(Feuil2.Cells(j, 1)) = CInt(a(i, 1)) Then
                If CLng(a(i, 6)) >= debut And CLng(a(i, 6)) <= fin Then
                    C = C + a(i, 8) * a(i, 11)
                End If
            End If
        Next
        Feuil2.Cells(j, 4) = C
    Next

End Sub

Bonjour,

j'ai essayé la macro mais un message syntaxe error apparait.

Quelqu'un pourrait-il me donner un coup de main parce que je ne m'y connait pas trop en syntaxe pour vba. N'y en macro d’ailleurs.

De plus est-ce qu'il n'y a pas une écriture particulière pour les feuilles? (ma feuille 2 s'appelle FILTRES CRÉATION)

Au revoir

Bonjour,

Un exemple de résolution.

Cdlt.

merci pour votre solution mais je la trouve un peu complexe pour l'adapter à mon cas.

Il faudrait que je puisse utiliser la macro de Wilder.

Le soucis c'est que je ne dois pas avoir la bonne syntaxe. ma feuille de donnée s'appelle "DONNEES Idcc DETAIL" et ma feuil2 s'appelle "FILTRES CREATION".

si quelqu'un peut me donner un petit coup de main.

merci