Utilisation du like Résolu

Question

Bonjour, 
Le like que j'utilise dans le programme ci-dessous pour me supprimer toute le colonnes dont la premiére ligne ne contient pas le mot "ROUTE" ne fonctionne pas et je vois pas pourquoi. Quand j´éxécute le programme tout les colonnes sont supprimées.
Quelqu' un voit l'erreur comise ?

Sub columnsdelete()
Dim I As Long
Dim LastCol As Long

ActiveSheet.Copy

Application.ScreenUpdating = False

With ActiveSheet
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
For I = LastCol To 4 Step -1
           If Cells(1, I) Like "* ROUTE *" Then GoTo suite
           Columns(I).Delete
suite:
Next I

End With

Application.ScreenUpdating = True

End Sub

f894009 · Answer

Bonjour,
Sub columnsdelete()
Dim I As Long
Dim LastCol As Long

ActiveSheet.Copy

Application.ScreenUpdating = False
With ActiveSheet
    LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    For I = LastCol To 4 Step -1
        If Not UCase(Cells(1, I)) Like "*ROUTE*" Then Columns(I).Delete
    Next I
End With
Application.ScreenUpdating = True

End Sub

Attention, c'est sur la copie que le code s'execute!

Utilisation du like

1 réponse

Discussions similaires

Newsletters