Suppression de lignes

aaabbb Messages postés 7 Statut Membre -  
Submin Messages postés 463 Statut Membre -
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

  1.
    Submin Messages postés 463 Statut Membre 226
     
    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!
    0
  2. aaabbb Messages postés 7 Statut Membre
     
    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
    0
    1. Submin Messages postés 463 Statut Membre 226
       
      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
      0

Discussions similaires

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

27 réponses
Probleme d'affichage de ligne dans Excel
sammy79 -
Pierre65 -

12 réponses
remettre toutes les colonnes et les lignes masquées
mousaillon -
oumnas -

4 réponses
Supprimer automatiquement retours à la ligne
brahfous -
Bricol62 -

20 réponses