Double Clic ds un cellule, X s'intalle & efface l'autre cell

Bonjour à Tous,

J'ai 4 Cellules: B16 B17 B18 B19.

J'ai un bout de code qui fait en sorte, quand double cliquant dans la cellule B16, un X s'inscrit dans la cellule B16, et si je double clic dans la cellule B17, la B16 s'efface et le X s'installe en B17. J'aimerais avoir ce résultat de B16 et B19.

Je joins mon fichier.

Merci

Jean

Bonjour,

Là tu as un X en B16 ou B17 et un X en B18 ou B19.

Veux-tu un seul X sur la plage B16:B19 ?

Ou un X en B16 ou B19 ? Et B17, B18 dans ce cas ?

Ou ?

Bonjour MFerrand,

Mon erreur, un seul X de B16 à 19.

Mais aussi, de M16 à M19.

En gros, un seul X, pour les 8 Cellules.

Merci

Jean

OK !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Me.Range("B16:B19,M16:M19")) Is Nothing Then
        Me.Range("B16:B19,M16:M19").ClearContents
        Target = "X"
        Cancel = True
    End If
End Sub

Cordialement.

Bonjour MFerrand,

Pile dans le Mille,

Un GROS MERCI.

Jean