Supression de colonnes si "valeur" dans cellule X

Bonjour à tous,

Je découvre le VBA depuis une semaine et c'est mon premier post. J'espère que je ne pose pas une question redondante et que je respecte les formes !

Je souhaites que pour toute cellule qui contienne "%" (texte) ou qui soit vide dans la ligne 9 de mon tableau, la colonne entière soit supprimée.

Mon code fonctionne pour les headers % mais pas pour les vides. Pourriez vous m'aider ? j'ai essayer plein de choses différentes sans succès...

Voici le code:

Dim Y As Integer
 For Y = 3 To 100 'colonne 3 à 100

If Cells(9, Y) = "%" Or Cells(9, Y) = " " Then Cells(9, Y).EntireColumn.Delete ' supression des colonnes qui à la ligne 9 sont "%" ou vides

                            Next Y

Merci beaucoup.

Ugo

Bonsoir ugojoulin , le forum,

A tester....

Dim Y As Integer

Application.ScreenUpdating = False
 For Y = 100 To 3 Step -1
  If Cells(9, Y) = "%" Or Cells(9, Y) = "" Then Columns(Y).EntireColumn.Delete ' supression des colonnes qui à la ligne 9 sont "%" ou vides
 Next Y

Application.ScreenUpdating = True

Cordialement,

Salut ugojoulin,

Salut Xorsankukai,

pour compléter l'excellent code de Xor,

'
Dim Y%
'
For Y = 100 To 3 Step -1 'colonne 3 à 100
    If Cells(9, Y) = "%" Or Cells(9, Y) = "" Then Columns(Y).Delete shift:=xlToLeft
Next
'

Tes erreurs ;

- quand on veut supprimer des lignes ou colonnes, on procède à rebrousse-poil ;

Imagine-toi, dans ta boucle FOR NEXT, être sur la colonne, par ex. 10, qui correspond aux critères d'effacement.

Donc, la colonne 10 s'efface... la colonne 11 prend donc la place de la 10... -> NEXT t'envoie vers la colonne 11 qui est en fait l'ex-colonne 12 : tu as ainsi zappé le contrôle de l'ex -colonne 11!

Or Cells(9, Y) = " "

La, tu recherches une ESPACE alors que ton critère est le vide, donc "" !

- enfin, petit détail pour Xor,

 shift:=xlToLeft

pour la beauté du geste!

A+

Curulis57,

Xorsankukai,

Un gros merci pour ces réponses rapides et détaillées. Tout marche parfaitement.

Have a good evening