Discussion :

[JB17000]

Bonjour,

Dans un onglet de fichier Excel je charge une base de donnée comptable (liste d'écritures). Ces données sont complétés dans cet onglet en bout de ligne : j'affecte des catégories comptables suivant le numéro de compte qui est une une des données de la base de données.
Sur un 2e onglet de tableau de bord, ces données sont compiler notamment grace à la formule SOMME.SI.ENS pointant sur le 1er onglet.

J'ai réalisé une macro VBA (débeuguée grace à ce forum!) qui permet de changer la base de données chargée dans le 1er onglet (la fonction remplace le nom et chemin du fichier excel où se trouve la source de base de données).
Seulement mon fichier fait 60 000 lignes et 5 colones et faire les changements dans la formule grace à la fonction REMPLACER de chacune de ces cellules prend environ 8h avec un ordinateur récent...
J'ai l'impression (peut être à tord) malgré le fait que je désactive le calcul automatique pendant la macro que l'ordinateur est ralenti car chaque changement engendre du recalcule sur le 2 onglet.

J'espère avoir été clair, le problème n'est pas facile à expliquer

[jurassic pork]

Hello,
Si il n'y a pas d'informations personnelles dedans peux-tu nous montrer :
1- les formules utilisées ( il y a peut-être possibilité d'utiliser des formules matricielles)
2 - la macro VBA.

Ami calmant, J.P

[Raccourcix]

Bonjour

Ce genre de traitement devrait être réalisé avec Power Query et non VBA, cet outil est fait pour le genre de manip que vous demandez.
Ensuite la synthèse devrait être réalisée avec des TCD et non des SOMME.SI.ENS, c'est beaucoup plus efficace.

Stéphane

[JB17000]

Merci JP de te pencher sur le sujet

J'ai voulu charger le fichier en PJ de la discussion mais celui-ci fait 7Mo et ne passe donc pas la limite des 2Mo

voici un lien
https://amanta.kroqi.fr/shared/#/fil...fdb207189b3190

Ne sachant pas si l'administration du forum autorise les liens externes...

sinon voici ma 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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub change_etabl()
'
' change_etabl Macro
'
 
'
    Application.Calculation = xlManual
    Worksheets("Base").Cells.Replace _
        What:=Worksheets("ref").Range("C11").Value, _
        Replacement:=Worksheets("ref").Range("C10").Value, _
        LookAt:=xlPart
    Worksheets("TDB").Cells.Replace _
        What:=Worksheets("ref").Range("C11").Value, _
        Replacement:=Worksheets("ref").Range("C10").Value, _
        LookAt:=xlPart
    Worksheets("TDB").Cells.Replace _
        What:=Worksheets("ref").Range("D11").Value, _
        Replacement:=Worksheets("ref").Range("D10").Value, _
        LookAt:=xlPart
    Sheets("ref").Select
    Range("C10").Select
    Selection.Copy
    Range("C11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("TDB").Select
    ActiveSheet.Range("$A$4:$AF$255").AutoFilter Field:=1, Criteria1:="1"
    Application.Calculation = xlAutomatic
    Range("F2").Select
 
End Sub

[jurassic pork]

j'espère que ton document ne contient pas de données identifiables de ton entreprise sinon supprime le lien tout de suite

[JB17000]

j'espère que ton document ne contient pas de données identifiables de ton entreprise sinon supprime le lien tout de suite

En cherchant bien, si un peu...
J'ai désactivé le lien

[jurassic pork]

Je ne suis pas spécialiste d'Excel mais mettre dans des milliers de formules le nom d'un classeur externe en dur ce n'est pas la panacée. Les spécialistes vont sans doute t'aiguiller vers une autre méthode pour utiliser des données externes. Et quand il y a des formules qui se répètent sur chaque ligne il faut voir aussi du côté des formules matricielles.