Discussion :

[desdenova]

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 !!!

[megapacman]

c'est pas un truc comme ca plutot:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
 Columns(a).Select
 Selection.Delete Shift:=xlToLeft

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[desdenova]

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

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