slectionner une ligne d'après la cellule selectionnée

olhey · 19 Août 2009

Bonjour, j'aimerias que l'orsque que la cellule est sélectionnée , toute la ligne se sélectionne...

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'atteindre l'ouvrage en double cliquant
  If Not Intersect([D34:BR69], Target) Is Nothing And Target <> "" Then
    Set p = Application.Index([Base], , 1).Find(What:=Target, LookAt:=xlWhole)
    If Not p Is Nothing Then
      Application.Goto p
    End If
  End If
  Cancel = True
  
End Sub

Merci

bpol · 19 Août 2009

Re : slectionner une ligne d'après la cellule selectionnée

bonjour olhey,

voici un code que j'ai déjà utilisé

Private Sub MSFlexGrid1_Click()
MSFlexGrid1.SelectionMode = 1
End Sub

A+
Bpol

Pierrot93 · 19 Août 2009

Re : slectionner une ligne d'après la cellule selectionnée

Bonjour Olhey

modifie peut être ainsi :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'atteindre l'ouvrage en double cliquant
  If Not Intersect([D34:BR69], Target) Is Nothing And Target <> "" Then
    Set p = Application.Index([Base], , 1).Find(What:=Target, LookAt:=xlWhole)
    If Not p Is Nothing Then
      Application.Goto p
p.EntireRow.Select
    End If
  End If
  Cancel = True  
End Sub

bonne fin d'après midi
@+

olhey · 19 Août 2009

Re : slectionner une ligne d'après la cellule selectionnée

merci pierrot! j'avais essayer plein desnthaxe différentes mais pas exactemnet celle là!

a+

slectionner une ligne d'après la cellule selectionnée

olhey

XLDnaute Occasionnel

bpol

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

olhey

XLDnaute Occasionnel

Discussions similaires

slectionner une ligne d'après la cellule selectionnée

olhey

XLDnaute Occasionnel

bpol

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

olhey

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency