Bonjour a tous, dans mon module ci après je vais chercher ma ligne 192, mais cette cellule peut se retrouver à bouger avec des insertions de lignes.

Le texte contenu dans ma cellule est le suivant : "MARGE NETTE = MARGE BRUT - DEPENSES"


Je voudrais ne pas avoir a changer ma ligne manuellement a chaque ajout de ligne.

Merci par avance


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
Public Sub mise_a_jour_marge_net()
    Dim i, j As Integer
    Dim annee As String
    annee = Right(Range("b3").Value, 9)
    For i = 4 To 16 Step 4
        For j = i To i + 2
            If Cells(179, i) <> 0 Then
            If ligne_existe(Range("c4").Value, annee, Cells(3, j)) = False Then
                maj_ana_marge Range("c4").Value, annee, Cells(3, j), Cells(4, j), Round(Cells(192, j), 2)
            Else
                update_ana_marge Range("c4").Value, annee, Cells(3, j), Round(Cells(192, j), 2)
            End If
            End If
        Next j
    Next i
End Sub