Suppression de lignes

aaabbb -  
Bonjour,
je souhaite créer une macro pour supprimer les lignes si un nom dans la colonne B, Cellule 2 à 38000, est différent d'un nom spécifique.

Merci d'avance

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. Submin
    Bonjour

    Pourquoi tu n'utilise pas une boucle for normal? (Mais en décrémentant sinon tu va avoir des pertes) 

        Dim i As Double
    For i = 38000 To 1 Step -1
        If Cells(i, 3) = "lol" Then
            Rows(i).Delete
        End If
    Next i


    Le temps de traitement est invisible!
    1. aaabbb Auteur
      Merci!

      Par contre cela prends beaucoup de temps( minimum 3 min).

      Serait-il donc possible d'avoir un code vba afin d'extraire les
      lignes contenant "lol" (par exemple) sur un autre classeur et dans une feuille différente à chaque fois?

      Merci d'avance
      1. Submin
        Oui c'est possible mais tu veux les mettre dans un autre document Excel ou juste dans une autre feuille de ton Excel?

        Pour optimiser ton code tu peux supprimer le raffraissement d'écran et le remettre à la fin
        Application.ScreenUpdating = False
        ...
        ...
        ...
        Application.ScreenUpdating = True

    Discussions similaires

    Excel : afficher toutes les lignes et colonnes masquées
    livlarsen

    27 réponses
    remettre toutes les colonnes et les lignes masquées
    mousaillon

    4 réponses
    Probleme d'affichage de ligne dans Excel
    sammy79

    12 réponses
    Supprimer automatiquement retours à la ligne
    brahfous

    20 réponses