XL 2016 Coloration de cellules selon condition

joseph974

XLDnaute Nouveau
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
 

Pièces jointes

  • TEST.xlsm
    36.8 KB · Affichages: 5
  • TEST.xlsm
    36.8 KB · Affichages: 1

joseph974

XLDnaute Nouveau
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
 

Discussions similaires