Discussion :

[sundjata]

Bonjour a tous,
Je voudrais savoir si il existe un moyen de faire clignoter une cellule d'un MSFlexGrid.
Cepandant je ne voudrais pas que mon programme soit bloqué à faire clignoter la cellule.
Merci

[SfJ5Rpw8]

avec un timer... et en changeant la couleur de fond ..

[jmfmarques]

je ne voudrais pas que mon programme soit bloqué à faire clignoter la cellule.

et en jouant avec la propriété lostfocus pour arrêter le timer

[SfJ5Rpw8]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Form_Load()
 Timer1.Enabled = True
 Timer1.Interval = 500
End Sub
 
Private Sub Timer1_Timer()
 Dim MemoR As Integer
 MemoR = MSFlexGrid1.Row 'Memorise ligne
 MemoC = MSFlexGrid1.Col 'Colonne pour retour
 MSFlexGrid1.Row = 3 'Se positionne sur
 MSFlexGrid1.Col = 4 ' Ligne 1, Colonne 1
 If MSFlexGrid1.CellBackColor = 0 Then
     MSFlexGrid1.CellBackColor = RGB(0, 255, 0)
   Else
    MSFlexGrid1.CellBackColor = 0
   End If
 MSFlexGrid1.Row = MemoR 'Retour sur position mémorisée
 MSFlexGrid1.Col = MemoC
 
End Sub

[sundjata]

j'ai utilisé cette solution et ca marche , merci beaucoup