Remplissage Cellule doubleclick ++

starz

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

Code:
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

XLDnaute Barbatruc
Re : Remplissage Cellule doubleclick ++

Bonjour starz
Essayez ceci :
Code:
[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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Re : Remplissage Cellule doubleclick ++

Bonjour,

une autre solution, peut être :

Code:
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

XLDnaute Occasionnel
Re : Remplissage Cellule doubleclick ++

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

Encore merci
 

Haut Bas