Bonsoir à tous,
J'ai une question concernant les MFC.
créer des MFC dans une cellule j'y suis arrivé :
Mais peut on en Vba récupérer la valeur numérique pour laquelle une MFC est vraie dans une cellule ?
par exemple si :
si<5 alors cellule en rouge, je voudrais récupérer 5.
J'ai essayé comme ceci :
Mais ça ne fonctionne pas !
Merci par avance pour vos aides
J'ai une question concernant les MFC.
créer des MFC dans une cellule j'y suis arrivé :
Code:
Range("O" & df).Select
With ThisWorkbook.Worksheets(1).Range("O" & df)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=ET(N" & df & "<=" & s & ")"
.FormatConditions(1).Interior.ColorIndex = 3
End With
With ThisWorkbook.Worksheets(1).Range("O" & df)
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=ET(N" & df & " >= " & d & ";N" & df & "<" & X & ")"
.FormatConditions(2).Interior.ColorIndex = 46
End With
With ThisWorkbook.Worksheets(1).Range("O" & df)
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=ET(N" & df & " >= " & X & ")"
.FormatConditions(3).Interior.ColorIndex = 4
End With
With ThisWorkbook.Worksheets(1).Range("O" & df)
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=ET(N" & df & "=" & e & ")"
.FormatConditions(4).Interior.ColorIndex = 1
End WithMais peut on en Vba récupérer la valeur numérique pour laquelle une MFC est vraie dans une cellule ?
par exemple si :
si<5 alors cellule en rouge, je voudrais récupérer 5.
J'ai essayé comme ceci :
Code:
Cells(df, 15).Select
Set fgg = Cells.FormatConditions(1).AppliesTo.Cells(df, 15)
Formula = Application.ConvertFormula(Formula, xlA1, xlR1C1, , firstCell)
Formula = Application.ConvertFormula(Formula, xlR1C1, xlA1, , cellRange)Mais ça ne fonctionne pas !
Merci par avance pour vos aides
Dernière édition: