interdire macro "double clic" dans cellule

[bcesoll]

bonjour,
dans l'exemple ci-dessous (fichier xls) je voudrais interdire l'execution de la macro double clic dans les cellules vides (ça c OK) mais aussi dans des les cellules remplies d'une autre valeur que celles d'une liste (CIBLE)

If Cells(Target.Row, Target.Column) = "" Or Cells(Target.Row, Target.Column) <> CIBLE Then

 

[Hervé]

Re : interdire macro "double clic" dans cellule

bonsoir

peut etre quelque chose dans ce style :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim tablo
 
tablo = Range("cible")
Cancel = Target = "" = IsError(Application.Match(Target, tablo, 0))

End Sub

salut

 

[Hervé]

Re : interdire macro "double clic" dans cellule

re

version moins exotique

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim tablo
 
tablo = Range("cible")
 
If Target = "" Or Not IsError(Application.Match(Target, tablo, 0)) Then
    Cancel = True
End If
End Sub

a plus

 

[tototiti2008]

Re : interdire macro "double clic" dans cellule

Bonjour bcesoll,

déjà, tu peux simplifier

Cells(Target.Row, Target.Column)

en

Target

sinon, pour la cible, un truc comme :

If target.value <> "" and application.worksheetfunction.countif(range("Cible"),Target.value)>0 Then

Edit : Bonjour Hervé

 

[bcesoll]

Re : interdire macro "double clic" dans cellule

ne dois-je pas garder "Cells(Target.Row, Target.Column)" lorsque je clicque sur une cellule fusionnée ?

Commnet s'écrit la condition dans ce cas ?
If Target = "" Or Not IsError(Application.Match(Target, tablo, 0)) Then

 

[Hervé]

Re : interdire macro "double clic" dans cellule

salut

Ah la la ces cellules fusionnées

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim tablo
Dim pl As Range
If Target.MergeCells Then
    Set pl = Target(1)
Else
    Set pl = Target
End If

tablo = Range("cible")
Cancel = pl = "" = IsError(Application.Match(pl, tablo, 0))
End Sub

bye