Discussion :

[guismoman60]

Bonjour,

Je sais que cette erreur ou problème est dut à mon système d'exploitation ou PC.

Mais ce qui est claire c'est que c'est bien la première que ça m'arrive.

A peine j'appuie sur le bouton pour actionner la macro, que mon Excel plante.

Je vous mets le code, en espérant que quelqu'un aura une réponse afin de résoudre ce problème.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub formatage()
 
Dim nbre_ligne_data, DernLigne, cpt_ligne_data As Long
Dim test As Boolean
Dim DernColonne, nbre_ligne_pf, j  As Integer
Dim item_pf, item_data  As String
 
Application.ScreenUpdating = False
 
nbre_ligne_data = Workbooks("PICPDP.xlsm").Sheets("DATA").Cells(Rows.Count, 1).End(xlUp).Row
nbre_ligne_pf = Workbooks("PICPDP.xlsm").Sheets("LISTE PF").Cells(Rows.Count, 1).End(xlUp).Row
 
For cpt_ligne_data = 2 To nbre_ligne_data
 
    test = False
 
    For j = 2 To nbre_ligne_pf
        item_pf = Workbooks("PICPDP.xlsm").Sheets("LISTE PF").Cells(j, 1).Value
        item_data = Workbooks("PICPDP.xlsm").Sheets("DATA").Cells(cpt_ligne_data, 5).Value
 
        If item_data = item_pf Then
            test = True
            Exit For
        End If
 
     Next
 
If test = False Then
    'ici, traitement pour le cas où la valeur n'est pas trouvée
    Workbooks("PICPDP.xlsm").Sheets("DATA").Rows(cpt_ligne_data).ClearContents
End If
 
   Application.StatusBar = cpt_ligne_data
 
 
Next
 
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
'dernière colonne ligne 1
DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
 
Cells.Select
    ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("DATA").Sort
        .SetRange Range(Cells(2, 1), Cells(DernLigne, DernColonne))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
Workbooks("PICPDP.xlsm").Sheets("DATA").Columns(23).Delete
Workbooks("PICPDP.xlsm").Sheets("DATA").Columns(22).Delete
Workbooks("PICPDP.xlsm").Sheets("DATA").Columns(17).Delete
Workbooks("PICPDP.xlsm").Sheets("DATA").Columns(13).Delete
Workbooks("PICPDP.xlsm").Sheets("DATA").Columns(11).Delete
Workbooks("PICPDP.xlsm").Sheets("DATA").Columns(4).Delete
Workbooks("PICPDP.xlsm").Sheets("DATA").Columns(3).Delete
Workbooks("PICPDP.xlsm").Sheets("DATA").Columns(2).Delete
Workbooks("PICPDP.xlsm").Sheets("DATA").Columns(1).Delete
 
End Sub

Merci d'avance pour votre aide

Vincent

[Jean-Philippe André]

Salut,

pense à te simplifier la vie en passant par une variable de type workbook.

Code :

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

1
2
dim wbk as Workbook
set wbk = Workbooks("PICPDP.xlsm")

sinon tu feras comment le jour où ton classeur change de nom ? tu te taperas les 150 occurrences de nom à changer ?

Ensuite, c'est mal de passer par des Range sans en préciser le classeur, surtout lorsque tu en manipules plusieurs.

Donc ce bout de code est à revoir :

Code :

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

1
2
3
4
5
DernLigne = Range("A" & Rows.Count).End(xlUp).Row ' quel classeur est sensé fonctionner ?
'dernière colonne ligne 1
DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
 
Cells.Select

Enfin, pour en savoir un peu plus sur la possible cause du crash, je te recommande de passer par des Debug.Print ou à l'écriture de logs dans un fichier texte à interval régulier pour savoir jusqu'où le code tourne et où il plante

[unparia]

J'ajoute à ce que pointe du doigt Jean-Philippe André, que je salue :

Code :

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

1
2
3
4
Dim nbre_ligne_data, DernLigne, cpt_ligne_data As Long ' -----> fait que seule cpt_ligne_data est typée en Long
 
Dim DernColonne, nbre_ligne_pf, j  As Integer ' -----> fait que seule j est typée en Integer (est-ce d'ailleurs suffisant ?)
Dim item_pf, item_data  As String  ' -----> fait que seule item_data est typée en String

et toutes les autres variables ici déclarées seront donc de type Variant, avec, pour conséquences possibles, des dépassements de limite ! --->> plantage !

[Menhir]

Je sais que cette erreur ou problème est dut à mon système d'exploitation ou PC.

Perso, quand j'ai un code qui plante, ma première hypothèse (qui, à ce jour, ss'est toujours vérifiée), c'est que c'est moi qui ait fait une connerie quelque part.
Ca me fait beaucoup rire quand je lis dans les demandes de ce forum que si un code déraille, c'est Excel / le PC / Windows / autre (rayer les mentions inutiles) qui a un bug.

peut-être pourrais-tu commencer à retirer la ligne suivante, histoire d'avoir une chance d'attraper un info si elle apparait ou de voir jusqu'où va le process.

Code :

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

Application.ScreenUpdating = False

Ensuite, essaye de faire tourner en pas-à-pas pour voir sur quelle ligne Excel plante.

Il y a aussi ceci qui semble étrange :

Code :

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

1
2
3
4
For cpt_ligne_data = 2 To nbre_ligne_data
   test = False
   Application.StatusBar = cpt_ligne_data
Next

Pourquoi faire une boucle pour mettre successivement plusieurs valeurs dans une propriété qui, de toute façon, ne conserve que la dernière ?
Si c'est pour faire un compteur, il va falloir avoir de bons yeux vu la vitesse à laquelle ça va sans doute défiler.

Mais il y a surtout ça :

Code :

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

Cells.Select

et l'ensemble des lignes qui suivent.
Tu fais des opérations lourdes (tris) sur l'ensemble des cellules (pas seulement celles utilisées) de la feuilles, ce qui en fait plusieurs centaines de millions.

A mon avis, tu devrais le remplacer par :

Code :

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

UsedRange.Select

Au moins ça limiterait les tris aux cellules utilisées.

Mais, étant donné que tu as relativement peu de champs de tri, il serait encore mieux de remplacer le Sort de Worksheet par celui de Range (plus simple et moins gourmand) appliqué à la référence de tes cellules.
https://msdn.microsoft.com/fr-fr/VBA...t-method-excel

Il serait judicieux aussi de supprimer les colonnes surnuméraires (les Delete qui suivent) AVANT de faire le tri : c'est toujours ça de moins à trier.