Discussion :

[Invité]

Bonjour,
Avec VBA, au départ d'une liste, je crée un fichier de numéros de téléphone.
Noms! triée sur Noms et prénoms
Prenoms! triée sur Prénoms et noms
Sauvetage! est une copie (invisible) de Noms!

J'aimerais installer une mise en forme conditionnelle sur les cellules de Nom! : si Nom!$X$n <> Sauvetage!$X$n alors CouleurTexte(Nom!$X$n)=3 (rouge)

Comment faire ?

Code :

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

1
2
3
4
5
6
7
With wsNoms.Range("A1")
    .FormatConditions.Add Type:= xlNotEqual, Formula1:= ??
 
        With FormatCondition(1)
                .Font.Color = 3 ' rouge
        End With
End With

Merci de votre aide.
Je suis au bureau, j'ai aussi d'autres choses à faire, il est donc possible que je ne réagisse pas de suite à une réponse.