Worksheet_SelectionChange > Objet requis

Bonjours !

J'essaie d'apprendre et d'utiliser cette fonction : Worksheet_SelectionChange

Voici mon code qui provoque l'erreur : "Objet requis"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim V As Long, R As Range
Set V = ActiveCell.Row
Set R = Columns("E:Q").Rows(V)

If Target.Column = 10 And Target.Text = "INDISPO" Then
R.Interior.ColorIndex = 4
End If

End Sub

Il s'agit de changer la couleur de plusieurs cellules de la ligne où apparaît dans cellule colonne 10 le texte INDISPO (a partir d'une liste déroulante)

Je ne vois pas où se situe mon erreur.

Si une âme charitable peut me détrompé, j'en serais très heureux.

Bonjour,

essaie ainsi :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rw As Long, R As Range
    If Target.Column = 10 And Target.Value = "INDISPO" Then
        rw = Target.Row
        Set R = Range(Cells(rw, "E"), Cells(rw, "Q"))
        R.Interior.ColorIndex = 4
    End If
End Sub

Et bien merci, cela fonctionne.

Plusieurs erreur donc pour moi

Le Set devant la variable As Long

La désignation de la plage qui ne passait pas.

Le target a mettre avant de désigner la variable de la plage avec Set

J'ai bon ?

Je pensais pas etre au tant à la rue