PROB MACRO

Bonjour

Je reviens vers vous pour un prob de macro, en faite elle fonctionne super bien juste un petit souci.

je voudrais que quand on double click sur remarques aucune croix ne s'affiche et efface celle des autres cellules

Le double click doit fonctionner uniquement sur les cellules D - E - F - G - et H

Merci

Bonjour,

Testes si ça te convient :

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

    If Intersect(Target, Range("D:I")) Is Nothing Then Exit Sub

    If Target.Column = 9 Then

        'Range("D:H").ClearContents 'si ce sont toutes les cellules des colonnes D à H qui doivent être vidées
        Range("D" & Target.Row & ":H" & Target.Row).ClearContents 'seulement la ligne correspondante
        Cancel = True
        Exit Sub

    End If

    NoLigClic = Target.Row
    NoColClic = Target.Column
    NoPremLig = 2 ' sous les entêtes
    NoDernLig = Columns(2).Rows(ActiveSheet.Rows.Count).End(xlUp).Row
    NoPremCol = 4 ' après les intitulés
    NoDernCol = Rows(1).Columns(ActiveSheet.Columns.Count).End(xlToLeft).Column
    '
    If NoLigClic < NoPremLig Or NoLigClic > NoDernLig Then Exit Sub
    If NoColClic < NoPremCol Or NoColClic > NoDernCol Then Exit Sub
    '
    Range(Cells(NoLigClic, NoPremCol), Cells(NoLigClic, NoDernCol)) = ""
    Cells(NoLigClic, NoColClic) = "X"

    Cancel = True

End Sub

Bonjour Theze

C'est super, encore un big merci