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
 

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

Discussions similaires

Réponses
2
Affichages
109

Statistiques des forums

Discussions
311 713
Messages
2 081 806
Membres
101 819
dernier inscrit
lukumubarth