Discussion :

[Tartenpion]

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 :

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

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?

[SfJ5Rpw8]

oui enléve tous ces sélect et sélection..! ensuite pourquoi incrémente tu i de 2 ..? tu saute des colonnes..?

[Tartenpion]

Oui je saute des colonnes, mais j'ai finalement trouver une alternative a mon prob. Merci