XL 2016 Coloration de cellules selon condition

[joseph974]

Bonsoir à tous,
J'ai créé un tableau détaillant les ports utilisés sur les switchs disponibles. Ce tableau s'étendant sur presque 300 lignes, j'ai créé deux tableaux à coté du premier permettant de visualiser rapidement quels sont les ports utilisés sur quels switchs. L'idée est de coloriser en rouge les ports utilisés et en vert les ports libres sur ces deux tableaux
Je souhaiterais exécuter cette action via VBA qui à mon sens est plus simple qu'une MFC.
Ci-joint mon script (non fonctionnel bien entendu...🙁) et en PJ le fichier pour une meilleure compréhension je l'espère...
Merci d'avance pour votre aide.🙂

Sub test2()
Dim X, i As Range

For Each X In Range(Range("P4"), Range("AM4").End(xlDown))
For Each i In Range(Range("F3").End(xlDown))

If X.Value = i.Value Then
X.Offset(0, 0).Interior.Color = vbGreen
Else
X.Offset(0, 0).Interior.Color = vbRed
End If

Next i
Next X

End Sub

 

[TooFatBoy]

Bonjour,

Une proposition, par MFC (qui me semble moins compliqué à mettre en place).

 

[joseph974]

Bonsoir Marcel32
Effectivement la MFC règle tout simplement mon problème. Ainsi je peux ajouter autant de tableaux à droite que je désire. Je n'aurais pas pensé à cette formule.
A mettre du script partout on oublie les fonctionnalités de base.
Merci beaucoup Marcel32
La réponse me satisfait, mon problème est résolu

 

[TooFatBoy]

La réponse me satisfait, mon problème est résolu

Ah zut, je pensai que c'était ma réponse qui te convenait et non la tienne... 🤣

 

[joseph974]

Désolé, mes doigts (et là ce sont les miens) se sont entremêlés sur le clavier 😉.
Mais tu avais compris, j'en suis certain...
Merci encore Marcel32...

 

[TooFatBoy]

Moi ça ne me dérange pas plus que ça. 😁
C'est pour celui qui voudra aller directement au message censé être la bonne réponse : il risque d'être surpris et va devoir lire chaque message depuis le début pour trouver le bon. 😉

 

[joseph974]

Oupss!!! C'est bon j'ai rectifié.