|
 |
 |
 |
| |
 Barre des titres qui flashe
Public Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Public Sub BarreDesTitreQuiFlashe(NomFeuille As Form)
'Mettre cette fonction dans Timer1_Timer
'Timer avec l'intervalle=500 (chaque 1/2 seconde)
A& = FlashWindow(NomFeuille.hwnd, 1)
End Sub
Pour faire Flasher la barre des titres d’une feuille, Il suffit de faire :
BarreDesTitreQuiFlashe Me
|
|
 |
 |
 |
|