Supprimer colonne VBA

PascalXLD

XLDnaute Barbatruc

• 18 Juillet 2008

• #2

Re : Supprimer colonne VBA

Bonjour

essaies en bouclant à l'envers

Code:

MaxColumn = Range("IV2").End(xlToLeft).Column
    For z = MaxColumn to 1 Step -1
        If Cells(2, z).Value <> "Instrument type" Then
            MsgBox z
            Columns(z).Delete
        End If
    Next

 

Vote positif 0 Vote négatif

N

nougitch

XLDnaute Occasionnel

• 18 Juillet 2008

• #3

Re : Supprimer colonne VBA

Nickel Pascal, merci bcp !
Pourquoi pas de la gauche vers la droite ?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 18 Juillet 2008

• #4

Re : Supprimer colonne VBA

Re

par exemple tu supprimes ta colonne A donc ta colonne B se retrouve en A mais la boucle elle continue à partir de la colonne B et donc tu n'auras pas testé ta colonne B qui est maintenant en A 😀

J'aime bien ce genre d'explications 😀

Par contre en partant à l'envers il n'y a jamais de problème. C'est la même chose pour la suppression des lignes. Il vaut mieux boucler de bas en haut

 

Vote positif 0 Vote négatif

N

nougitch

XLDnaute Occasionnel

• 18 Juillet 2008

• #5

Re : Supprimer colonne VBA

Parfait c'est cool, merci pour ton aide !!!
++

 

Vote positif 0 Vote négatif

R

Régis28

Guest

• 7 Novembre 2008

• #6

Re : Supprimer colonne VBA

Bonjour,

J'ai essayé d'adapter ces lignes à mon cas :

Si 0 dans une cellule en ligne 3 alors suppression de la colonne entière :

Sub Macro1()
For Z = Range("a3").End(xlToRight).Column To 1 Step -1
If Cells(2, Z).Value = 0 Then
Columns(Z).Delete
End If
Next
End Sub

Mais ça me delete toutes les colonnes indépendament de la valeur...
Pouvez vous m'aider ?
Merci d'avance
Régis28

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 7 Novembre 2008

• #7

Re : Supprimer colonne VBA

BOnjour

euh tu parles de ligne 3 et tu testes ligne 2
If Cells(2, Z).Value = 0 Then

il faudrait

If Cells(3, Z).Value = 0 Then

 

Vote positif 0 Vote négatif

R

Régis28

Guest

• 7 Novembre 2008

• #8

Re : Supprimer colonne VBA

Quel idiot je fais... ça marche beaucoup mieux maintenant !
merci beaucoup !
Régis 28

 

Vote positif 0 Vote négatif