ouverture USF clique cellule

Pierrot93 à dit:

Bonjour Kwakos

essaye le code ci dessous, fonctionne sur double click, à placer dans le module de la feuille concernée :

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E99:E119")) Is Nothing Then UserForm1.Show: Cancel = True
End Sub

bonne fin d'après midi
@+

Cliquez pour agrandir...