Discussion :

[TGO2009]

Bonjour

comment changer la couleur d une ligne limité par 7 colonnes selon la valeur d une seul cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ' adapter le numéro de la colonne (ici 3)...
  ' et de ligne pour ne pas toucher aux lignes entête (ici 2)
If Target.Column = 3 And Target.Row >= 2 Then
   If UCase(Target.Value) = "1" Then Target.EntireRow.Interior.ColorIndex = 3
 
   If UCase(Target.Value) = "2" Then Target.EntireRow.Interior.ColorIndex = 5
 
   If UCase(Target.Value) = "3" Then Target.EntireRow.Interior.ColorIndex = 4
 
Else: Target.EntireRow.Interior.ColorIndex = 0
 
End If
 
End Sub

avec ce code j arrive a changer la couleur de la ligne entière cad à partir de la colonne A à la colonne ZZ comment faire pour changer seulemnt la couleur de la ligne à partir de colonne A jusqua colonne G

Merci pour votre aide

[jijie]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.Resize(1, 7).Interior.ColorIndex = 4

[TGO2009]

Merci beaucoup