Supprimer les lignes dont les données d'une colonne
      ne répondent pas à des critères définis.

Page mise à jour le : 21/06/2011

      La question posée est comment effacer toutes les lignes qui ne commencent pas par EUR et USD ?

J'ai une feuille de calcul avec de nombreuses colonnes et dans ma colonne I, j'ai des libellés du type de ce qui suit dessous:

   EUR PREPARATION
   USD PREPARATION
   GPB PREPARATION
   EUR MOTEUR
   CZK POSITION
   JPY COMPTA
   EUR VERSEMENT
   USD APPLICATION
   USD COMPTA
   USD CHEQUES
   EUR CHEQUE
   JPY CHEQUE
   GPB DIVERS
   CZK VIREMENT

      Pour réaliser cette manipulation voici le code VBA à utiliser.

 

Sub ChercheEuros()

    Dim Cell As Range

    Application.ScreenUpdating = False

    ' Les critères de sélection sont dans la colonne I

    Set plg = Range([I2], [I65536].End(xlUp))

    For I = plg.Count + 1 To 2 Step - 1

        If Mid(Cells(I, 9 ).Value, 1 , 3 ) = "EUR" Or Mid(Cells(I, 9 ).Value, 1 , 3 ) = "USD" Then

        Else

            Rows(I & ":" & I).Delete

        End If

    Next I

End Sub