[VBA-Excel]Supprimer une colonne entiere basee sur une cellule
Bonjour,
Voila, j'essaie de supprimer toutes les colonnes de ma feuille qui ont sur leur troisieme ligne une cellule dont le fond est transparent, voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
y = Sheets(shtSrc).Range("A1").End(xlToRight).Column
i = 3
Do While i <= y
Worksheets(shtSrc).Cells(3, i).Select
If Selection.Interior.ColorIndex = xlNone Then
Selection.Columns.EntireColumn.Delete
End If
i = i + 2
Loop |
Mais cela ne supprime pas la colonne entiere. J'aimerai bien utiliser un truc du genre .range("C:C").entirecolumn.delete mais je ne vois pas comment dans ce cas.
Vous auriez une idee?
