noircir une case en cliquant dessus et inversement

[titou_772]

Bonjour à toutes et à tous,

Je cherche une solution pour pouvoir noircir une case en cliquant dessus
et inversement mettre en blanc une cellule noir

Merci d'avance
Titou_772

 

[Pierrot93]

Re : noircir une case en cliquant dessus et inversement

Bonjour Titou,

essaye ceci, dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target.Interior
    .ColorIndex = IIf(.ColorIndex = 1, xlNone, 1)
End With
End Sub

bonne journée
@+

 

[titou_772]

Re : noircir une case en cliquant dessus et inversement

Merci ça va bien,
Si tu as une solution sur un petit soucis
si je clique sur une cellule, et que je me trompe, je dois cliquez sur une autre case avant d'aller recliquer sur la celluel voulu

 

[titou_772]

Re : noircir une case en cliquant dessus et inversement

est qu'il y a un moyen de limiter la fonction a certaine cellule
de L1C1 jusqu'a L9C10

Merci d'avance

 

[Pierrot93]

Re : noircir une case en cliquant dessus et inversement

Re,

peut être ceci :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target.Interior
    If MsgBox("Modifier couleur ???", vbYesNo) = vbYes Then .ColorIndex = IIf(.ColorIndex = 1, xlNone, 1)
End With
End Sub

mais ca risque d'être un peu lourd....

 

[Pierrot93]

Re : noircir une case en cliquant dessus et inversement

RE,

pour limiter la zone d'action :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:J9")) Is Nothing Then Exit Sub
With Target.Interior
    If MsgBox("Modifier couleur ???", vbYesNo) = vbYes Then .ColorIndex = IIf(.ColorIndex = 1, xlNone, 1)
End With
End Sub

 

[titou_772]

Re : noircir une case en cliquant dessus et inversement

Re,

peut être ceci :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target.Interior
    If MsgBox("Modifier couleur ???", vbYesNo) = vbYes Then .ColorIndex = IIf(.ColorIndex = 1, xlNone, 1)
End With
End Sub

mais ca risque d'être un peu lourd....

C'est clair c'est un peu lourd, j epréfère la premiere solution avec si possible un perimetre d'action de la macro

Merci

 

[Dull]

Re : noircir une case en cliquant dessus et inversement

Salut titou, Pierrot🙂, le Forum

Pourquoi ne pas préférer le Double Click?

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [A1:J9]) Is Nothing Then Cancel = True
Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 1, xlNone, 1)
End Sub

Bonne Journée

 

[titou_772]

Re : noircir une case en cliquant dessus et inversement

Impeccable
merci pour le coup de main

titou