boucle sur mise en forme conditionnelle

Attila451

XLDnaute Occasionnel
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 !
 

Pièces jointes

  • Boucle mise en forme conditionnelle.xlsm
    14.1 KB · Affichages: 30

mapomme

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • Attila451- MFC- v1.xlsm
    18.2 KB · Affichages: 29

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof