VBA - Insertion de "X" doubleclick plage de cellule

Bonjour,

Je n'arrive pas résoudre un problème, j'ai ce code:

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

    Select Case ActiveCell.Value
        Case ""
            ActiveCell.Value = "X"
        Case "X"
            ActiveCell.Value = ""
    End Select
    Cancel = True

End Sub

Qui me permet d'inclure une croix en double cliquant sur une cellule, or je souhaiterais ne pouvoir inclure cette croix que sur la plage de cellule B8:B10000. Quel sest le bout de code qui me manque?

Merci à tous.

Koro

Bonjour à tous,

Option Explicit
Public Flag As Boolean '(dans Module si autres macros)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Flag Then Exit Sub
    If Not Application.Intersect(Target, Range("b8:b" & [b65536].End(xlUp).Row)) Is Nothing Then
        Flag = True
        If Target = "X" Or Target = "x" Then
            Target = ""
        Else
            Target = "X"
        End If
        Flag = False
        Cancel = True
    End If
End Sub

Amicalement

Claude

Super, merci ça marche nikel !!

Question complémentaire, si je souhaite aussi pouvoir mettre une croix en doubleclikant de J8:J65536 ?

Merci beaucoup

Re,

Option Explicit
Public Flag As Boolean '(dans Module si autres macros)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Flag Then Exit Sub
    If Not Application.Intersect(Target, Union(Columns("b"), Columns("j"))) Is Nothing Then
        If Target.Row < 8 Then Exit Sub
        Flag = True
        If Target = "X" Or Target = "x" Then
            Target = ""
        Else
            Target = "X"
        End If
        Flag = False
        Cancel = True
    End If
End Sub

Amicalement

Claude

Super, encore une fois, rapide et efficace.

Merci

koro

Rechercher des sujets similaires à "vba insertion doubleclick plage"