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 :
Seulement j'ai le message d'erreur 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
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 !!!
Partager