double clic

[ong alain]

Bonjour à toutes et à tous

je voudrais limiter le double clic à une plage de cellules e2:e51
pour le lancement de ma feuille 1 et f2:f51 pour ma feille 2.
est ce possible??.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim acompte1
for each acompte1 in range ('e2:e51')
Sheets('acompte (1)').Visible = True ' rend le modéle visible
Sheets('acompte (1)').Select
next
End Sub

j' ai essayé ceci mais cela ne fonctionne pas...
(et en plus c'est pas beau.ça s'intille.... :woohoo

Un peu d'aide serait le bien venue...
merci d'avance

Ong alain

 

[MichelXld]

bonjour

si j'ai bien compris ta demande , tu peux essayer


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range('E2:E51'), Target) Is Nothing Then
Sheets('acompte (1)').Visible = True
Sheets('acompte (1)').Select
Else
Cancel = True
End If
End Sub


bon week end
MichelXld

 

[ong alain]

Bonjour Michelxld


Merci, un grand merci pour ton coup de pouce

Ong alain