Supprimer les colonnes nulles?

[hasardeux]

Bonjour,


Dans un fichier j'ai une dizaine de feuille.

Je voudrais à partir de la colonne D jusqu'à la dernière colonne contenant dans la ligne A un titre, je voudrais qu'un code VBA, supprimer toutes les colonnes qui ne contiennent aucune valeur ou dont la somme est nulle.

NB: la ligne A contient les titres

Merci

 

[hasardeux]

Désolé, j'ai une autre indication


Je voudrais à ce que le code soit appliqué à toutes les feuilles sauf les 2 feuilles:

- MATRIX
- CONSOLIDE

merci

 

[hasardeux]

SVP, aucune réponse à ma demande?!!

 

[pat1545.]

Salut

enlever les lignes ou les colonnes vides :

Sub DetruireLignesVides() ' Commencer par le bas
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DerniereLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
ActiveSheet.UsedRange
End Sub
Sub DetruireColVides()
dernierecol = ActiveSheet.UsedRange.Columns.Count
Application.ScreenUpdating = False
For r = dernierecol To 1 Step -1
If Application.CountA(Columns(r)) = 0 Then Columns(r).Delete
Next r
End Sub

Patrick

 

[Luki]

Hasardeux,

Un ptit peu d'patience... et voilà

Un code personnalisé.

Pat t'a envoyé le minimum, à compléter pour te nir compte de tes paramètres. c'est ce que j'ai fait ci dessous.




Sub DELETE_COLONNES()

Dim MyRange As Range
Dim I As Integer

Application.ScreenUpdating = False

For I = 4 To 256

On Error Resume Next ' pour les cas où la somme ne peut-être calculée.

With Columns(I)

If Not .Cells(1) = 'MATRIX' Or .Cells(1) = 'CONSOLIDE' Then

Set MyRange = Range(.Cells(2), .Cells(.Cells.Count))

With Application.WorksheetFunction

If .CountA(MyRange) = 0 Or .Sum(MyRange) = 0 Then

MyRange.EntireColumn.Delete

End If

End With

End If

End With

Next I

MyRange = Nothing

End Sub



Mais bon, si tu te mettais au vba ??

A+

 

[Luki]

hasardeux,

J'était un peu fatigué hier, j'ai mal lu l'énoncé!

J'ai considéré 'matrix ' et 'consolide' comme titres de colonnes et pas comme feuilles !
Tout comme le nombre de colonnes à traiter..

J'apporterai les corrections dès que j'aurai un moment....

A +