Remplissage Cellule doubleclick ++

[starz]

Bonjour,
J'utlise actuellement ce code pour remplir une cellule par un doucle clic.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:BW40")) Is Nothing Then
If ActiveCell.Interior.ColorIndex = 3 Then
ActiveCell.Interior.ColorIndex = xlNone
Else
ActiveCell.Interior.ColorIndex = 3
End If
End If
Cancel = True
End Sub

Pourriez vous m'aider à compléter ce code pour avoir ce résulat :
1er double click : la cellule se rempli noir
2eme double click : la cellule se rempli rouge
3eme double click : la cellule est non rempli

merci

 

[ROGER2327]

Re : Remplissage Cellule doubleclick ++

Bonjour starz

Essayez ceci :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Application.Intersect(Target, Range("A1:BW40")) Is Nothing Then
      Select Case ActiveCell.Interior.ColorIndex
         Case 3: ActiveCell.Interior.ColorIndex = xlNone
         Case xlNone: ActiveCell.Interior.ColorIndex = 1
         Case 1: ActiveCell.Interior.ColorIndex = 3
      End Select
   End If
   Cancel = True
End Sub[/B][/COLOR]

ROGER2327
#2615

 

[starz]

Re : Remplissage Cellule doubleclick ++

merci d'avoir épondu
hélas, j'obtient le même résultat qu'auparavant !
j'ai juste la cellule rouge au premier double click

 

[Pierrot93]

Re : Remplissage Cellule doubleclick ++

Bonjour,

une autre solution, peut être :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:BW40")) Is Nothing Then
    With Target.Interior
        .ColorIndex = IIf(.ColorIndex = 1, 3, IIf(.ColorIndex = 3, xlNone, 1))
    End With
    Cancel = True
End If
End Sub

bon après midi
@+

 

[starz]

Re : Remplissage Cellule doubleclick ++

Merci à vous 2, en faite les 2 solutions sont correctes.

Encore merci