Discussion :

[dodo28]

bonjour,
mon problème est le suivant :
Mes macros sont devenues très lentes avant elles s'effectuaient en quelques secondes maintenant en plusieurs minutes, j ai actuellement 85 onglet. j ai désactivé les vérification d erreurs mais c'est guère mieux.
ha oui je précise que mes macros ont besoin d agir maintenant que sur la feuille active.
exemple de macro qui met presque 3 mn pour colorier 10 cellules sur la meme feuille.

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
Sub testmfc2()
' compare attrib par rapport a l attrib 2008
 Cancel = False
For g = 18 To 25
    If IsError(Range("ai" & g)) Then
         MsgBox "Attention! Avant de jouer avec les couleurs, générez une attribution."
        Cancel = True
        Exit For 
    End If
Next g
If Cancel = True Then Exit Sub
 
 '''''''''''''
 '''''''''''
 ''''''''
 ''''
 X = Sheets.Count
n = 18
For i = 1 To X
 
    While Cells(n, 24) <> ""
        If Cells(n, 24) > Cells(n, 32) Then
        Cells(n, 35).Interior.ColorIndex = 3 'orange
        ElseIf Cells(n, 24) < Cells(n, 32) Then
        Cells(n, 35).Interior.ColorIndex = 23 'rouge
        ElseIf Cells(n, 24) = Cells(n, 32) Then
        Cells(n, 35).Interior.ColorIndex = 43 ' ou 45 'vert
        End If
        n = n + 1
    Wend
    n = 18
Next i
 
End Sub

merci

[dodo28]

J ai oublié de preciser que chaque feuille contienne des formules complexes et qu a chaque activation de macro je mange pus de 50% de cpu.

[PUARAI]

Est ce que tu à éssayé de figer l'écran avec ce :

Code :

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

Application.ScreenUpdating = False

Essaie cela et dis moi si cela à changer un peu ou pas

[dodo28]

oui ca ne marche pas mieux. J ai l impression que l application d une macro engendre un calcul de toute les formules de tous les classeurs ou quelques choses comme ca. enfin il y a un truc qui dure en arriere.

[ucfoutu]

Tu as peut-être, en effet des références circulaires.
Mais tu es alors bien le seul à pouvoir examiner cela (ce que tu as mis dans tes formules).

[PUARAI]

j'ai l'impression que ce sont tes formules qui ralenti ta macros, quand tu ouvres ton classeur est ce qu'il met du temp aussi à s'ouvrir ???

[laetitia]

bonjour le fil peut etre comme cela pour eviter les recalcules

Code :

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

1
2
3
4
5
6
7
8
9
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
'ton code
.ScreenUpdating = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With

[dodo28]

c pas ca car j ai desactivé les calculs multithread et ca ne marche pas non plus

[dodo28]

c vrai Puarai. tous est lent de ce classeur, par exemple quand je modifie une formule il met un temps fou aprés validation pour passer a la ligne suivante.

[PUARAI]

Ta formule elle va d'ou à ou, de quel ligne à quel ligne???
Il m'est arrivé la même chose sur un fichier que j'avais.
Pour te dire j'avais mis une formule dans la colonne B de la ligne 1 à la ligne 65536.
Et ça à mis du temp, même pour effacer une formule dans une cellule.

[dodo28]

les formules ne concerne que quelques lignes par exemple le coloriage sous condition de la macro ci dessus je l applique sur une colonne de 10 lignes

[PUARAI]

Tu peux m'envoyer un fichier ou un exemple sur trois onglets avec ta macros integrer?

[dodo28]

Il est trop lourd même en compressant il est superieur a 600 ko. c'est quoi le site ou on peut faire un lien

voila

[PUARAI]

Ecoute je suis entrain de travAiller dessus et plus ça vas et plus je me dis que ça va être dur j'ai trouver un code de néttoyage qui permet d'alléger un peu ton fichier mais rien.
Je crois qu'il faudrait peut être essayer de supprimer les lignes que tu ne t'on sert pas et voir la suite...
Je suis coriasse en même temp j'apprend je vais continuer et te mettras au courant.
A +++

[dodo28]

merci beaucoup j ai essayer de macro de nettoyage aussi mais sans resultat c'est quand meme bizarre .

[PUARAI]

Ben oui essaie de supprimer les lignes que tu ne t'on sert pas dans l'onglet "maquette" et "A01" et "AO2" ( enfin tu laisse le nombre de ligne que tu à besoin quoi) et tu spprime le reste.

[dodo28]

je pense qu il y a des liaison avec des classeurs qui n existe plus je vé chercher dans ce sens la

[PUARAI]

A peut etre à voir moi je chercherais de mon côté bonne soirée
A+++

[dodo28]

Bonjour
J ai tropuvé cette macro qui detecte des liens :

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
Sub ExtraitDocumentLies()
    Dim TabLiaisons As Variant
    Dim x As Integer
 
    'Renvoie un tableau de TabLiaisons
    TabLiaisons = ThisWorkbook.LinkSources
 
    'Vérifie si le tableau est vide
    If Not IsEmpty(TabLiaisons) Then
        'Boucle sur le tableau
        For x = 1 To UBound(TabLiaisons)
            Debug.Print TabLiaisons(x)
            If Dir(TabLiaisons(x)) = "" Then _
                MsgBox "La liaison est erronée:" & vbCrLf & _
                "'" & TabLiaisons(x) & "'"
        Next x
    End If
End Sub

il y a bien des liens mais je ne sais pas comment les eliminer. Peut etre avez vous une solution
merci

[PUARAI]

Je vais essayer de retrouver ça il y avait un moment j'avais eu un souci aussi comme probléme de liaison déja essaie de retablir la liaison avec tes dossiers manquants ou sinon supprime les .
Juste un equsetion comme ça ton fichier au départ tu la fais sur xl 2003 ou est ce que tout à été faite sur xl 2007 ???