VBA Tri et suppression de lignes et colonnes

Y

Yaloo

XLDnaute Barbatruc

• 13 Février 2013

• #2

Re : VBA Tri et suppression de lignes et colonnes

Bonjour Fred,

Fred74 à dit:

J'aimerai dans le fichier en annexe effectuer un tri au moyen d'un bouton et supprimer les colonnes vides et également la colonne K (référence) en tenant compte que les lignes et colonnes peuvent varier dans le nombre d'une fois à l'autre.

Cliquez pour agrandir...

Sur quoi veux-tu porter ton tri, sur quelle colonnes ?

Quand tu dis vouloir supprimer les "colonnes vides et également la colonne K" que veux-tu supprimer les lignes dont la cellules en K est vide ?

A te relire

Martial

 

Vote positif 0 Vote négatif

F

Fred74

Guest

• 13 Février 2013

• #3

Re : VBA Tri et suppression de lignes et colonnes

Bonjour Martial,

Merci pour ta réponse.

Pour le tri, j'amerai faire des sous totaux par affectation (colonne J).

J'aimerai supprimer toutes les colonnes (pas seulement les cellules) qui sont vides comme la colonne G et celles qui ne me servent à rien comme la colonne K.

Merci

Fred

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 13 Février 2013

• #4

Re : VBA Tri et suppression de lignes et colonnes

Re,

Voici ton fichier modifié, il me semble avoir bien compris si ce n'est pas le cas ...

A te relire

Martial

 

Pièces jointes

• Tri V1.xlsm

  42.5 KB · Affichages: 44

Vote positif 0 Vote négatif

F

Fred74

Guest

• 13 Février 2013

• #5

Re : VBA Tri et suppression de lignes et colonnes

Martial,

J'ai testé le fichier, mais il créer un bug.

Voici le débogage : Selection.Subtotal GroupBy:=10, Function:=xlSum, TotalList:=Array(12, 15), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True

Merci et salutations.

Fred

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 13 Février 2013

• #6

Re : VBA Tri et suppression de lignes et colonnes

Re,

As-tu un message d'alerte ?

As-tu fait du pas à pas ? Pour voir ce qui n'allait pas ?

Martial

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 13 Février 2013

• #7

Re : VBA Tri et suppression de lignes et colonnes

Re,

Essaie avec cette macro :

VB:

Sub test()
Dim i&, c&, DerC&
'Permet de faire le sous total des colonnes L et O
[A1].CurrentRegion.Subtotal GroupBy:=10, Function:=xlSum, TotalList:=Array(12, 15), _
    Replace:=True, PageBreaks:=False, SummaryBelowData:=True
'Supprime la colonne K
Columns("K").EntireColumn.Delete
DerC = Cells(1, Columns.Count).End(xlToLeft).Column
For c = DerC To 1 Step -1
  'Pour chaque colonne, si la dernière ligne est 1, donc le reste est vide
  'Alors on supprime la colonne
  If Cells(Rows.Count, c).End(xlUp).Row = 1 Then Columns(c).EntireColumn.Delete
Next
End Sub

A+

Martial

 

Vote positif 0 Vote négatif

F

Fred74

Guest

• 13 Février 2013

• #8

Re : VBA Tri et suppression de lignes et colonnes

Martial,

Merci beaucoup tu m'a bien rendu service. Ca fonctionne à merveille.

Salutations

Fred

 

Vote positif 0 Vote négatif