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 |
Partager