Discussion :

[tidav4]

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

[Invité]

Bonjour,
donnes un nom à ta cellule

Code :

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

MsgBox "Ligne : " &  range("TOTO").Row & " Colonne : " &  range("TOTO").Column

[unparia]

Bonjour
Nomme donc cette cellule et réfère-t'y en invoquant son nom ou réfère-toi à la propriété row de la cellule ainsi nommée.
Soit titi, le nom attribué à cette cellule :

Code :

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

Range("titi").Row

sera toujours la ligne, insertions faites ensuite ou non, de la ligne contenant cette cellule.

EDIT : Bonjour Robert. Désolé (croisés) j'ai validé ma réponse après un coup de fil pendant que j'écrivais.
Amitiés

[tidav4]

Parfait merci pour ces réponses très rapides.

Étant en début de formation il me manque quelques notions.

J'ai renommé ma cellule MARGE_NET mais je ne sait pas vraiment comment aller chercher celle-ci en VBA

(je remplace seulement "192" par "MARGE_NET" ? (je ne pense pas)

Encore merci par avance de votre attention

[goldstar]

Bonjour,

Code :

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

1
2
3
dim ligneCible as long
 
ligneCible=Range("MARGE_NET").row

Ensuite dans ton code tu remplace 192 par ligneCible

Cordialement

[tidav4]

Cool c'est parfait bonne journée a vous