Discussion :

[BMA76]

Bonjour,

Dans le cadre de mon travail, je suis amené à utiliser un tableur Excel pour la gestion des stocks des entrepôts.

Afin d'optimiser mon temps de travail, j'ai créer un tableur Excel avec des macro afin de faire disparaitre les lignes vides et d'en laisser juste une d'apparente afin de la compléter. Une fois celle ci remplis la suivante apparait.

La macro fonctionne bien (J'en suis assez content vu que c'est la première que je fais)

Deux problèmes se posent quand même:

1 - La vitesse d'exécution de la macro ralentit considérablement le tableur Excel (La MAJ prend plusieurs secondes)

Je pense que cela vient du fait que ma macro analyse ligne par ligne afin d'appliquer une taille 0 à la ligne si une certaine valeur apparait à 0

N'y a t'il pas une solution pour optimiser cette macro afin que dès qu'elle rencontre une cellule vide les suivantes prennent la taille 0 et que l'analyse ne s'exécute pas dessus?

2 - La MAJ de la macro ne se fait que lorsque je change de page de mon classeur Excel

N'y a t'il pas une solution afin qu'elle s'exécute à chaque modification?

Voici la macro mis en cause:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Activate()
Dim i As Integer
Range("A5:A100").RowHeight = 15
Application.ScreenUpdating = False
    For i = 5 To 100 Step 1
            If Cells(i, 1) = 0 Then Range(i).RowHeight = 0
 
        Next i
    Application.ScreenUpdating = True
End Sub

En espérant que vous puissiez m'aider

Merci beaucoup d'avance pour l'attention que vous porterez à ce message et à l'aide que vous pourriez m'apporter

Baptiste

[mercatog]

Fais un filtre automatique

[moi264]

Afin de me rendre compte de la taille de ton fichier, il y a combien de ligne à gerer ?

[BMA76]

Le problème du filtre automatique, est le fait que plusieurs personnes de plusieurs agences consulte ce fichier. Il est donc impossible de leur expliquer ce fonctionnement. Je souhaite donc que cela fonctionne de manière autonome et sans que les utilisateurs n'ai de manipulation à effectuer autre que de compléter le tableau.

Le fichier de ce client gère 100 lignes. Mais si cela fonctionne je l'appliquerai sur d'autres stocks plus important.

Merci de votre attention

[Kimy_Ire]

Bonjour BMA76,

Tout d'abord, 100 lignes, ce n'est rien du tout pour masquer des lignes. Ainsi la vitesse d’exécution ne devrait pas être aussi longue.

Ensuite, j'ai un peu du mal à comprendre ta remarque par rapport au retour de @mercatog.
Tu peux tout à fait utiliser les filtres automatiques dans ta macro.

Enfin pour répondre à tes questions :

1. Je constate que tu utilises le Application.ScreenUpdating = False/True ce qui est très bien pour optimiser.
   Rien que d'ajouter le Application.Calculation = xlCalculationManual et le reset à xlCalculationAutomatic en fin de macro devrait de faire gagner également beaucoup de temps.
2. Personnellement, je n'ai jamais utilisé la méthode .RowHeight = 0.
   Je pense que c'est tout à fait équivalent à la méthode que j'utiliserai : .EntireRow.Hidden = True. Mais - peut-être - à explorer.
3. Enfin, tu utilises la procédure événementielle Private Sub Worksheet_Activate(). Comme tu as pu le constater au cours de tes recherches, il en existe bien d'autres. Rapproche toi de la Worksheet_Change, très probablement pour trouver ton bonheur.

N'hésite pas à revenir vers le forum si tu rencontres des difficultés.

Cordialement,
Kimy

[clementmarcotte]

Le problème du filtre automatique, est le fait que plusieurs personnes de plusieurs agences consulte ce fichier. Il est donc impossible de leur expliquer ce fonctionnement.

Franchement ! Du haut de ton trône de développeur tu méprises tes utilisateurs.

Un petit texte explicatif avec des captures d'écran, cela se fait par du monde.

Avec tous les outils gratuits d'enregistrement de l'écran qui existent, tu peux même leur faire des petits vidéos.

Dis plutôt que ce sont le mépris et la maudite paresse et pas l'impossibilité qui te font commander ta macro.