[VBA-E] Suppression des colonnes avec condition

Bonjour,


Dans un fichier EXCEL, je souhaite supprimer toutes les colonnes d'un tableau dans lequel la valeur de la ligne 4 est = à 0. En gros :

Si A4=0 alors suppression colonne, C4=0 alors suppression colonne etc.

J'ai tapé le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10

sub suppr_colonne()   Dim a As Integer ActiveSheet.Range("A4").Select For a = 1 To 256 If Selection.Offset(0, a) = 0 Then Selection.Offset(0, a).EntireColumn.Delete Next a   End Sub

---

Seulement j'ai le message d'erreur suivant :

erreur d'execution '1004'
erreur définie par l'application ou par l'objet

???

je ne comprends pas très bien...

MERCI D'AVANCE POUR VOS EXPLICATIONS !!!

c'est pas un truc comme ca plutot:

Code:

---

1 2 3 4

Columns(a).Select Selection.Delete Shift:=xlToLeft

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub suppr_colonne()   Dim a As Integer   For a = 1 To 256   If Cells(4, a).Value = 0 Then Columns(a).Select Selection.Delete Shift:=xlToLeft End If   Next a   End Sub

---

fo tester maintenant , j'ai pas testé
;)

merci beaucoup pour ton aide !!!!!!!!

çà marche !!!!!!!!!!