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