boucle sur mise en forme conditionnelle

[Attila451]

Bonjour,
Je dois vérifier des données entre 2 feuilles, a1 feuil 2 doit etre = a1 feuil1, a2 feuil 2 doit etre = a2 feuil1 ainsi de suite, puis ensuite passer à la colonne B, C ect..
J'ai enregistré manuellement la macro car je dois appliquer la mise en forme conditionnelle sur plusieurs colonnes, en dupliquant ensuite et en modifiant le nom des colonnes, ça marche mais ça reste artisanal. Surtout si j'ai une 50aine de colonnes...

Je cherche à créer une boucle, donc j'ai repris la macro enregistrée manuellement et j'essaie de modifier la routine mais je n'arrive même pas à lancer la boucle car j'ai un "attendu fin d'intruction" :

Sub BOUCLE()
Dim num_col As Long
num_col = 1

While Cells(1, num_col) <> ""
Cells(1, num_col).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SI(sheets("Feuil2").cells(1,num_col)=sheets("Feuil1").cells(1,num_col);FAUX;VRAI)"

Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False


num_col = num_col + 1
Wend

End Sub

Merci d'avance pour votre aide !

 

[mapomme]

Bonsoir Attila451,

Une piste dans le fichier joint sans boucle:

Sub MFC()
  With Sheets("Feuil2").Range("a1").CurrentRegion
    With .FormatConditions
      .Delete
      .Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="=Feuil1!A1"
    End With
    .FormatConditions(1).Interior.Color = RGB(255, 0, 0)
  End With
End Sub

 

[Attila451]

Bonsoir,
Merci pour la piste !
Bonne soirée