Appliquer un code à une plage de cellules precise

Bonjour,

J'ai trouvé ce code qui permet par un double-clic de modifier la couleur de fond de la cellule.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim couleurs()

couleurs = Array(RGB(255, 183, 13), RGB(255, 255, 255))

On Error GoTo color

Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 3)

Cancel = True

Exit Sub

color:

Target.Interior.color = couleurs(0)

Cancel = True

End Sub

Simplement quand je rentre ce code dans Visual Basic de la feuille concernée, le code s'applique à toute la feuille, or je souhaiterais que seules les cellules de la plage (G2 à G50) soient concernées.

Comment puis-je modifier le code pour obtenir cela?

Merci d'avance

Bonjour

Indique la plage concernée comme ci-dessous

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim couleurs()

    If Not Application.Intersect(Target, [G2:G50]) Is Nothing Then

    couleurs = Array(RGB(255, 183, 13), RGB(255, 255, 255))
    On Error GoTo color
    Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 3)
    Cancel = True
    Exit Sub
color:
    Target.Interior.color = couleurs(0)
    Cancel = True

    End If

    End Sub

Bonjour Nad,

Ça fonctionne nickel! Merci beaucoup pour le coup de pouce!

A bientôt