Ouvrir une userform en cliquant sur une cellule

[Tungstene]

Re salut.

Je veux qu'en cliquant sur une des cellules d'une colonne spécifiée (ici A), ma userform classer_idée apparaisse.
Mon code est le suivant et fonctionne mais pour n'importe quelle cellule sur laquelle je clique de ma feuille.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For i = 1 To 20

If Range('A' & i).Select Then
Classer_idées.Show
End If
Next

End Sub

 

[Hervé]

Bonjour tungstene, le forum

essaye comme ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range('a1:a20')) Is Nothing Then
Classer_idées.Show
End If
End Sub

salut

 

[Tungstene]

Impecc ça marche, maintenant je vais essayer de comprendre comment!

A+

 

[ChTi160]

Salut Tungstene j'espère que ça carbure
bonjour Hervé oupssss pas assez rapide moi
mais j'ai utilisé la procèdure événementielle

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rep As Boolean
Cancel = False
If Not Intersect(Target, Range('A3:A15')) Is Nothing And UserForm1.Visible = False Then
UserForm1.Show
End If
Cancel = True
End Sub

voir la pièce jointe
[file name=UserformView.zip size=10690]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/UserformView.zip[/file]