XL 2016 Sub Worksheet_SelectionChange

[filouplatchaud]

Re bonjour c'est encore moi

le code est très bien mais je voudrais l'avoir sur un double click

Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c5:nc19")) Is Nothing Then
If ActiveCell.Value <> "" Then
With ActiveCell
UserForm2.TextBox5 = Cells(Target.Row, "B").Value
UserForm2.Show
End With
End If
End If
End Sub

des idées ?

 

[Staple1600]

Bonjour le fil, le forum

Des idées?

Oui. Une (qui devrait suffire )
Aller voir dans VBE, en cliquant-droit sur l'onglet de la feuille
Et là, choisir Visualiser le code
Enfin choisir Worksheet dans le liste déroulante Général puis l'évenement idoine
dans la liste déroulante Déclarations

 

[filouplatchaud]

pas de idoine en vue ?
Mais ou est donc passé idoine ?

copie d'écran