[RESOLU] [Macro] effacer colonne si conditions remplies

chacal33 · 21 Août 2013

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.

Code:

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 · 21 Août 2013

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" :

Code:

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 · 21 Août 2013

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

[RESOLU] [Macro] effacer colonne si conditions remplies

chacal33

Guest

Pierrot93

XLDnaute Barbatruc

chacal33

Guest

Discussions similaires

[RESOLU] [Macro] effacer colonne si conditions remplies

chacal33

Guest

Pierrot93

XLDnaute Barbatruc

chacal33

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency