Gérer plusieurs feuilles avec somme prod

  • Initiateur de la discussion Initiateur de la discussion lutha
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lutha

XLDnaute Nouveau
Bonjour,

Je but sur un petit problème depuis quelques heures... Voila, j'essai de faire une macro vba qui fais la somme prod en fonction de deux critères mais cette macro va chercher le résultat sur un classeur "essai1" mais la macro est tapé dans un autre classeur "classeur vierge essai". Les résultats de la somme prod sont aussi à afficher dans ce classeur mais ça c'est un autre problème...

Je vous donne où j'en suis:

Code:
Sub Essai()
cible = "*Vincent CRIGNIER"
With Workbooks("essai1.xls")
While cible = True
resultat = ActiveCell.Formula = SumProduct(Left(essai1.xls!D, 3) = "RR-") * Left(essai1.xls!E, 3) = "OV-"
resultat = MsgBox
Wend
End With
End Sub

Le truc c'est que j'ai un message d'erreur de type "Su ou function non definie" et je comprend pas ce qui cloche..😕😕

Avez vous besoin des fichiers ?

Je vous remercie de votre précieuse aide par avance 😀
Lutha
 
Re : Gérer plusieurs feuilles avec somme prod

Bonjour,

ta syntaxe n'est pas bonne

Code:
Sub Essai()
cible = "*Vincent CRIGNIER"
With Workbooks("essai1.xls")
While cible = True
resultat = ActiveCell.Formula = "=SumProduct(Left(essai1.xls!D, 3) = ""RR-"") * Left(essai1.xls!E, 3) = ""OV-"""
MsgBox resultat
Wend
End With
End Sub

activecell.formula = "Chaine de caractères telle que tu la taperais dans la cellule Excel
en sachant que les guillemets " doivent être doublés
explication: un " en excel devient "" en vba

et la ligne resultat=msgbox est incorrecte:
il faut écrire msgbox resultat
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour