Explications

Bonjour,

Qlq'un peut m'expliquer a koi sert les lignes de codes suivants svp?

1-

Application.ScreenUpdating = False

Application.Calculation = xlManual

2-

ActiveSheet.AutoFilterMode = False

3-

calculate

Merci,

Bonjour,

Si je ne dis pas de bêtises :

1) Application.ScreenUpdating = False

Permet d'accélérer la vitesse d'exécution d'une macro. En fait Excel effectue le calcul sans afficher l'avancement de ce dernier. Tout s'affiche lorsque le code se termine.

2) Application.Calculation = xlManual

Sur excel tu as deux modes de calcul : automatique ou manuel que tu peux choisir dans les options... Lorsque tu coches manuel il me semble que le calcul d'une cellule ne se fait que lorsque tu l'actives.

3) ActiveSheet.AutoFilterMode = False

Désactive le mode filtre de l'onglet actif... (pas certain)

okay merci bcp, et pour ' calculate' pk on l utilise?

Merci,

Je pense que calculate est présente dans ton code car, rappel toi, le code te fait passer en mode calcul manuel. De ce fait il faut lui demander de calculer si tu souhaites qu'une cellule se mette a jour.

Je pense qu'avant le mot calcule tu as une ou plusieurs cellules genre :

range("A1").Calculate

ummmmm, non il y a pas ca, mais par contre , avant chaque 'calculate' il y a ' Range("A1").Select' par exemple, donc je comprends pas le role de calculate, et je peux pas l effacer et tester l application car peut etre ca va causer des problemes

Range("A1").Select puis Calculate c'est pareil que range("A1").calculate ^^

Bonjour,

A la réponse :

1) Application.ScreenUpdating = False

Permet d'accélérer la vitesse d'exécution d'une macro. En fait Excel effectue le calcul sans afficher l'avancement de ce dernier. Tout s'affiche lorsque le code se termine.

J'ajouterai :

Ne pas oublier de terminer de terminer le code d'accélération de la procédure par Application.ScreenUpdating = True

Exemple :

Private Sub UserForm_Activate()
'Accélération de la procédure
'Au début du code : ScreenUpdating = false
'A la fin du code : ScreenUpdating = true

ScreenUpdating = False
  Dim i As Integer, chemin As String, Fichier As String
  chemin = "\\********\******\********\*******\FICHE DEVIS\*.xls"
  Fichier = Dir(chemin)
   Do While (Len(Fichier) > 0)
    Me.ComboBox1.AddItem Fichier
    Fichier = Dir()
   Loop
   ScreenUpdating = True
End Sub

Bonjour et1000lio : je n'ai jamais mis le application.screenupdating = True.

Si ce n'est pas mentionné, Excel se charge de le faire en fin de macro !