XL 2016 MFC en VBA excel 2016

[Scorpio]

Salut à tous,
Dans le code "Texte", que j'ai fait avec , "Enregistrer une macro"
J'aimerais colorier le mot "Donné" et "Envoyé", en même temp.
Lorsque je laisse dans le code, l'un des 2 mots, cela marche, mais pas les 2 a la fois.
Est-ce que quelqu'un, s'il vous plaît pourrais m'informer du soucis.
Merci et à plus.

 

[phlaurent55]

Bonjour Scorpio,

essaie ceci:

Sub Texte()
    Sheets("Feuil1").Select
    Range("D1:D10").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=D1<>"""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("C1").Select
End Sub

à+
Philippe

 

[Scorpio]

Bonjour phlaurent55,
Merci de votre aide, je crois que j'ai oublié de préciser , que c'est le MFC seulement pour ces 2 mots "Donné et Envoyé"
et pas pour le reste.
A+++

 

[mapomme]

Bonjour à tous,

Essayez :

Sub Texte()
  With Feuil1.Range("d:d").FormatConditions
    .Delete
    With .Add(Type:=xlExpression, Formula1:="=(D1=""Donné"")+(D1=""Envoyé"")")
      .SetFirstPriority
      .StopIfTrue = False
      .Interior.PatternColorIndex = xlAutomatic
      .Interior.Color = 13551615
      .Interior.TintAndShade = 0
      .Font.Color = -16383844
      .Font.TintAndShade = 0
    End With
  End With
End Sub

rem : on efface les précédentes MFC de la colonne D pour avoir une MFC 'propre'. Si on ne le veut pas, effacer la ligne .Delete.

 

[Scorpio]

Bonjour mapomme,
OK, super, merci beaucoup de votre aide
C'est parfait