Click Cellule = UF

[BEBERT]

Hi Forum

Je voudrais que lorsque je click sur une des cellules comprise entre C6:C13, cela me lance un UF1

Ds ce UF1 j'ai un textBox1 ds lequel je souhaite que la ligne de la cellule qui a été cliquée apparaisse...

Oh la la je crois que c'est pas très comprehensible mais j'essaie et je post qd meme 😱hmy: 😱 😛

A+

 

[dg62]

Bonjour Bebert

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Application.Intersect(Target, Range('C6:C13'Â'Â')) Is Nothing Then Exit Sub

adresse = Target.Row
UserForm1.Show
UserForm1.TextBox1.Value = adresse
End If

End Sub

Message édité par: dg62, à: 02/05/2005 17:42 [file name=bebert.zip size=9311]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/bebert.zip[/file]

Message édité par: dg62, à: 02/05/2005 17:43

 

[Robert]

Salut Bebert, salut le forum,

Entre bébert.... essaie ce code à placer dans un objet feuille (Worksheet) de ton classeur :

[size=2][color=#0000FF]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Range('C6:C13'), Target) Is Nothing Then
    Cancel = True
    UserForm1.TextBox1.Value = Target.Value
    UserForm1.Show
End If
End Sub[/color][/size]