Suppressions lignes

Bonjour,

Je recherche de l’aide sur une problématique :

Comment est-il possible via une macro, de supprimer les lignes ne contenant pas le prénom « BENJAMIN » ?

Merci d’avance,

10effaceligne.xlsm (9.17 Ko)

Bonjour Jess88,

A tester: macro de Banzaï adapté à tes besoins

Option Compare Text   ' Pas de différence minuscule/majuscule
Sub nettoyer()
  Application.ScreenUpdating = False
  derlig = Range("A65536").End(xlUp).Row
  For ligne = derlig To 1 Step -1
    If Not Range("C" & ligne) Like "Benjamin" And Not Range("D" & ligne) Like "Benjamin" And Not Range("E" & ligne) Like "Benjamin" Then
      Rows(ligne).Delete
    End If
  Next ligne
  Application.ScreenUpdating = True
End Sub

Cordialement,

Bonjour Xarsankukai,

Je viens d'essayer et cela fonctionner super !

Merci de ton aide =)

Rechercher des sujets similaires à "suppressions lignes"