Clic droit donne nombre de cellule

jeanpierre

Nous a quitté

Repose en paix

• 17 Mars 2010

• #2

Re : Clic droit donne nombre de cellule

Bonjour gourdin,

Avec :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim c
Cancel = True
For Each c In Range("B10:F27")
If c = Target Then c.Interior.ColorIndex = IIf(c.Interior.ColorIndex = 6, xlNone, 6)
If c.Interior.ColorIndex = 6 Then i = i + 1
Next c
Range("a1") = i
End Sub

Bonne journée.

Jean-Pierre

 

Vote positif 0 Vote négatif

É

Épaf

XLDnaute Occasionnel

• 17 Mars 2010

• #3

Re : Clic droit donne nombre de cellule

Bonjour Gourdin,
Dans la boucle que tu nous mets, c correspond à la cellule comparée
D'ou
c = valeur de la cellule
c.row = N° de la ligne
c.column = N° de la colonne
c.Interior.ColorIndex = Index de la couleur

Donc, avec ça tu devrais pouvoir en déduire le bon code
Bonne journée

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 17 Mars 2010

• #4

Re : Clic droit donne nombre de cellule

Bonjour
Bise à Jean Pierre

Dans ton code il y a un souci car cela met du jaune même si on clique en dehors de la zone prédéfinie.

J'ai donc modifié.

Le compteur se remet à 0 si on fait le 2ème clic qui enlève la couleur.

 

Pièces jointes

• nombre_cellule_clic_droit-1.xls

  31.5 KB · Affichages: 56

Vote positif 0 Vote négatif

E

Eric 45

XLDnaute Occasionnel

• 17 Mars 2010

• #5

Re : Clic droit donne nombre de cellule

Bonjour à tous

Je propose ceci :

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Set maplage = Range("B10:F27")
If Intersect(maplage, Target) Is Nothing Then Exit Sub
Cancel = True
If Target = "" Then Exit Sub
If maval <> "" And maval <> Target Then Range("B10:F27").Interior.ColorIndex = xlNone
For Each c In maplage
    If c = Target Then c.Interior.ColorIndex = IIf(c.Interior.ColorIndex = 6, xlNone, 6): i = i + 1: Range("F30") = i
Next c
maval = Target
If Target.Interior.ColorIndex = xlNone Then Range("F30").ClearContents
End Sub

avec une déclaration de "maval" en Public en tête d'un module.
Cette solution gère Range("F30"), efface l'ancienne sélection, les cellules vides dans la plage et le menu à l'extérieur de la plage

mais attendons que gourdin nous dise

Eric

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 17 Mars 2010

• #6

Re : Clic droit donne nombre de cellule

Merci beaucoup à tous

Bonne journée

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 17 Mars 2010

• #7

Re : Clic droit donne nombre de cellule

Pour répondre à Eric 45,

La solution de Chris correspond le mieux à mon projet mais je conserve les autres solutions car elles sont susceptibles de m'interresser pour d'autres projets.

Encore merci

 

Vote positif 0 Vote négatif