Suppression des lignes et colonnes si le sous-total est égale à 0

**Precon** · 23/12/2017, 01h55

Bonjour,

J'ai besoin de votre aide pour réaliser une macro. Malheureusement je suis quasiment "nul" dans ce domaine

J'ai un tableau variables en ligne et en colonnes selon le nombre des commandes clients

Ce que je cherche :

- Aller sur la colonne "Sous.Total.par. ligne" et supprimer toutes les lignes dont le "S.Total.par.ligne" est égale à 0

- Aller sur la ligne "Sous.Total.par.colonne" et supprimer toutes les colonnes dont le ""Sous.Total.par.colonne" est égale à 0.

En pièce jointe un extrait du fichier original

Merci infiniment

Exemple pour macro.xlsx

**ARTURO83** · 23/12/2017, 08h38

Bonjour,
Essayez ceci
https://www.cjoint.com/c/GLxhLPrTX6w
Cdlt

**Precon** · 23/12/2017, 11h50

Envoyé par ARTURO83

Bonjour,
Essayez ceci
https://www.cjoint.com/c/GLxhLPrTX6w
Cdlt

Bonjour Arturo,

Malheureusement je n'arrive pas à ouvrir le fichier.
Le message d'erreur concerne un problème d’extension

**ARTURO83** · 23/12/2017, 11h58

Pour contourner ce problème, n'ouvrez pas le fichier directement . Faite clic droit sur le lien et sélectionnez "Enregistrer le lien sous" sous la destination de votre choix, Puis ouvrez le, ça devrait alller.

**Precon** · 23/12/2017, 12h04

Envoyé par ARTURO83

Pour contourner ce problème, n'ouvrez pas le fichier directement . Faite clic droit sur le lien et sélectionnez "Enregistrer le lien sous" sous la destination de votre choix, Puis ouvrez le, ça devrait alller.

C'est fait et ça marche sur le tableau d'exemple.

Toutefois sur un grand tableau réel (107 lignes et 89 colonnes), le problème apparait : "La colonne ""S.Total"" est introuvable ou mal orthographiée"

Est ce que tu peux me changer les termes "S.Total" on spécifiant plus "S.Total.Commande" pour la colonne à gauche et "S.Total.Bobine" pour la ligne en bas

Désolé de vous déranger Arturo. Je suis très reconnaissant de ce que tu fait pour moi

**ARTURO83** · 23/12/2017, 12h20

Voilà
https://www.cjoint.com/c/GLxltWv7DYw

**Precon** · 19/01/2018, 18h28

Envoyé par ARTURO83

Voilà
https://www.cjoint.com/c/GLxltWv7DYw

Bonjour Artur,

Désolé encore une fois pour le dérangement.

je viens verts toi pour m'aider à corriger le problème de lenteur de la macro en phase exploitation

En utilisant le macro que tu m'as proposé, dont je te remercie infiniment, sur cinq feuilles dans le fichier excel (OF_MP_GM_1...5), ce dernier passe beaucoup de temps pour l'exécution contrairement à deux autres macro que je réalisé.

Est-ce-que tu as des améliorations à me proposer Arturo. Mille est un merci d'avance

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
Sub SupprimerSousTotalNul()
 
Application.ScreenUpdating = False
 
Application.Calculation = xlCalculationManual
 
Set Feuille = ActiveSheet  "Là pour revenir à la feuille d'accueil après l'exécution"
 
Sheets("OF_MP_GM_1").Select
 
 
       'Recherche emplacement de Sous total
    Set C = Rows("8").Find("S.Total.Commande", LookIn:=xlValues)
    If C Is Nothing Then
        MsgBox "La colonne ""S.Total.Commande"" est introuvable ou mal orthographiée"
        Exit Sub
    End If
 
    Set L = Columns("A").Find("S.Total.Bobine", LookIn:=xlValues)
    If L Is Nothing Then
        MsgBox "La ligne ""S.Total.Bobine"" est introuvable ou mal orthographiée"
        Exit Sub
    End If
 
    'recherche et suppression des 0 par lignes
    For i = L.Row - 1 To 8 Step -1
        If Cells(i, C.Column) = 0 Then Cells(i, C.Column).EntireRow.Delete
    Next i
 
    'recherche et suppression des 0 par colonnes
    For i = C.Column - 1 To 3 Step -1
        If Cells(L.Row, i) = 0 Then Range(Cells(8, i), Cells(L.Row, i)).Delete
    Next i
 
Sheets("OF_MP_GM_2").Select
 
       'Recherche emplacement de Sous total
    Set C = Rows("8").Find("S.Total.Commande", LookIn:=xlValues)
    If C Is Nothing Then
        MsgBox "La colonne ""S.Total.Commande"" est introuvable ou mal orthographiée"
        Exit Sub
    End If
 
    Set L = Columns("A").Find("S.Total.Bobine", LookIn:=xlValues)
    If L Is Nothing Then
        MsgBox "La ligne ""S.Total.Bobine"" est introuvable ou mal orthographiée"
        Exit Sub
    End If
 
    'recherche et suppression des 0 par lignes
    For i = L.Row - 1 To 8 Step -1
        If Cells(i, C.Column) = 0 Then Cells(i, C.Column).EntireRow.Delete
    Next i
 
    'recherche et suppression des 0 par colonnes
    For i = C.Column - 1 To 3 Step -1
        If Cells(L.Row, i) = 0 Then Range(Cells(8, i), Cells(L.Row, i)).Delete
    Next i
 
