Comment limiter affectation couleur dans une feuille

[vassili1]

Bonjour à vous tous,

Voila j'aimerais affecter des couleurs de lignes pour les matériels jusqu’à la première ligne vide et à la première colonne vide de la feuille "Matériel".

Voici le code ci dessous.

Sub Couleur_affectation_materiel()
'--------------------------------------------------------------------------------------------
'Description: Fonction qui définit la couleur d'affectation sur la colonne O de la feuille Matériel
'On affecte la couleur sur toute la ligne
'Formulaire: New_enr_no_ref ou New_enr_ref
'Feuille: Matériel
'--------------------------------------------------------------------------------------------

  Dim Cell As Range
  Sheets("Matériel").Select
  Range("O1").Select
 
  For Each Cell In Intersect(Selection, ActiveCell.EntireColumn, ActiveSheet.UsedRange)
    Select Case Cell.Value
    'code couleur pour Affecté
        Case Is = "Affecté"
            Cell.EntireRow.Interior.ColorIndex = 40
    'code couleur pour non-affecté
        Case Is = "Non-Affecté"
            Cell.EntireRow.Interior.ColorIndex = 35
    'code couleur pour annulé
        Case Is = "Annulé"
            Cell.EntireRow.Interior.ColorIndex = 3
    'code couleur pour autres
        Case Is = "Autres"
            Cell.EntireRow.Interior.ColorIndex = 24
    'code couleur pour affectation matériel
        Case Is = "Affectation matériel"
            Cell.EntireRow.Interior.ColorIndex = 20
        Case Else
    'sinon code couleur blanc
            Cell.EntireRow.Interior.ColorIndex = -4142
    End Select
  Next Cell

End Sub

Voici le fichier test ci-joint:

Regarde la pièce jointe ClasseurTest.xls

Je vous remercie d'avance!

 

[vassili1]

Re : Comment limiter affectation couleur dans une feuille

J'ai joint un fichier pour que vous puissiez voir le soucis