Supprimer lignes et colonnes

vgendron

XLDnaute Barbatruc

• 17 Juin 2013

• #2

Re : Supprimer lignes et colonnes

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Juin 2013

• #3

Re : Supprimer lignes et colonnes

Bonjour,

essaye peut être comme ceci :

Code:

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
@+

 

Vote positif 0 Vote négatif

A

alexes82

Guest

• 17 Juin 2013

• #4

Re : Supprimer lignes et colonnes

Bonjour,

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Juin 2013

• #5

Re : Supprimer lignes et colonnes

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

A

alexes82

Guest

• 18 Juin 2013

• #6

Re : Supprimer lignes et colonnes

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

Merci!

 

Vote positif 0 Vote négatif

A

alexes82

Guest

• 18 Juin 2013

• #7

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.

 

Vote positif 0 Vote négatif

A

alexes82

Guest

• 18 Juin 2013

• #8

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. 😉

 

Vote positif 0 Vote négatif