Astuces Excel
  1. Astuces Excel
  3. Utilisation des fonctions de boucle et de sum avec Vlookup
Intereting Posts
Excel VBA: Supprimez la ligne entière si la cellule de la colonne A est vide (Long Dataset) classnotfoundexeption: org.apache.poi.ss.usermodel.row Besoin d'aide pour résoudre un vba Erreur '1004' après l'édition d'une section de code Comment faire pour que la feuille de calcul returnne sa propre valeur – 1? Comment est-il possible en utilisant une macro pour rouvrir le classur et la suppression du sous-livre de travail privé Courrier électronique dynamic via Outlook Python, boucle d'instructions tirant d'excel La formule donne une mauvaise sortie Dynamic Milestone Trend Analysis Graph nécessite le même axe de Y que l'axe des x dans Excel avec VBA Suppression de toutes les 2ème et 3ème rangées en utilisant VBA Lecture du file MS Excel à partir de SQL Server 2005 Impossible d'get des caractères corrects d'Excel (formaté utf8) dans PHP Excel 2013 vba – Refresh Pivot Tables – Loop PowerShell | OLEDB | Excel | Impossible de lire datatables de XLSX créées à partir d'une application tierce Si la valeur n'est pas trouvée, affichez "-"

Utilisation des fonctions de boucle et de sum avec Vlookup

J'ai une macro qui search essentiellement la colonne C dans Sheet1 pour la valeur "Rec" et copy la valeur correspondante dans la colonne D, puis la passe dans la dernière cellule ouverte dans la colonne B de Sheet2. Il fait exactement ce qu'il est censé faire et est comme suit: 

Sub FindPasteGSVInNextCell() Worksheets("Sheet2").Activate Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = _ WorksheetFunction.VLookup("Rec", Sheet1.Range("C2:H25"), 2, False) End Sub

Je souhaite maintenant que le code, au lieu de simplement searchr une seule valeur "Rec", search toutes les lignes avec "Rec" dans la colonne C et résumer toutes leurs valeurs correspondantes dans la colonne D, puis placez cette sum dans Sheet2.

Je suppose que j'ai besoin d'une sorte de boucle Do Until ou quelque chose, mais je ne sais pas exactement comment le formater … Je suis un débutant avec VBA, donc toute aide serait grandement appréciée.

Vlookup ne fonctionnera pas, car il continuera à ne saisir que la première instance de "Rec".

Sur la feuille 2, énumérez toutes les catégories possibles dans la colonne A puis dans la colonne B1 mettez 

  = sumif(Sheet1!C:C,A1,Sheet1!D:D)

puis copyz-le. Cela vous procurera les totaux par catégorie.

Si vous souhaitez utiliser VBA, vous aurez besoin d'une list de configuration de catégories quelque part, soit codées en dur, soit listées quelque part que vous pouvez effectuer.

Si votre list se trouvait dans la colonne A sur Sheet2, vous voudriez: 

 dim ws as worksheet set ws = Worksheets("Sheet2") For each i in ws.range(ws.Range("A1"),ws.Range("A1").offset(xldown)).Cells i.offset(,1) = WorksheetFunction.Sumif(Worksheets("Sheets1").Range("C:C"), _ i,Worksheets("Sheets1").Range("D:D")) next i