LOOP FIND et SUM VARIABLES

**Mazorus** · 10/05/2017, 11h45

Bonjour à tous,

Je bloque sur mon code depuis maintenant plus d'une semaine. Je souhaiterais faire une recherche sur le champs "other bench securities" (que j'introduis au préalable sur chaque ligne dont le level passe de 3 à 4). L'objectif est de faire la somme des W bmk qui ont un level à 4 ET pour lesquels le W ptf est à 0.

Pour chaque "other bench securities" que la macro trouve, je voudrais qu'elle somme tous les W bmk dont le Level est à 4 pour lesquels le W ptf =0 depuis l'ancien "other bench securities". Or je n'arrive pas à faire la boucle de recherche et de somme sur la plage variable.

Voici le code que j'ai entrepris:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub o()
Dim x As Integer
Dim y As Integer
Dim l As Range
 
Cells(1, 1) = Start
 
Do
If x = 1 Then Exit Do
 
For y = 3 To 3
For x = 40 To 1 Step -1
    If Cells(x, y).Value = "3" And Cells(x - 1, y).Value = "4" Then
        Cells(x, y).EntireRow.Select
        Selection.Insert Shift:=xlDown
        Cells(x, 1).Select
 
ActiveCell.FormulaR1C1 = "Other Bench Securities"
 
 
End If
Next x
Next y
 
Loop
 
 
    Columns("A:A").Select
    Selection.Find(What:="other bench sec", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    Selection.FindNext(After:=ActiveCell).Activate
 
Cells(ActiveCell.Row, 4).Select
 
 ActiveCell.FormulaR1C1 = _
       "=SUMIFS(R[-6]C:RC,R[-6]C[-1]:RC[-1],4,R[-6]C[-2]:RC[-2],0)"
  End Sub

Toute aide serait plus que bienvenue ! Merci d'avance pour vos réponses qui me feraient avancer