Discussion :

[dodo28]

Bonjour Le forum

Voici mon probleme si quelqu'un peut m orienter svp

il faut que sur chaque cellule de ma colonne V15:V (Derlig) ( Derlig = Sheets("Lievre").Range("C65536").End(xlUp).Row)
se mette à jour à chaque modification de la cellule $b$4 de cette meme feuille.
En applicant la formule SI la cellule C de la meme ligne est ecrit en rouge:

Code :

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

FormulaR1C1 = "=ROUND((RC[-15]/100*(RC[-1]-(RC[-1]*R4C2/100))),0)"

sinon apliquer la formule :

Code :

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

FormulaR1C1 = "=ROUND(RC[-14]/100*RC[-1],0)"

si quelqu un peu m orienter merci

[diude54]

Met ça dans ta feuille

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
Private Sub Worksheet_change(ByVal target As Range)
 
dim cell as range
application.screenupdating=false
If target=cells(4,2) then
for each cell in column(n° de ta colonne)
if cells(cell.row,3).font.colorindex=3 then 'couleur rouge
cell.value=WorksheetFunction(ROUND((RC[-15]/100*(RC[-1]-(RC[-1]*R4C2/100))),0)
else
cell.value=WorksheetFunction(ROUND(RC[-14]/100*RC[-1],0)
end if
next cell
end if
application.screenupdating=true
end sub

[dodo28]

bonsoir
j ai trouvé cette solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = Range("B4").Address Then
        For Each c In Range("V15", "V" & Range("C65535").End(xlUp).Row)
    If Range("C" & c.Row).Font.ColorIndex = 3 Then
    c.FormulaLocal = "=ARRONDI((G" & c.Row & "/100*(U" & c.Row & "-(U" & 
c.Row & "*$B$4/100)));0)"
    Else
    c.FormulaLocal = "=ARRONDI(H" & c.Row & "/100*U" & c.Row & ";0)"
    End If
         Next
End If
 
End Sub

Mais je garde précieusement la tienne .

merci beaucoup