Astuces Excel
  1. Astuces Excel
  3. La formule SUMIF ne donne pas la bonne réponse dans excel vba
Intereting Posts
Fonction ronde (feuille de calcul une) dans Excel Python xlwt crée un livre Excel défectueux bouclez différentes options de filter dans Excel Macro VBA – Impossible de cliquer sur un lien sur le site Comment écrire des données dans le file Excel existant en utilisant java Reverse Index / Match – ou – sauter 1 cellule dans Index / Match Améliorer les performances de la création de file Excel Excel VBA – appel ou argument de procédure invalide (erreur 5) Fonction IF sur une sélection de cellules Sélectionnez l'en-tête de colonne si la cellule est une formule Problèmes d'interopération sur SQL Server 2008 R2 Excel – Copier vers la gauche si cellule vide Comparaison du contenu de la colonne dans Excel Erreur Excel Open XML: "trouvé un contenu illisible" lors de l'ajout de cellules au model Expression régulière validant un hyperlink pour l'export vers Excel

La formule SUMIF ne donne pas la bonne réponse dans excel vba

J'utilise cette formule SUMIF mais ça me donne une mauvaise sortie. Est-ce que quelqu'un peut m'aider? J'ai vérifié beaucoup de fois mais je ne peux pas find l'erreur! Merci d'avance! 

Range("B10", Range("B10").Offset(0, -1).End(xlDown).Offset(0, 1)).Formula = _ "=SUMIF('[" & Dest_name & "]Cu Part PVO L'!$M$10:$M$2000,A10," & _ "'[" & Dest_name & "]Cu Part PVO L'!$AD$10:$AD$2000)" [Output][1]

Pour clarifier ma seule approche VBA, voici un problème: 

 Dim i as Long DIM wb as Workbook SET wb = Applications.Workbooks.Open(Dest_Name) 'Dest_name would need to be the full file 'path, ie C:\<Folder 1>\<Folder 2>\....\<File Name>.<file extension> Dim CPPL as Worksheet Set CPPL = Workbooks(Dest_Name).Worksheets("Cu Part PVO L") Dim v as Ssortingng 'change the type based on what's in A10 v = Range("A10").Value Dim t as long i = 10 Do While i < 2001 If CPPL.Range("M" & i).value = v THen t = t + CPPL.Range("AD" & i).value End if i = i + 1 Loop Range("B10", Range("B10").Offset(0, -1).End(xlDown).Offset(0, 1)).Value = t

En tant que bonus supplémentaire, de cette façon, si Dest_Name n'est pas ouvert, les valeurs seront toujours affichées au lieu d'une erreur.