Ouvrir une userform en cliquant sur une cellule

Tungstene

XLDnaute Occasionnel
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
 

ChTi160

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

Code:
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]
 

Pièces jointes

  • UserformView.zip
    10.4 KB · Affichages: 370

Discussions similaires

Réponses
3
Affichages
146
Réponses
32
Affichages
809

Statistiques des forums

Discussions
314 450
Messages
2 109 729
Membres
110 553
dernier inscrit
loic55