Aide sur règle conditionnel (coloriser une cellule par une liste) Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Shenzar
Jeune membre
Jeune membre
Messages : 47
Inscrit le : 17 septembre 2019
Version d'Excel : 2019

Message par Shenzar » 20 octobre 2019, 02:15

Bonjour,

J'aurai besoin de vous je sèche sur une formule, j'aurai besoin de votre aide

J'ai une liste de personnes présente

Une autre liste de la totalité des personnes d'un groupe

J'aimerai que dans la liste du bas la cellule deviens rouge si son numéro est présent dans la liste du haut

Sa a fonctionner pour la première cellule mais sa ne s'applique pas au reste, y a surement un petit truc à faire mais je sèche j'ai essayer beaucoup de choses, je me doute que la réponse est pas loin

Merci de votre aides :)
01.JPG
n
njhub
Membre impliqué
Membre impliqué
Messages : 1'406
Appréciations reçues : 79
Inscrit le : 5 juin 2017
Version de Calc : LO 6352 FR-YT

Message par njhub » 20 octobre 2019, 09:21

Bonjour Shenzar,

essayez avec une formule du type :
=SI(ESTNUM(EQUIV(E43;B$6:B$35;0)))
à étendre de E43 jusqu'en E240
Avatar du membre
Shenzar
Jeune membre
Jeune membre
Messages : 47
Inscrit le : 17 septembre 2019
Version d'Excel : 2019

Message par Shenzar » 20 octobre 2019, 13:25

Bonjour à toi,

Merci pour ton aide, mais j'ai un message d'erreur qui me demande si je tape une formule et qu'il faut surement rajouter quelque chose :)

Merci pour ton aide
Avatar du membre
Shenzar
Jeune membre
Jeune membre
Messages : 47
Inscrit le : 17 septembre 2019
Version d'Excel : 2019

Message par Shenzar » 20 octobre 2019, 14:01

Sinon que pense tu de passer par vba est ce plus lourd ou pas ?
Sub Trouver()
' Macro1 Macro
'
'
Application.ScreenUpdating = False


Set F1 = Worksheets("repart")

With F1
Set Plage = .Range("E43:E240")

End With

For Z = 6 To 36 Step 1

For Each cell In Plage

cell.Select
If cell.Value = Cells(Z, 2).Value Then Selection.Interior.Color = F1.Cells(Z, 2).Interior.Color
If cell.Value = Cells(Z, 2).Value Then Selection.Font.Color = F1.Cells(Z, 2).Font.Color

Next

Next Z

Application.ScreenUpdating = True
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message