Discussion :

[Kestion100]

Bonjour, je cherche à faire une

Code :

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

sommeprod

en VBA entre deux classeurs.

Je passe par

Code :

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

Evaluate("WorksheetFunction.SumProduct

mais j'obtiens

Code :

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

#VALEUR!

dans la cellule résultat et en passant le curseur de la souris sur:

Code :

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

N.Offset(0, 8).Value

:

Code :

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

Erreur 2015

.

La ligne de code ext:

Code :

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

N.Offset(0, 8).Value = Evaluate("WorksheetFunction.SumProduct(" & "(""" & UAI & "=""" & DEUXRngDEUX.Address & """)*1," & "(""" & Chaine & "=""" & TROISRngTROIS.Address & """)*1" & ")")

Le code pour y parvenir, dans l'ordre:

Code :

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

1
2
Dim DEUXRngDEUX As Range, TROISRngTROIS As Range, DEUXDerniereCellule_LigneDEUX As Double
Dim Chaine As String

Code :

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

DEUXDerniereCellule_LigneDEUX = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row

Code :

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

Set DEUXRngDEUX = Range(Cells(2, 1), Cells(DEUXDerniereCellule_LigneDEUX, 1))

Code :

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

Set TROISRngTROIS = Range(Cells(2, 8), Cells(DEUXDerniereCellule_LigneDEUX, 8))

Code :

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

Chaine = N.Value

Ce code s'inscrit dans une boucle

Code :

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

For Each c in

Si quelqu'un voit quelque chose, je vous remercie d'avance du coup de main

[Kestion100]

Code :

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

N.Offset(0, 8).Value = Application.Evaluate("SUMPRODUCT((DEUXRngDEUX.Address=""" & UAI & """)*(TROISRngTROIS.Address=""" & Chaine & """))")

donne

Code :

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

Erreur 2029

/

Code :

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

#NOM?

[Jean-Philippe André]

SAlut,

tes range ne doivent par apparaitre en dur dans ta formule, essaie avec

Code :

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

N.Offset(0, 8).Value = Application.Evaluate("SUMPRODUCT((" & DEUXRngDEUX.Address &" =""" & UAI & """)*(" & TROISRngTROIS.Address & "=""" & Chaine & """))")

[Kestion100]

PARFAIT!!!!!

Un petit truc avant le "RESOLU":

Si je souhaite compter le nombre d’occurrence d'une chaine, partie des cellules cibles de ma recherche, je tente:

Code :

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

N.Offset(0, 8).Value = Application.Evaluate("SUMPRODUCT((" & DEUXRngDEUX.Address & " =""" & UAI & """)*(" & TROISRngTROIS.Address & "=""" & "*&" & "ABC" & """))")

Mais j'obtiens

Code :

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

0

alors que j'ai bien des

Code :

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

jhskfjrjkghgruoABC

;

Code :

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

zoopzauhvbjvbkABC

;

Code :

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

poibopbrupABC

, vois-tu où est le problème??

[Kestion100]

Et j'ai essayé d'ajouter une condition supplémentaire, de la même façon, évidemment ça plante:

Code :

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

N.Offset(0, 6).Value = Application.Evaluate("SUMPRODUCT((" & DEUXRngDEUX.Address & " =""" & UAI & """)*(" & TROISRngTROIS.Address & "=""" & "*&" & "ABC" & """)*(" & QUATRERngQUATRE.Address & "=""" & "DEF" & "&*" & """))")

[Jean-Philippe André]

Avant de savoir ce que fait le evaluate, essaie de constater par toi meme la formule que tu ecris :

Code :

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

1
2
3
4
Dim strFormule As String
strFormule = "SUMPRODUCT((" & DEUXRngDEUX.Address & " =""" & UAI & """)*(" & TROISRngTROIS.Address & "=""" & "*&" & "ABC" & """))"
Debug.Print strFormule
N.Offset(0, 8).Value = Application.Evaluate(strFormule)