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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !!!