Supprimer Checkbox

Bonjour,

Je dispose d'une macro qui fonctionne avec une Checkbox, or je voudrais qu'elle fonctionne en permanence et au lieu de s'appliquer sur [C2:AG22] je voudrais qu'elle s'applique sur Range("5:5,8:8,11:11,14:14,17:17,20:20").Select.

merci,

Bonjour,

A tester.

Dim adresse(1000), couleur(1000)
Dim nbc As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range

    Set rng = Range("5:5,8:8,11:11,14:14,17:17,20:20")
    If Not Intersect(Target, rng) Is Nothing And Target.Count = 1 Then
        ActiveSheet.Unprotect
        adresse(nbc) = Target.Address
        couleur(nbc) = Target.Interior.ColorIndex
        Target.Interior.ColorIndex = 3
        nbc = nbc + 1
        ActiveSheet.Protect
    End If

    Set rng = Nothing

End Sub

Merci Jean-Eric , ton code marche nickel, je voudrais savoir s'il est possible de mettre ce code sur un module pour ne pas être obligé de copier sur toute mes feuilles

Re,

Mets ce code dans ThisWorkook et teste :

Option Explicit
Public adresse(1000), couleur(1000)
Public nbc As Integer
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng As Range

    Set Sh = ActiveSheet
    Set rng = Sh.Range("5:5,8:8,11:11,14:14,17:17,20:20")
    If Not Intersect(Target, rng) Is Nothing And Target.Count = 1 Then
        Sh.Unprotect
        adresse(nbc) = Target.Address
        couleur(nbc) = Target.Interior.ColorIndex
        Target.Interior.ColorIndex = 3
        nbc = nbc + 1
        Sh.Protect
    End If

    Set rng = Nothing
    Set Sh = Nothing

End Sub

J'ai testé et ça ma mis un message d'erreur:

RE,

Avec un peu d'imagination

Super merci, pour ton aide!!

RE,

A bientôt sur le forum