'=================================================================================
' Nom de la fonction : S_SetWaitCursor
' objet : Change le curseur en sablier
' Paramètres en entrée : Eb_Attente : variable indiquant si le curseur doit ête changer en sablier
'
' Paramètres en sortie : néant
'
'=================================================================================
Sub S_SetWaitCursor(Eb_Attente As Boolean)
If Eb_Attente Then
Screen.MousePointer = 11
Else
Screen.MousePointer = 0
End If