noircir une case en cliquant dessus et inversement

Pierrot93

XLDnaute Barbatruc

• 26 Janvier 2012

• #2

Re : noircir une case en cliquant dessus et inversement

Bonjour Titou,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

T

titou_772

XLDnaute Nouveau

• 26 Janvier 2012

• #3

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

 

Vote positif 0 Vote négatif

T

titou_772

XLDnaute Nouveau

• 26 Janvier 2012

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Janvier 2012

• #5

Re : noircir une case en cliquant dessus et inversement

Re,

peut être ceci :

Code:

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....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Janvier 2012

• #6

Re : noircir une case en cliquant dessus et inversement

RE,

pour limiter la zone d'action :

Code:

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

 

Vote positif 0 Vote négatif

T

titou_772

XLDnaute Nouveau

• 26 Janvier 2012

• #7

Re : noircir une case en cliquant dessus et inversement

Pierrot93 à dit:

Re,

peut être ceci :

Code:

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....

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 26 Janvier 2012

• #8

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

Cliquez pour agrandir...

Bonne Journée

 

Vote positif 0 Vote négatif

T

titou_772

XLDnaute Nouveau

• 26 Janvier 2012

• #9

Re : noircir une case en cliquant dessus et inversement

Impeccable
merci pour le coup de main

titou

 

Vote positif 0 Vote négatif