Discussion :

[2lester]

Bonjour,

J'ai besoin d'inclure la fonction SOMMEPROD dans une procédure vba avec des plages de recherche variables.

Pour explication voici ci-dessous la fonction que j'utilise et telle que je l'écrirais de façon classique sur xls :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=SOMMEPROD((Feuil1!$B$1:$B$1458=$A2)*(Feuil1!$I$1:$Z$1458="toto"))

La difficulté que je rencontre réside dans le fait que mes plages de recherche ne font pas toujours 1458 lignes...

Je ne sais pas comment introduire cette contrainte dans le code vba ci-dessous ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
"=SUMPRODUCT((Feuil1!R1C2:R1458C2=RC1)*(Feuil1!R1C9:R1458C26=""toto""))"

Par ailleurs comment coder dans la procédure le fait que certaines des lignes et colonnes de mes plages de recherche sont vérouillées ?

Merci par avance pour votre aide

[jfontaine]

Bonjour,

ci dessous une méthode avec la variable i

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim i As Long
 
i = 1458
 
Range("A1").FormulaLocal = "=SOMMEPROD((Feuil1!$B$1:$B$" & i & "=$A2)*(Feuil1!$I$1:$Z$" & i & "=""toto""))"

Si 1458 correspond à la dernière ligne de la colonne B lors on peut alimenter i de cette manière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

i = Range("B" & Rows.Count).End(xlUp).Row

[2lester]

Impeccable !!!
Merci Jérôme