Paramètrer des macros

Bonjour

Ci dessous 2 macros qui me permettent de valider ou supprimer une sélection.

J'aimerai qu'elles ne puissent fonctionner que sur la plage suivante:

M11:X11

merci de votre aide.

Sub ValiderSelection()

'

' ValiderSelection Macro

'

ActiveCell.FormulaR1C1 = "1"

Selection.FillRight

Selection.FillLeft

With Selection.Interior

.ColorIndex = 1

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

End With

End Sub

Sub AnnulerSelection()

'

' AnnulerSelection Macro

'

Selection.ClearContents

Selection.Interior.ColorIndex = xlNone

End Sub

Bonjour,

Sub ValiderSelection()
    With Range("M11:X11")
        .Value = "1"
        .Interior.ColorIndex = 1
    End With
End Sub

Sub AnnulerSelection()
    With Range("M11:X11")
        .ClearContents
        .Interior.ColorIndex = xlNone
    End With
End Sub

Amicalement

Claude

Merci Claude

mais je me suis mal exprimé car maintenant toute la plage M11:X11 se noircit . Ma requête était de pouvoir noircir au choix une sélection dans la plage M11:X11. Par exemple uniquement de M11:O11. Pour l'éffacement c'est OK.

Bonsoir,

Essaye avec ces 2 codes à mettre dans le VBA de la feuille

Tu peux supprimer la partie efface, si besoin de plusieurs plages dans M11:X11

Public Plg As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Plg = Range("m11:x11")
    If Not Application.Intersect(Target, Plg) Is Nothing Then
            If Target.Rows.Count > 1 Then Exit Sub
            '--- efface ---
            With Plg
                .ClearContents
                .Interior.ColorIndex = xlNone
            End With
            '--- sélection ---
            With Target
                .Value = "1"
                .Interior.ColorIndex = 1
            End With
    End If
End Sub

Double clic sur la plage pour effacer

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set Plg = Range("m11:x11")
    If Not Application.Intersect(Target, Plg) Is Nothing Then
            With Plg
                .ClearContents
                .Interior.ColorIndex = xlNone
            End With
    End If
End Sub

Amicalement

Claude

Merci c'est éxactement ce que je voulais.