Excel redémarre lors d'une sauvegarde

Version imprimable

19/04/2012, 02h09
apt

Excel redémarre lors d'une sauvegarde

Bonjour à tous,

Dans un fichier, lorsque je voudrais sauvegarder des modifications, Excel signal une erreur et redémarre.

Citation:

Microsoft Office Excel à rencontré un problème et doit fermé. Nous vous prions de nous excuser pour le désagrément encouru.

Comment résoudre ce problème ?

Merci d'avance.
19/04/2012, 10h30
L'Albatros

Oulah...8O
Avez-vous intégré des macros dans ce classeur ?
19/04/2012, 15h00
apt

Bonjour Albatros,

Ce fichier contient plusieurs macros et il marchait parfaitement ca fait deux ans.

Seulement récemment j'ai ajouté un petit code pour renommer automatiquement des plages en plus d'un code pour calculer la moyenne avec mise en forme conditionnelle.

Mais je ne sais pas si mon problème vient de ces deux morceaux de code ?
20/04/2012, 10h53
L'Albatros

Ah ben il y a des chances, oui...

Pourriez-vous svp poster ce rajout de code ?

Bonjour Albatros,

Voila :

1 - Calcul de la moyenne avec MFC :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
If x.Row <> [Z1] Then
            pCel = [Z1].Value    '
            MsgBox "Nouvelle ligne trouvée " & x.Row & " pour l'article : " & c.Value & vbCrLf & _
                   "Ancienne ligne Z1 : " & [Z1] & vbCrLf & _
                   "Nbre de valeurs dans la ligne précédente " & [Z1].Value & " est " & Application.CountA(Range("N" & [Z1].Value & ":X" & [Z1].Value))
            If Application.WorksheetFunction.CountA(Range("N" & pCel & ":X" & pCel)) > 1 Then
                MsgBox "Ligne en traitement previous cell : " & pCel
                Worksheets("Feuil2").Range("N" & pCel & ":X" & pCel).Name = "Prix"
                Cells(pCel, 25).Activate
 
                With ActiveCell
                    .Formula = "=AVERAGE(" & Range("Prix").Address(0, 0) & ")"
                    .ClearComments    'je supprime le commentaire existant
                    .AddComment    'je créé le commentaire
                    .Comment.Visible = True
                    .Comment.Text Text:=Range("M" & pCel).Text     'commentaire
                    .Comment.Shape.ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft
                    .Comment.Shape.ScaleHeight 0.19, msoFalse, msoScaleFromTopLeft
                End With
            Else
                Cells(pCel, 25).ClearComments
            End If
            [Z1].Value = x.Row
        End If

2 - Plages nommées dynamiquement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'-------------------------------------
    dbTab = Array("Débit", "Débit_Date", "Débit_Noms", "reDébit", "reDébit_Date", "reDébit_Noms")
    Set myPlg = Union([A2:C2], [I2:k2])
    x = 0
    For Each c In myPlg.Cells
        If Len(c.Offset(1, 0)) > 0 Then
            Range(c.Address, c.End(xlDown).Address).Name = dbTab(x)
        Else
            c.Name = dbTab(x)
        End If
 
        x = x + 1
    Next
    Set myPlg = Nothing
    '--------------------------------------------

Tac, à la volée: erreur de syntaxe pour la boucle For Each c...Next c
Il faut mettre quelque chose après Next, sinon, boucle infinie (si ça passe entre les mailles du debugger)
cf ci-dessous:
Code:

1 2 3 4 5 6 7 8 9 For Each c In myPlg.Cells If Len(c.Offset(1, 0)) > 0 Then Range(c.Address, c.End(xlDown).Address).Name = dbTab(x) Else c.Name = dbTab(x) End If x = x + 1 Next c
Il y a peut-être d'autres trucs, mais essaie déjà comme cela

26/04/2012, 00h13
apt

Bonsoir,

J'ai rectifié le code mais sans résultat.

Alors, j'ai complètement pris un ancien fichier, et mettre à jour les feuilles ainsi que les codes.

Et, pour les codes soupçonnés de créer ce problème, j'ai pris le soin de les ajouter un par un jusqu'au dernier.

Mon classeur fonctionnait bien pour quelques jours, jusqu'a aujourd'hui ou le problème à nouveau surgit.

Quelqu’un à une idée sur ce disfonctionnement ?

Merci.