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

[olhey]

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

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]

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]

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

Bonjour Olhey

modifie peut être ainsi :

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]

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+