Remplir couleur cellules

[amocco]

Bonjour le forum ,

je me permets de vous demander de l'aide concernant la possibilité de remplir ou non des cellules , j avais recupéré quelques lignes sur le forum mais cela ne fonctionne pas comme je le voudrais
sur la feuille horaires en A1 j ai une liste , en fonction du choix de la liste et sur simple clic dans la zone du planning , je vudrais colorier la cellule , cela fonctionne +ou moins mais je voudrais en plus :
- sur une cellule colorier un re cliquant dessus que la cellule se vide (blanche)
- sur une cellule avec par exemple M , en selectionnant N et en cliquant dessus je voudrais qu' elle affiche N (donc supprime le M)
merci pour votre precieuse aide

 

[tototiti2008]

Re : Remplir couleur cellules

Bonjour amocco,
Malheureusement, il n'y a pas d'évènement clic dans une feuille de calcul, alors sit u ne change pas de cellule, je ne vois pas comment savoir quand vider la cellule (à moins d'accepter que ce soit un double clic)

 

[amocco]

Re : Remplir couleur cellules

bonjour TOTOTITI
et en faisant un double clic
merci

 

[tototiti2008]

Re : Remplir couleur cellules

Voilà, ça marche :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim X As String, Y As Integer
On Error Resume Next
    If Target.Column > 0 And Target.Row > 8 Then
'il faudra limiter la zone de fonctionnement de la macro en ajoutant
'Target.column < nb de noms et Target.Row < à nb de jours
    X = Range("A1")
    Y = Target.Count > 1
    Cancel = True
    If ActiveCell <> "" And ActiveCell = X Then
        Target.Clear
    Else
        Target = X
    End If
    Select Case ActiveCell
        Case "M"
            Target.Interior.ColorIndex = 44
        Case "S"
            Target.Interior.ColorIndex = 42
        Case "N"
            Target.Interior.ColorIndex = 38
    End Select
    End If
End Sub

Avec un gros défaut : le double clic ne permet pas de gérer des plages de plusieurs cellules...🙁

 

[amocco]

Re : Remplir couleur cellules

Merci beaucoup