[RÉSOLU] VBA : sommeprod et derniere ligne variable

[dionys0s]

Salut le forum !


J'ai un soucis avec le code suivant
Je ne sais pas comment modifier toutes les matrices de ma fonction sommeprod pour remplacer 9999 par ma variable DerLign. Je me perd entre les " et les &.

D'avance merci pour votre aide !!

 Feuil1.Visible = True
    Feuil1.Select

    Dim DerLign As Integer

    DerLign = Range("A65536").End(xlUp).Row

    Feuil15.Select
    Range("C9").Select

    While Not ActiveCell.Offset(0, -1) = ""
    While Not ActiveCell.Offset(0, -1) = "Total"

    ActiveCell.Formula = _
        "=SUMPRODUCT(('Datas CA'!R2C2:R9999C2='Calcul CA'!RC2)*(('Datas CA'!R2C1:R9999C1='Calcul CA'!R4C3)+('Datas CA'!R2C1:R9999C1='Calcul CA'!R4C4)+('Datas CA'!R2C1:R9999C1='Calcul CA'!R4C5)+('Datas CA'!R2C1:R9999C1='Calcul CA'!R5C5)+('Datas CA'!R2C1:R9999C1='Calcul CA'!R4C6)+('Datas CA'!R2C1:R9999C1='Calcul CA'!R5C6)+('Datas CA'!R2C1:R9999C1='Calcul CA'!R4C7)+('Datas CA'!R2C1:R9999C1='Calcul CA'!R4C8)+('Datas CA'!R2C1:R9999C1='Calcul CA'!R4C9))*('Datas CA'!R2C7:R9999C7))"

    ActiveCell.Offset(1, 0).Select

    Wend

    Range("D9").Select

    Wend

 

[Pierrot93]

Re : VBA : sommeprod et derniere ligne variable

Bonjour,

essaye peut être comme ceci :

ActiveCell.Formula = _
        "=SUMPRODUCT(('Datas CA'!R2C2:R[B][COLOR="Red"]" & DerLign & "[/COLOR][/B]C2='Calcul CA'!RC2)*

bon après midi
@+

 

[dionys0s]

Re : VBA : sommeprod et derniere ligne variable

Merci beaucoup !