Discussion :

[retraite83]

Bonjour

je cherche maintenant à optimiser mon code VBA car j'ai constaté avec maintenant un peu d'expérience (je suis parti de zéro pointé) que je n'avais pas toujours bien codé et donc que l'exécution n'est pas optimale et peut poser des problèmes

Un exemple : lorsque dans une macro je code un "Select" ou "Activate"

Code :

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

1
2
 
feuille.select

le code de la feuille se déclenche inutilement dans certains cas

Code :

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

Private Sub Worksheet_Activate()

La parade (?)

Code :

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

1
2
3
4
 
Application.EnableEvents = False
feuille.select
Application.EnableEvents = True

J'ai cherché et j'ai vu que pour tracer le code il y a 2 options dans "Débogage"
- Pas à pas principal
- Pas à pas sortant

Mais ces options ne sont pas accessibles dans mes Excels

Existe-t-il un outil ou un moyen de tracer le code lors de l'exécution d'une macro (Call à une macro ou une fonction, select ou activate d'une autre feuille, etc)

Comment optimisez-vous vos macros ?

Merci d'avance

[Philippe Tulliez]

Bonjour,
En VBA, sauf cas particulier, il n'y a aucune raison d'utiliser les méthodes Select et Activate.
On peut écrire et lire dans n'importe quelle cellule, feuille ou classeur sans utiliser ces méthodes.

Exemple : MsgBox Workbooks("2023 Projet.xlsx").Worksheets("t_Project").Range("B2").Value

[retraite83]

Merci je vais reprendre mes macros

Existe-t-il un moyen exhaustif de lister les "Select" et "Activate" d'un fichier sans rechercher macro par macro ?

[Philippe Tulliez]

Bonjour,

Existe-t-il un moyen exhaustif de lister les "Select" et "Activate" d'un fichier sans rechercher macro par macro ?

Il y a d'abord la boîte de dialogue Chercher (Ctrl + F) dans l'éditeur VBE et à chaque ligne trouvée, vous pouvez "Taguer" la ligne avec le premier drapeau (voir illustration), il faut pour cela afficher la boîte à outil "Edition", et ensuite il suffit d'aller de tag en tag avec les deux touches du milieu (voir illustration)

Sinon, il est possible d'écrire un code VBA qui peut effectuer la recherche et donner le nom des modules où se trouvent ces lignes (j'ai peut-être cela dans mes cartons mais je dois chercher)

Illustration

[retraite83]

Bonjour,

merci je ne connaissais pas le système de tag avec les drapeaux, cela va me permettre d'identifier les Select et Activate

Par contre je connaissais l'adressage du type " Workbooks("2023 Projet.xlsx").Worksheets("t_Project").Range("B2").Value" mais cela ne me paraissait pas très correct à utiliser d'où mes "Select"

[Philippe Tulliez]

Bonjour,

Par contre je connaissais l'adressage du type " Workbooks("2023 Projet.xlsx").Worksheets("t_Project").Range("B2").Value" mais cela ne me paraissait pas très correct à utiliser d'où mes "Select"

Les méthodes Select et Activate sont coûteuses en termes de temps d'exécution et peuvent entraîner des effets de flash lors de l'exécution de la procédure. Il est également important de ne pas oublier de libérer les objets Selection.

Il est évident que l'on n'utilise pas d'adressage aussi long comme dans l'exemple de code que j'ai publié mais plutôt des variables objets

Dès qu'une variable est déclarée comme un objet explicite (Workbook, Worksheet, Range, PivotTable, etc.), elle hérite de toutes les propriétés et méthodes de celui-ci.

Exemple

Code :

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

1
2
3
4
5
6
7
8
Sub t()
  Dim Wkb As Workbook
  Dim Sht As Worksheet
  Set Wkb = Workbooks("2023 Projet.xlsx")
  Set Sht = Wkb.Worksheets("t_Project")
  MsgBox Sht.Range("B2").Value
  Set Wkb = Nothing: Set Sht = Nothing
End Sub