Discussion :

[apt]

Bonjour à tous,

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

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.

[L'Albatros]

Oulah...
Avez-vous intégré des macros dans ce classeur ?

[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 ?

[L'Albatros]

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

Pourriez-vous svp poster ce rajout de code ?

[apt]

Bonjour Albatros,

Voila :

1 - Calcul de la moyenne avec MFC :

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
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 :

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

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
    '--------------------------------------------

[L'Albatros]

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 :

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

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