bonjour a tous

J'ai un flexgrid dans lequel je veut permetre à l'usage de choisir seulement 1 rangé. J'ai trouvé ce bout de code , il marche s'il choisis 1 rangé ( normal, à cause du IF ). Mais dans le cas ou il veut choisir quand même plusieurs lignes avec la touche SHIFT, la selection unique ce fait, mais la ligne n'est pas HIGHLIGHTE.

Pouvez vous m'aider.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private Sub GRID1_SelChange()
 
If GRID1.Row - GRID1.RowSel <> 0 Then
 
GRID1.Row = GRID1.RowSel
GRID1.SetFocus
 
End If
 
 
End Sub