Discussion :

[halaster08]

Bonjour,

Mon responsable m'as demandé de repasser sur environ 130*2 MFC différente pour changer dans les formules <= par < et > par >=
Etant donné qu'a la main ça va être long et pénible je voulais le faire par macro.
Grace notamment au tuto sur les MFC de ce site, je sais faire afficher la formule mais pas la modifier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
 
    modmfc Range("A2")
End Sub
Sub modmfc(Cell As Range)
If Cell.FormatConditions.Count > 0 Then
 
        'Boucle sur les MFC de la cellule
        For Each Fc In Cell.FormatConditions
            MsgBox Fc.Formula1
        Next
End If
End Sub

J'ai trouvé l'existence de FormatConditions.Modify mais je n'arrive pas a le faire marcher, et l'exemple fourni dans l'aide ne m'aide pas du tout.

Si quelqu'un a une piste je suis preneur.
Merci d'avance.

[halaster08]

J'ai trouvé une piste sur un forum anglophone:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
 
    modmfc Range("A2")
End Sub
Sub modmfc(Cell As Range)
If Cell.FormatConditions.Count > 0 Then
 
        'Boucle sur les MFC de la cellule
        For Each Fc In Cell.FormatConditions
            Fc.Modify xlExpression, Formula1:=Replace(Fc.Formula1, ">", "<")
        Next
End If
End Sub

Marche bien.
Mais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
 
    modmfc Range("A2")
End Sub
Sub modmfc(Cell As Range)
If Cell.FormatConditions.Count > 0 Then
 
        'Boucle sur les MFC de la cellule
        For Each Fc In Cell.FormatConditions
            Fc.Modify xlExpression, Formula1:=Replace(Fc.Formula1, ">", ">=")
        Next
End If
End Sub

Renvoie une erreur 5 invalid procedure call or argument. (sur la ligne Fc.modify)
Je comprends pas pourquoi.

Edit: En fait c'est parceque je suis un boulet ...
J'ai du le lancer deux fois par inadvertance, il y avait déjà un "=" donc la formule devenait "a >== b" ce qui générait l'erreur.