Bonjour,
J'ai repris un projet dans lequel j'ai trouvé cette fonction, si qq pouvait m'expliquer ce qu'a voulu faire le précédent dev, je lui en serais très reconnaissante
merci
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
22
23
24
25
26
27
28 '============================================================================ ' ' SauveContexte ' ' Procédure pour sauvegarder le contexte à l'entrée de la fonction ' '============================================================================ Static Function SauveContexte(ByVal Mode As Integer) As Integer ' Agumentation de l'indice If iContexte > 50 Then iContexte = 0 Else iContexte = iContexte + 1 End If ' sauvegarde des paramètres Context(iContexte).Mode = Mode If Mode And xlMiseAJourEcran Then Context(iContexte).ScreenUpdating = Application.ScreenUpdating If Mode And xlModeCalcul Then Context(iContexte).Calculation = Application.Calculation If Mode And xlBarreEtat Then Context(iContexte).StatusBar = Application.StatusBar Context(iContexte).DisplayStatusBar = Application.DisplayStatusBar End If SauveContexte = iContexte End Function
Nath
Partager