Excel / VBA - Partie couleur d'une colonne

J'ai du code pour colorer une partie d'une ligne en fonction de ce qui est entré dans une colonne particulière, mais j'aimerais transposer ce code afin qu'une partie de la colonne soit colorée en fonction des données entrées dans une ligne. Comment modifier le code ci-dessous:

 Private Sub Worksheet_Change (ByVal Target As Range) 'Lorsqu'une modification est apportée à la feuille de calcul ... Si l'intersection n'est pas intersectée (Target, Range ("B3: B100")), rien n'est alors' ... dans les cellules de B3 à B100 (Rôle) ... Si Selection.Cells.Count> 1, puis Exit Sub '(exit reoutine si des modifications sont apportées à plusieurs cellules à la fois - évite le blocage. Sélectionnez le cas cible "Manager"' ... vérifiez si la cellule contient "Manager" ... Range ("A" & Target.Row & ": AG" & Target.Row) .Interior.ColorIndex = 36 '... et si c'est le cas, changez la couleur des cellules de cette ligne, à partir de B - AH à jaune pâle. 'Autres cas ici .... Fin Sélectionnez End If End End 

Solution

Voici:

 Private Sub Worksheet_Change (Cible ByVal en tant que plage) si intersection (Cible, Plage ("A3: L3")) n’est rien ou _ Selection.Cells.Count> 1, puis quittez la sous-sélection Cas Cas cible "Manager" Plage (Cellules (1, Target.Column), Cells (30, Target.Column)). Interior.ColorIndex = 36 End Select End End Sub 

Merci à TrowaD pour ce conseil.