Adapter un code VBA

Bonjour à Tous!

J'ai un code VBA que j'ai télécharger sur le forum et que j'aimerais adapter pour la possibilité de faire des coches sur une plage de données. Dans mon cas de la cellule B2 à N49, le code actuellement ne s'applique qu'à la colonne B.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
    If Not Target.ListObject Is Nothing And Target.Count = 1 Then
        Set rng = Me.ListObjects(1).ListColumns(2).DataBodyRange
        If Not Intersect(Target, rng) Is Nothing Then
            Cancel = True
            Target.Value = IIf(IsEmpty(Target), "ü", Empty)
        End If
    End If
End Sub

Merci à tous

Bonjour Hosni, le forum,

A tester....

 Set rng = Me.ListObjects(1).ListColumns(2).DataBodyRange.Resize(,13)

Cordialement,

Bonjour

Merci à vous xorsankukai

Je vous passe le classeur, la plage a cocher est en jaune

Merci à vous

Re,

Merci pour ton retour,

Pour que ton code fonctionne, tu dois redimensionner ton tableau (vu que tu utilises un tableau structuré).

Par exemple:

Cordialement,

Salut

Merci infiniment xorsankukai .

Cordialement

Re,

Version sans tableau structuré...

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim rng As Range
 Set rng = Range("B2:N49")
    If Not Target Is Nothing And Target.Count = 1 Then
        If Not Intersect(Target, rng) Is Nothing Then
            Cancel = True
            Target.Value = IIf(IsEmpty(Target), "ü", Empty)
        End If
    End If
End Sub

Cordialement,

Salut à tous, a vous xorsankukai .

Je vous remercie infiniment pour votre précieuse aide, ca me sera bien utile.

Je clôture le sujet.

Cordialement