Microsoft 365 Boucle pour installer des formules ou figer les données

[GADENSEB]

Bonjour Le forum,
je souhaiterais faire 2 boucles

Boucle 1
Si dans la colonne F on a OUI, alors on fige les valeurs de la ligne concernée

Bouble 2
Si Dans la colone F on NON alors (dans la ligne concernée)
Formule dans la colonne b "=A2&" - "&E2"
ET
Fomule dans la colonne E "=D2-C2"

J'ai u peu de mal à la sélection des lignes :
Entiererow....

Merci a vous

bonne am
SEB

 

[sylvanu]

Bonjour GadenSeb,
Un essai avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("F1:F65000")) Is Nothing Then
        If Target = "" Then Exit Sub
        Ligne = Target.Row
        If Target = "OUI" Then
            ' On fige les valeurs en B et E
            Cells(Ligne, "B") = Cells(Ligne, "B").Value
            Cells(Ligne, "E") = Cells(Ligne, "E").Value
        Else
            ' NON on met les formules
            Cells(Ligne, "B").FormulaR1C1 = "=RC[-1]&"" - ""&RC[3]"
            Cells(Ligne, "E").FormulaR1C1 = "=RC[-1]-RC[-2]"
        End If
    End If
End Sub

 

[GADENSEB]

Hello
Cela me semble parfait
Merci bien

bonne am