Worksheet_BeforeDoubleClick

[Lu K]

Bonjour à tous,

Je viens encore vers vous :

J'ai dans une feuille une formule que me va très bien = double click !

Est-ce possible de déclarer 2 double click dans une même feuille

Voici mon code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'selection de cellule par double click
If Intersect(Target, Range("d25:d10000")) Is Nothing Then: Exit Sub
Dim Adressecellule As String


'Memorisation de la cellule et filtre automatique
Adressecellule = ActiveCell.Value 'memorisation de la cellule active
ActiveSheet.Range("$c$26:$s$9653").AutoFilter Field:=4, Criteria1:= _
Adressecellule


End Sub

Mon problème est que je voudrais réaliser une autre macro par double click sur les cellules ("n25:n10000") de la même feuille . J'ai essayé beaucoup de chose mais je n'y arrive pas !

merci d'avance pour vos réponse.

 

[sousou]

Re : Worksheet_BeforeDoubleClick

Si je ne me trompelu K


If Intersect(Target, Range("d25:d10000")) Is Nothing Then
l......là ton traitement.....

exit sub
else
Dim Adressecellule As String

 

[ROGER2327]

Re : Worksheet_BeforeDoubleClick

Bonjour à tous

Essayez cette structure :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, Range("D25:D10000")) Is Nothing Then
      [COLOR="Sienna"]'
      'première procédure
      '[/COLOR]
      Exit Sub
   End If
   [COLOR="Sienna"]'[/COLOR]
   If Not Intersect(Target, Range("N25:N10000")) Is Nothing Then
      [COLOR="Sienna"]'
      'deuxième procédure
      '[/COLOR]
   End If
End Sub[/B][/COLOR]

ROGER2327
#3734

Samedi 7 Gidouille 137 (Saint Bébé Toutout, évangéliste, SQ)
3 Messidor An CCXVIII
2010-W25-1T16:13:11Z

 

[Lu K]

Re : Worksheet_BeforeDoubleClick

Bonjour Roger2327, Sousou.

Alors là !!!

Aussi rapide, y'as pas !


Mais encore en plus efficace !!! Ca marche nickel ton code Roger2327. En plus, je peut en ajouter tant que je veux!

Merci pour tout.

 

[Halffy]

Re : Worksheet_BeforeDoubleClick

Bonjour Lu K, Roger2327, Sousou,

Je me permets une petite incruste /
Roger, Merci ==> après une adaptation pour un classeur & ses x feuilles, ton code marche également à merveille.
Longue vie à ce Forum; et bonne soirée à tous.
Halffy /.