Bonjour à tous,
J'ai rédigé une petite macro pour m'aider à modifier les mises en formes conditionnelles de cellules. Cependant, elle fait planter Excel. Voici la macro :
Voilà, est-ce que vous pouvez m'aider s'il vous plaît ?
Merci beaucoup,
Youri
J'ai rédigé une petite macro pour m'aider à modifier les mises en formes conditionnelles de cellules. Cependant, elle fait planter Excel. Voici la macro :
Code:
Option Explicit
Sub mefc_contacts()
Dim formule_inserer_1 As Variant
Dim formule_inserer_2 As Variant
Dim formule_inserer_3 As Variant
Dim Plage As String
Dim Plage_formule_inserer_1 As String
Dim Plage_formule_inserer_2_et_3 As String
Dim cellule_changer As Range
Plage = Selection.Cells(1, 1).Address & ":" & Selection.Cells(14, 10).Address
Plage_formule_inserer_1 = Selection.Cells(2, -19).Address & ":" & Selection.Cells(14, -10).Address
Plage_formule_inserer_2_et_3 = Selection.Cells(2, -9).Address & ":" & Selection.Cells(14, 0).Address
formule_inserer_1 = "=ET(testcellules(" & Plage_formule_inserer_1 & ")=FAUX;testcellules(" & Plage_formule_inserer_2_et_3 & ")=FAUX)"
formule_inserer_2 = "=ET(testcellules(" & Plage_formule_inserer_1 & ")=VRAI;testcellules(" & Plage_formule_inserer_2_et_3 & ")=FAUX)"
formule_inserer_3 = "=ET(testcellules(" & Plage_formule_inserer_1 & ")=VRAI;testcellules(" & Plage_formule_inserer_2_et_3 & ")=VRAI)"
'MsgBox "Résumé :" & vbCrLf & "Plage Sélection : " & Plage & vbCrLf & _
'"Formule 1 : " & formule_inserer_1 & vbCrLf & _
'"Formule 2 : " & formule_inserer_2 & vbCrLf & _
'"Formule 3 : " & formule_inserer_3
For Each cellule_changer In Range(Plage)
cellule_changer.FormatConditions(1).Modify xlExpression, , formule_inserer_1
cellule_changer.FormatConditions(2).Modify xlExpression, , formule_inserer_2
cellule_changer.FormatConditions(3).Modify xlExpression, , formule_inserer_3
Next cellule_changer
End Sub
Merci beaucoup,
Youri