Supprimer colonne VBA

[nougitch]

Bonjour,

J'ai le code suivant :

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

Mais ma colonne ne s'efface pas ?

Merci par avance pour votre aide.
Cdt,

 

[PascalXLD]

Re : Supprimer colonne VBA

Bonjour

essaies en bouclant à l'envers

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

 

[nougitch]

Re : Supprimer colonne VBA

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

 

[PascalXLD]

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

 

[nougitch]

Re : Supprimer colonne VBA

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

 

[Régis28]

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

 

[PascalXLD]

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

 

[Régis28]

Re : Supprimer colonne VBA

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