Supprimer lignes et colonnes

[alexes82]

Bonjour,

Je dois surrement faire un doublon mais j'ai pas trouvé de problème similaire, désolé si c'est le cas.

J'ai des lignes et des colonnes à supprimer.

J'ai mis dans la colonne "A" un x pour les lignes à supprimer,
et
dans la ligne "1" également un x pour les colonnes à supprimer.

J'arrive à supprimer les lignes:

Sub simplifiée()
ActiveSheet.Outline.ShowLevels RowLevels:=3
Dim l As Long
For l = 300 To 1 Step -1
If Cells(l, "A").Value = "x" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub

Mais pas les colonnes.

Idéalement j'aimerais bien que les deux conditions soit dans la même macro, pour pas avoir 2 boutons.

Merci.

 

[vgendron]

Re : Supprimer lignes et colonnes

salut
pour les colonnes, meme principe, mais tu utilises entirecolumn.delete

 

[Pierrot93]

Re : Supprimer lignes et colonnes

Bonjour,

essaye peut être comme ceci :

Option Explicit
Sub test()
Dim l As Long
For l = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If Cells(l, 1).Value = "x" Then Rows(l).Delete
Next l
For l = Cells(1, Columns.Count).End(xlToLeft).Row To 1 Step -1
    If Cells(1, l).Value = "x" Then Columns(l).Delete
Next l
End Sub

bon après midi
@+

 

[alexes82]

Re : Supprimer lignes et colonnes

Bonjour,

ça marche pour les lignes mais pas pour les colonnes.

 

[Pierrot93]

Re : Supprimer lignes et colonnes

Re,

AArf, autant pour moi modifie la 1ère ligne de la boucle ainsi :

For l = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1

 

[alexes82]

Re : Supprimer lignes et colonnes

Génial ça marche! Tu me sauve la vie.

Merci!

 

[alexes82]

Re : Supprimer lignes et colonnes

Mon chef préfére que les lignes et les colonnes soit masquées!

J'airemplacé le mot "Delete" par "Hidden" mais ça ne marche pas.

 

[alexes82]

Re : Supprimer lignes et colonnes

C'est bon j'ai remplacé par "hidden = true" et ça marche.

Encore merci t'es tellement bon que je trouve tout seul.