2016-11-22 2 views
0

Je suis actuellement confronté à un problème très anormal avec mon classeur Excel, et je voudrais vous demander de l'aide. Mon classeur fonctionne comme un outil de devis et génère un PDF par la suite. Tout d'abord, vous devez saisir des données provenant de différentes sources (par exemple, des fichiers PDF, des classeurs Excel, etc.) dans une feuille de calcul appelée Master. Vous pouvez effectuer des calculs avec des formules simples et exporter les résultats dans une autre feuille appelée Calc_Overview. Dans ce processus, les données sont également formatées avec la bonne police, couleur et taille.MS Excel 2013 - crash après l'édition de la valeur de la cellule

With ActiveWorkbook.Worksheets("Master") 
    For i = 12 To .UsedRange.rows.Count 
     If .Cells(i, 2) <> "" Then 
      .Cells(i, 2).Copy Destination:=Target.Cells(k, 4) 
      .Range(.Cells(i, 4), .Cells(i, 5)).Copy _ 
      Target.Range("F" + k, "G" + k).PasteSpecial xlPasteValues 

      .Range(.Cells(i, 6), .Cells(i, 7)).Copy _ 
      Destination:=Target.Range("I" + k, "J" + k) 

      .Cells(i, 8).Copy _ 
      Destination:=Target.Cells(k, 8) 
      k = k + 1    
     End If 
    Next i 
End With 

Après cette opération, l'utilisateur peut voir un résumé de ses données entrées et calculées. Avec une autre macro, qui copie les lignes dans 3 feuilles de calcul différentes (selon le type), le processus de calcul est terminé.

Ceci est ma fonction de copie:

Function CopyTable(Typ As String, Counter As Integer, Count As Integer) As Integer 

    With Worksheets("Calc_Overview") 
     .Range("A" & Count & ":" & "D" & Count).Copy _ 
      Destination:=Sheets(Typ).Range("A" & 5 + Counter) 

     .Range("G" & Count & ":" & "H" & Count).Copy _ 
      Destination:=Worksheets(Typ).Range("E" & 5 + Counter) 
    End With 

    CopyTable = Counter + 1 

    End Function 

Maintenant, mon problème: Si vous essayez de modifier les données qui a été transférée dans la feuille finale, il arrive souvent que Excel se bloque sans raison. Après avoir modifié une valeur de cellule, en appuyant sur Entrée ou en cliquant sur une autre cellule, Excel se bloquera.

je l'ai déjà désactivé l'option « automatique flash Flash » et « Afficher l'analyse rapide », mais le problème persiste ..

Quelqu'un at-il une idée de ce qui pourrait causer ce problème? J'ai déjà remplacé les feuilles de calcul finales par de nouvelles, sans copier quoi que ce soit à partir des «brisées» - sans succès non plus. J'utilise un PC Windows 10 (x64) avec un Microsoft Office 2013 32 bits.

Je cherche vraiment des conseils ou des solutions concernant ce problème!

Un grand merci

Moritz

+1

'cellules (CSTR (i), ...)' pourquoi cette conversion de i à chaîne? vba fera la conversion en str puis en entier. BTW Cela rend votre code un peu bruyant pour quelqu'un qui essaie d'aider. –

+0

Avez-vous un événement 'Worksheet_Change' ou' Worksheet_SelectionChange' dans votre projet vba? Ils sont en cours d'exécution si vous modifiez une valeur de cellule ou si vous appuyez sur Entrée après la sélection d'une cellule. Si oui, vous pouvez regarder dans ceux-ci pour trouver le problème (juste une supposition) – Lukas

+0

@ A.S.H Merci pour ce conseil, j'ai changé cela! –

Répondre