Discussion :

[Sermag]

Bonjour,

Je suis débutant dans le code et donc pas trop alaise.
Je chercher à réaliser une macro qui fait la mise en forme conditionnel "égal à" d'une cellule active avec la cellule de gauche et que la fonction se répète à un nombre de cellule suivante que je définirais.

Merci pour aide

Sermag

[ARTURO83]

Bonjour,

Comme je ne connais pas la structure de votre tableau, j'ai fait comme si c'était un tableau classique, si par contre vous utilisez un tableau structuré il vous faudra adapter quelques lignes (DerLig, Plage_MFC).
Le code pour ce que vous demandez:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub MFC()
    Dim Plage_MFC As Excel.Range, FC As Excel.FormatCondition
    Dim DerLig As Long
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Range("B2").Select 'sélectionnez la première cellule sur laquelle doit s'appliquer la MFC
    Set Plage_MFC = Range("B2:B" & DerLig) 'la plage complète sur laquelle doit s'appliquer la MFC
    Plage_MFC.FormatConditions.Delete 'on efface les MFC existantes
    Set FC = Plage_MFC.FormatConditions.Add(Type:=xlExpression, Formula1:="=$B2=$A2") 'application de la formule en MFC, ici, vérifie si la cellule B = la cellule A
    FC.Interior.Color = RGB(146, 208, 80) 'application de la couleur de fond vert clair comme format conditionnel
    FC.Font.Color = RGB(255, 255, 255) 'application de la couleur de police en blanc comme format conditionnel
    Set Plage_MFC = Nothing ' on libère la mémoire
    Set FC = Nothing
End Sub

Cdlt