XL 2019 recuperer le numero de ligne pour l'intègrer a une formule est ce possible ?

[Cyr39]

Bonsoir a tous.
je galère pas mal sans trouver de solution..
auriez vous une idée ? et merci d'avance

Private Sub CommandButton11_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim R As Range 'déclare la variable R (Recherche)
Dim LI As Long 'déclare la variable LI (LIgne)

Set O = Worksheets("Fiches Techniques Prépa") 'définit l'onglet O (à adapter à ton cas)
Set R = O.Range("$B$6:B4006").Find("B" & Rows.Count).End(xlUp) 'définit la recherche R (recherche la valeur entière de la TextBox1 dans la colonne 2 (=B) de l'onglet O
If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
LI = R.Row 'définit la ligne LI de la première occurrence trouvée
O.Cells(LI, 32).Value ="=SI(AD" & LI &"="";"";AD"& LI & "-(AG" & LI & "+AH" & LI "))""
End If
Set O = Nothing
Set R = Nothing

MultiPage1.Value = 0
End Sub

 

[Dranreb]

Bonsoir.

O.Cells(LI, 32).FormulaR1C1 = "=IF(RC30="""","""",RC30-(RC33+RC34))"