Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

olhey

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

XLDnaute Impliqué
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

XLDnaute Barbatruc
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
@+
 

Discussions similaires

Réponses
2
Affichages
173
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…