bonjour,
Target.EntireRow.Interior.ColorIndex = 7
je souhaiterai appliquer cette mise en forme uniquement de la ligne 5 à la ligne 120
si quelqu'un peut m'aider........
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
'Ici Le Code
With Target
If .Row >=5 And .Row <=120
.EntireRow.Interior.ColorIndex = 7
End If
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = 0 'Ici Le Code With Target If .Row >=5 And .Row <=120 .EntireRow.Interior.ColorIndex = 7 End If End With End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
With Target
If .Row >=5 And .Row <=120
.EntireRow.Interior.ColorIndex = 7
End If
End With
End Sub
j'ai copié ceci mais cela ne fonctionne pas
il semble qu'il manque un attendu.....
Effectivement ! il manque le "Then" de If ..... Then
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
With Target
If .Row >=5 And .Row <=120 Then '<---- Ici
.EntireRow.Interior.ColorIndex = 7
End If
End With
End Sub