Discussion :

[elkaktus]

Bonjour à tous,

J'ai un gros tableau de données sur 12 colonnes 33543 lignes. J'ai rajouté une colonne grâce à une macro VBA qui compte le nombre d'apparitions d'un critère (avec les formules SI et NB.SI.ENS).

Voici le code de la macro :

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
 
Sub ecrire_colonne_pannes()
    Dim Wk As Worksheet
    Dim j As Long
 
    Set Wk = Workbooks("BTU.xlsx").Worksheets("Défauts+CTRL (Parcs)")
 
    Wk.Range("M1").Value = "nb pannes"
 
    j = Application.WorksheetFunction.CountA(Wk.Range("D:D"))
 
    With Wk.Range("M2:M" & j)
        .FormulaR1C1 = _
        "=IF(COUNTIFS(C4,RC[-9],C8,""MONPAN*"")>3,""D"",IF(COUNTIFS(C4,RC[-9],C8,""MONPAN*"")=3,""C"",IF(COUNTIFS(C4,RC[-9],C8,""MONPAN*"")=2,""B"",IF(COUNTIFS(C4,RC[-9],C8,""MONPAN*"")=1,""A""))))"
        .Value = .Value
    End With
End Sub

La macro marche, ma colonne est bien créée, mais en revanche le calcul est très long (5% au bout d'une minute...). N'existe-t-il pas un moyen pour accélérer ceci, par exemple procéder au calculs en mémoire avec un array puis transposer cet array sur la colonne correspondante ?

Merci d'avance

[Menhir]

Tu pourrais commencer par passer ta feuille en calcul manuel au début de la macro et ne la remettre en calcul automatique qu'à la fin.
Lis ceci :
https://msdn.microsoft.com/fr-fr/lib.../ff841201.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff834658.aspx

Ou ceci :
https://docs.microsoft.com/fr-fr/off...on.calculation
https://docs.microsoft.com/fr-fr/off....xlcalculation

[elkaktus]

Merci pour la solution, mais ça n'aide pas trop. La colonne n'est plus calculée, même avec F9.

N'existe-t-il aucun moyen de faire le calcul dans un tableau en mémoire puis transposer ce tableau après la dernière colonne de mon tableau de données ?
D'autre part avec cette méthode par VBA, je n'arrive plus à lire la formule quand je clique sur la cellule.

[Guy7700]

Bonjour,

Est-ce que ceci peut aider ?

Avant tes "dim"

Code :

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

Application.ScreenUpdating = False

Avant ton "end sub"

Code :

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

Application.ScreenUpdating = True

Désolé si ça n'aide en rien, j'essaye juste d'apporter ma pierre à l'édifice en fonction de mes (maigres) connaissances.

Bien à vous,

[elkaktus]

Merci beaucoup pour vos reponses, ça me donne déjà des pistes a creuser. Le screen updating n'a pas d'effet, j'essaie de regarder du coté des xlCalculationManual.

[eriiic]

Bonjour,

tu utilises 4 fois

Code :

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

NB.SI.ENS($D:$D;D2;$H:$H;"MONPAN*")

Formule matricielle gourmande.
L'optimisation la plus simple là dessus c'est de ressortir la partie utilisée plusieurs fois dans une colonne dédiée, qu'elle ne soit évaluée qu'une seule fois. Et d'utiliser le résultat plusieurs fois.

C'était pour info car ta formule peut se simplifier puisqu'il y a une progression logique :

Code :

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

=CAR(64+MIN(4;NB.SI.ENS($D:$D;D3;$H:$H;"MONPAN*")))

En plus tu la mets sur toute la colonne $D:$D...
Il faut soit mettre tes données sous forme de tableau structuré, soit définir un nom dynamique (fait une recherche, les exemples ne manquent pas) pour ne l'appliquer qu'à la plage nécessaire, et non sur 1 millions de lignes.
eric