Worksheet_BeforeDoubleClick

Lu K

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

ROGER2327

XLDnaute Barbatruc
Re : Worksheet_BeforeDoubleClick

Bonjour à tous
Essayez cette structure :
Code:
[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

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

XLDnaute Occasionnel
Re : Worksheet_BeforeDoubleClick

Bonjour Lu K, Roger2327, Sousou,

Je me permets une petite incruste :D /
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 /.
 

Discussions similaires

Réponses
1
Affichages
225
Réponses
0
Affichages
201