boucle sur mise en forme conditionnelle

Attila451 · 14 Mai 2017

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 · 14 Mai 2017

Bonsoir Attila451,

Une piste dans le fichier joint sans boucle:

VB:

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 · 14 Mai 2017

Bonsoir,
Merci pour la piste !
Bonne soirée

boucle sur mise en forme conditionnelle

Attila451

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Attila451

XLDnaute Occasionnel

Discussions similaires