Sheets("OF_MP_GM_3").Select
 
       'Recherche emplacement de Sous total
    Set C = Rows("8").Find("S.Total.Commande", LookIn:=xlValues)
    If C Is Nothing Then
        MsgBox "La colonne ""S.Total.Commande"" est introuvable ou mal orthographiée"
        Exit Sub
    End If
 
    Set L = Columns("A").Find("S.Total.Bobine", LookIn:=xlValues)
    If L Is Nothing Then
        MsgBox "La ligne ""S.Total.Bobine"" est introuvable ou mal orthographiée"
        Exit Sub
    End If
 
    'recherche et suppression des 0 par lignes
    For i = L.Row - 1 To 8 Step -1
        If Cells(i, C.Column) = 0 Then Cells(i, C.Column).EntireRow.Delete
    Next i
 
    'recherche et suppression des 0 par colonnes
    For i = C.Column - 1 To 3 Step -1
        If Cells(L.Row, i) = 0 Then Range(Cells(8, i), Cells(L.Row, i)).Delete
    Next i
 
Sheets("OF_MP_GM_4").Select
 
       'Recherche emplacement de Sous total
    Set C = Rows("8").Find("S.Total.Commande", LookIn:=xlValues)
    If C Is Nothing Then
        MsgBox "La colonne ""S.Total.Commande"" est introuvable ou mal orthographiée"
        Exit Sub
    End If
 
    Set L = Columns("A").Find("S.Total.Bobine", LookIn:=xlValues)
    If L Is Nothing Then
        MsgBox "La ligne ""S.Total.Bobine"" est introuvable ou mal orthographiée"
        Exit Sub
    End If
 
    'recherche et suppression des 0 par lignes
    For i = L.Row - 1 To 8 Step -1
        If Cells(i, C.Column) = 0 Then Cells(i, C.Column).EntireRow.Delete
    Next i
 
    'recherche et suppression des 0 par colonnes
    For i = C.Column - 1 To 3 Step -1
        If Cells(L.Row, i) = 0 Then Range(Cells(8, i), Cells(L.Row, i)).Delete
    Next i
 
Sheets("OF_MP_GM_5").Select
 
       'Recherche emplacement de Sous total
    Set C = Rows("8").Find("S.Total.Commande", LookIn:=xlValues)
    If C Is Nothing Then
        MsgBox "La colonne ""S.Total.Commande"" est introuvable ou mal orthographiée"
        Exit Sub
    End If
 
    Set L = Columns("A").Find("S.Total.Bobine", LookIn:=xlValues)
    If L Is Nothing Then
        MsgBox "La ligne ""S.Total.Bobine"" est introuvable ou mal orthographiée"
        Exit Sub
    End If
 
    'recherche et suppression des 0 par lignes
    For i = L.Row - 1 To 8 Step -1
        If Cells(i, C.Column) = 0 Then Cells(i, C.Column).EntireRow.Delete
    Next i
 
    'recherche et suppression des 0 par colonnes
    For i = C.Column - 1 To 3 Step -1
        If Cells(L.Row, i) = 0 Then Range(Cells(8, i), Cells(L.Row, i)).Delete
    Next i
 
 
Feuille.Select
 
MsgBox "Suppression des commandes nulles effectuée", 64
Exit Sub
 
 
Application.Calculation = xlCalculationAutomatic
 
End Sub

**Philippe Tulliez** · 20/01/2018, 01h49

Bonjour,
A la lecture de la demande, il semble qu'il s'agisse tout simplement d'une suppression de lignes et de colonnes suivant un ou plusieurs critères.
En ce qui concerne la suppression des lignes suivant critères, je ne peux que te suggérer d'utiliser le filtre avancé d'excel (en VBA méthode AdvancedFilter de l'objet Range)

Avant de commencer, lire ce tutoriel Les filtres avancés ou élaborés dans Excel

Manuellement voici les étapes à suivre après avoir placé les critères dans la zone des critères

Lancer le filtre avancé d'excel
Sélectionner la zone des données filtrées
Supprimer les lignes visibles
Effacer le filtre

En vba un exemple dans ce billet Supprimer des lignes suivant critères avec la méthode AdvancedFilter

Il te restera ensuite à gérer la suppression des colonnes.

**unparia** · 20/01/2018, 07h08

Bonjour
N'ayant ouvert aucune des pièces jointes à la présente discussion, ce que je ne fais et ne ferai jamais, je ne puis qu'essayer de comprendre/deviner en analysant les commentaires et les bouts de code ici exposés.

Cela suffit cependant à provoquer en moi certaines réactions et me conduire à alerter sur la nécessité de faire très attention avec une démarche de l'espèce.

Je vois par exemple dans un bout de code montré ici :

Code :

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

For i = L.Row - 1 To 8 Step -1

que des "choses" semblent présentes au-dessus de la ligne 8
Il semble (code un peu plus bas) que des choses soient également présentes à gauche de la colonne 3

Tout donne donc à penser que des colonnes (combien et lesquelles) des lignes 1 à 7 contiennent des données autres (titres ?, autres valeurs ? ...) à préserver
Idem en ce qui concerne les lignes des colonnes 1 et 2

Si tel est bien le cas, je ne puis qu'alerter sur les dégâts éventuels induits de suppression de lignes entières et surtout de colonnes entières

Mais une autre fois : je ne puis que tenter de "supposer" et alerter , puisque tout ou presque est "présenté" ici via des pièces jointes que je ne veux surtout pas ouvrir.

Suppression des lignes et colonnes si le sous-total est égale à 0

Excel

Discussions similaires

Partager

Partager