Modifier la valeur de la MFC par macro

[Evelynetfrancois]

bonsoir forum !

quelle macro permettrait de modifier une MFC
j ai
" la valeur de la cellule est egale à 45 "..........>M en Forme
je voudrais pouvoir modifier ce "45"

jespere etre clair
merci pour vos tuyaux

E et F

 

[Pierrot93]

Re : Modifier la valeur de la MFC par macro

Bonsoir EvelynetFrancois


Tu peux essayer un code comme celui ci dessous pour modifier la plage selectionnée :

    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="45"
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
    End With
    Selection.FormatConditions(1).Interior.ColorIndex = 48

Bonne soirée
@+

 

[Evelynetfrancois]

Re : Modifier la valeur de la MFC par macro

OUPS pierrot
je me suis peut etre mal exprimer

j ai dans ma mise en forme
" la valeur de la cellule est egale à 45 "

et là je voudrais rajouter 1 à 45 pour passer à 46
mais tout ca avec une ligne de macro

merci pour tout
E et F

 

[Gorfael]

Re : Modifier la valeur de la MFC par macro

OUPS pierrot
je me suis peut etre mal exprimer

j ai dans ma mise en forme
" la valeur de la cellule est egale à 45 "

et là je voudrais rajouter 1 à 45 pour passer à 46
mais tout ca avec une ligne de macro

merci pour tout
E et F

Salut
un fichier d'essai avec la MFC de départ et celle d'arrivée te ferait gagner du temps
Range("A1").FormatConditions(1).Modify xlCellValue, xlEqual, Formula1:="46"

A+

 

[Evelynetfrancois]

Re : Modifier la valeur de la MFC par macro

V oila j ai trouve la soluce
comme le chiffre 45 correspond a mon nombre de feuilles qui sont cocernées et visibles !!
et que ce nombre change
j ai donc ecris

Sub Macro1()
Range("T5").Select ' cell avec MFC
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:=Sheets.Count - 13
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 6
End With
Selection.FormatConditions(1).Interior.ColorIndex = 50
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:=Sheets.Count - 13
Selection.FormatConditions(2).Interior.ColorIndex = 3
End Sub


merci pour tout

E et F