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
| Dim BB() As Boolean
Sub Macro1()
Dim i As Integer, Tot As Double, g As Integer
Dim LignDep As Integer, LignFin As Integer
Dim Nom As String
LignDep = 4: LignFin = 13 'N° et nombre de ligne à adapter
ReDim BB(4 To 13) 'suivant le nombre de lignes à adapter
Sheets("analyse").Select
'recherche les noms
For i = LignDep To LignFin
If Not BB(i) Then 'ce nom n'a pas encore été traiter
Nom = Cells(i, 1).Value
For g = LignDep To LignFin ' cherche le montant total à déduire
If Cells(g, 1).Value = Nom Then
'met le montant non modifié dans la cellule TB2
Cells(g, 10).Value = Cells(g, 2).Value
BB(g) = True
End If
If Cells(g, 5).Value = Nom Then
Tot = Tot + Cells(g, 6).Value
Cells(g, 14).Value = 0
End If
Next g
Cells(i, 10).Value = Cells(i, 2).Value - Tot
Tot = 0
End If
Next i
End Sub |
