Mise en forme ligne tableau par VBA

Bonjour.

Peut on appliquer la mise en forme conditionnelle qui est au niveau du tableau par VBA?

Si oui, je voudrais de l'aide.

Ci joint le fichier

Merci par avance

bonjour Sawtappo,

si on ajoute une ligne au tableau, la MFC se copie aussi, non ?

Bonjour.

Oui la mise en forme doit prendre en compte les lignes ajoutées

re,

c'est un tableau structuré, donc, cela se fait tout seul, non ?

Oui c'est un tableau structuré.

Ce que je voudrais c'est utiliser si possible VBA

Bonsoir.

J'ai trouvé la solution pour mettre en gras. Il reste la couleur rouge du texte que je n'arrive pas à appliquer.

Voici le code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

 If Target.Count > 1 Then Exit Sub If Not Intersect(Target, [Tableau1]) Is Nothing Then MFC [Tableau1], Target End Sub 

Sub MFC(Plage As Range, T As Range) With Plage

 On Error Resume Next .FormatConditions.Delete 

 C = "$E" & Plage.Row 'la colonne concernée est E 

 Range(C).Select

.FormatConditions.Add Type:=xlExpression, Formula1:="=" & C & "=" & """Féminin""" .FormatConditions(1).Font.Bold = True 

T.Select

End With

End Sub

Bonsoir Sawtappo, BsAlv , le forum,

Essaies de rajouter:

.FormatConditions(1).Font.Color = vbRed

Sub MFC(Plage As Range, T As Range)
 With Plage
  On Error Resume Next
  .FormatConditions.Delete
   C = "$E" & Plage.Row 'la colonne concernée est E
  .FormatConditions.Add Type:=xlExpression, Formula1:="=" & C & "=" & """Féminin"""
  .FormatConditions(1).Font.Bold = True
  .FormatConditions(1).Font.Color = vbRed
  On Error GoTo 0
  T.Select
 End With
End Sub

Cordialement,

Cool !

Grandement merci