Problème fichier se fige après copier/collage ou rajout de lignes

[anthoYS]

Bonjour,

Je rappelle que je suis sous Excel 2007, j'ai un fichier lourd de 3,41 Mo, dès que je rajoute des lignes ou je copie une liste de données assez importante, le fichier se fige et il ne reste plus que la flèche du curseur de souris sur le fichier, pour retrouver le fichier en état de fonctionnement, je dois ouvrir un autre fichier Excel... Mais le hic, c'est que dès que je recommence, rebelotte! 😡

J'en ai marre de cette perte de temps...

@+ à ceux qui ont une idée de résoudre ceci, aux autres bonne continuation sur le forum 🙂

 

[JNP]

Re : Problème fichier se fige après copier/collage ou rajout de lignes

Re 🙂,
Pour que ça se fige, c'est que tu dois avoir un paquet de formules, voir de fonctions VBA...
As-tu essayé de passer en calcul manuel, et de mettre en commentaire les Application.Volatile ?
A + 😎

 

[anthoYS]

Re : Problème fichier se fige après copier/collage ou rajout de lignes

Re,

Merci pour ta réponse rapide.

As-tu essayé de passer en calcul manuel, et de mettre en commentaire les Application.Volatile ?
A + 😎

Désolé mais je ne comprends pas du tout...

@+

 

[anthoYS]

Re : Problème fichier se fige après copier/collage ou rajout de lignes

Re,

Dans le classeur oui, voici le plus long (erroné, voir sur ce post),

Mais pas dans les autres feuilles de ce classeur ou ça se fige aussi.

Code le plus long du classeur (onglet 'x'):

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [E2:E65536])
If Target Is Nothing Then Exit Sub
Dim T As String, s As Object, e As Byte
Application.ScreenUpdating = False
ThisWorkbook.DisplayDrawingObjects = xlAll

'---Effacement---
T = Target.Cells(1, 1).Formula
Application.EnableEvents = False
Target.ClearContents
Target.Font.ColorIndex = xlAutomatic
For Each s In ActiveSheet.Shapes
  If s.TopLeftCell = "" And s.TopLeftCell.Column = 5 Then s.Delete
Next
Set Target = Target.Cells(1, 1)
Target.Formula = T
Application.EnableEvents = True

'---Création de la forme---
If IsNumeric(Target) Then 'en cas de valeur d'erreur
  If Target > 0 And Target <= 9 Then
    Target.Font.ColorIndex = 2
    With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 15)
      .OnAction = "Selectionne"
      .Fill.Visible = msoFalse
      .Line.Visible = msoFalse
      With .TextFrame
        e = Int(CDec(Target))
        .Characters.Text = Application.Rept("ê", e - (Target > e))
        .Characters.Font.Name = "Wingdings 2"
        .Characters.Font.ColorIndex = [H4].Offset(Target - e < 0.5).Font.ColorIndex
        If e > 0 Then .Characters(1, e).Font.ColorIndex = [H5].Font.ColorIndex
        .AutoSize = True
      End With
      .Left = Target.Left + Application.Max(0, (Target.Width - .Width) / 2)
      .Top = Target.Top + Application.Max(0, 1 + (Target.Height - .Height) / 2)
    End With
  End If
End If
Application.OnRepeat "", ""
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    If .Column = 2 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 124.5
            .Comment.Shape.Height = 22.6
        End If
        SendKeys "%im"
    End If
End With
End Sub

@+

 

[JNP]

Re : Problème fichier se fige après copier/collage ou rajout de lignes

Re 🙂,

Désolé mais je ne comprends pas du tout...

Pour le calcul sur ordre :
Bouton Office, en bas Options Excel -> onglet Formules -> première partie Mode de calcul -> Calcul du classeur cocher Manuel
Pour les fonctions personnalisée (VBA écrit sous forme Function MaFonction(X) utilisable dans les cellules), il est généralement utilisé Application.Volatile qui relance le calcul à chaque modification de cellule, mais si ton insertion de ligne relance 2 000 000 de calculs, il est préférable de le mettre en commentaire.
Ensuite, quand tu veux que tes calculs se fassent, la touche F9 lance les calculs.
Ça va mieux 😛?
A + 😎

 

[anthoYS]

Re : Problème fichier se fige après copier/collage ou rajout de lignes

Oui. C'est un peu plus clair... (voir PJ)

Et grâce à toi JNP.

Merci pour le coup (de main).

A+