LOOP FIND et SUM VARIABLES
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:
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
