Doubleclic dans worksheet

Salut,

essais :
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target
As Range, Cancel As Boolean)
If Not Intersect(Target, Range("K6:P10")) Is Nothing Then
Application.ScreenUpdating = False
Sheets("Stats").Select
Application.ScreenUpdating = True
End If
End Sub
@+
Michel.

"Hervé" <h.lebeau@club-internet.fr> wrote in message
news:eb6Fh0l%23EHA.2876@TK2MSFTNGP12.phx.gbl...

Bonsoir, j'essaie (depuis un petit moment) de faire fonctionner cette
procédure.
Avec un doubleclic
Merci
Hervé

Private Sub Worksheet_SELECTIONChange(ByVal Target As Range)
If Not Intersect(Target, Range("K6:P10")) Is Nothing Then
Application.ScreenUpdating = False
Sheets("Stats").Select
Application.ScreenUpdating = True
End If
End Sub

Utilise l'évènement "Worksheet_BeforeDoubleClick"

AV

Bonsoir AV
j'explique mon problème.
J'ai une feuille de statistiques, et lorsque on double-clic sur une cellule
dont l'origine est une feuille différente, on se retrouve stupéfait sur
cette feuille.
Comment faire afin que cela ne se produise pas.
Car avec la procédure cela ne fonctionne pas.

Merci Hervé

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23wXrZ%23l%23EHA.3592@TK2MSFTNGP09.phx.gbl...

Utilise l'évènement "Worksheet_BeforeDoubleClick"

AV

Bonsoir Michel
cela ne fonctionne pas, je cherche ;-))
Merci
Hervé



"Michel HOLDERITH" <#nospam#milissa@pt.lu> a écrit dans le message de news:
OBiwp$l%23EHA.3820@TK2MSFTNGP11.phx.gbl...

Salut,

essais :
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal
Target
As Range, Cancel As Boolean)
If Not Intersect(Target, Range("K6:P10")) Is Nothing Then
Application.ScreenUpdating = False
Sheets("Stats").Select
Application.ScreenUpdating = True
End If
End Sub
@+
Michel.

"Hervé" <h.lebeau@club-internet.fr> wrote in message
news:eb6Fh0l%23EHA.2876@TK2MSFTNGP12.phx.gbl...

Bonsoir, j'essaie (depuis un petit moment) de faire fonctionner cette
procédure.
Avec un doubleclic
Merci
Hervé

Private Sub Worksheet_SELECTIONChange(ByVal Target As Range)
If Not Intersect(Target, Range("K6:P10")) Is Nothing Then
Application.ScreenUpdating = False
Sheets("Stats").Select
Application.ScreenUpdating = True
End If
End Sub

J'ai une feuille de statistiques, et lorsque on double-clic sur une cellule
dont l'origine est une feuille différente, on se retrouve stupéfait sur
cette feuille.
Comment faire afin que cela ne se produise pas.

Bizarre, bisarre..
Tel que tu le narres, ce comportement est très curieux !
Il n'y a pas de lien hypertexte ? pas de proc évènementielle dans le module de
la feuille ?

Pour soigner les conséquences (et non la cause..inconnue pour l'heure)
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
End Sub

AV

Bonsoir AV c'est parfait, en fait la feuille des stats est protégée, cela
explique pourquoi on cliquait sur une cellule dans laquelle, il y avait un
calcul que cela aille à l'origine de ce calcul sur une autre feuille.
Hervé content ;-)




"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
eR8c8Jm%23EHA.2272@TK2MSFTNGP10.phx.gbl...

J'ai une feuille de statistiques, et lorsque on double-clic sur une
cellule
dont l'origine est une feuille différente, on se retrouve stupéfait sur
cette feuille.
Comment faire afin que cela ne se produise pas.

Bizarre, bisarre..
Tel que tu le narres, ce comportement est très curieux !
Il n'y a pas de lien hypertexte ? pas de proc évènementielle dans le
module de
la feuille ?

Pour soigner les conséquences (et non la cause..inconnue pour l'heure)
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
End Sub

AV