Bonjour tout le monde,

je me permet de vous écrire, car j'ai actuellement une macro qui me calcul des données d'une autre feuille.

quand je clique sur le bouton, tout les calcules se font et après il me retire tout les valeur zéro. sa met du temps pendant le chargement.

Je voudrais qu'il me fasse le calcul ligne par ligne et me retire les lignes avec valeur 0 ligne par ligne pour alléger.

Code de ma macro actuelle:
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
Sub calculer()
'messageVeuillez patienter
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Veuillez patienter"
'afficher toutes les lignes
    Range("M10:M50").Select
    Selection.EntireRow.Hidden = False
'lancer le calcul
    Calculate
'masquer les lignes vide
    Range("D10:O50").Select
        For Each o In Selection
        If o.Value = "0" Then
        o.EntireRow.Hidden = True
        End If
        Next
'message Effectuer pour affichage filtre
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Effectuer"
End Sub
J'espère avoir été explicite.

Cordialement,

Vincent.