[RESOLU] [Macro] effacer colonne si conditions remplies

[chacal33]

Bonjour,

j'ai écrit une macro que je pensais juste mais qui ne l'est pas...
Je souhaite supprimer une colonne entière dès lors que la cellule en ligne 1 ne contient pas le texte "aaa" ou le texte "bbb" ou est vide.

Merci de votre retour.

Sub COLONNE()
Dim Rng As Range
Dim Cell As Range

    Set Rng = Sheets("Feuil1").Range("B1:AAA1")
    
    For Each Cell In Rng
        If Not Cell.Value Like "*aaa*" Or Not Cell.Value Like "*bbb*" Or IsEmpty(Cells) Then
            Cell.EntireColumn.Delete
            
        End If
    Next Cell

End Sub

 

[Pierrot93]

Re : [Macro] effacer colonne si conditions remplies

Bonjour,

quand tu supprimes des lignes ou des colonnes, il faut commencer par la fin et remonter.... ton test "or" doit également être remplacé par un "and" :

Option Explicit
Sub test()
Dim i As Long
'For i = Cells(1, Columns.Count).End(xlToLeft).Column To 2 Step -1
For i = 703 To 2 Step -1
    If Not Cells(1, i) Like "*aaa*" And Not Cells(1, i) Like "*bbb*" Or IsEmpty(Cells(1, i)) Then Columns(i).Delete
Next i
End Sub

bon après midi
@+

 

[chacal33]

Re : [Macro] effacer colonne si conditions remplies

Merci encore Pierrot,

ça fonctionne super.

Je n'étais pas très loin, mais je bloquais. J'ai encore du boulot avant de Barbatruquer!!!