Ouvrir une userform en cliquant sur une cellule

Tungstene · 22 Septembre 2005

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é · 22 Septembre 2005

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 · 22 Septembre 2005

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

A+

ChTi160 · 22 Septembre 2005

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]

Ouvrir une userform en cliquant sur une cellule

Tungstene

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

Tungstene

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Pièces jointes

Discussions similaires