Macro pour supprimer des lignes suivant le contenue des cellules

kippo · 18 Mars 2008

Slt,

je galère avec une feuille contenant plusieurs lignes vers les 2187
dans chaque ligne j'ai 7 cellules dans chacune une valeure, à savoir que dans une même ligne, plusieurs cellules peuvent avoir la même valeur.
Je voudrais garder les lignes contenant au minimum 3 cellules de valeures différentes.

A l'aide

A l'aide

ça fait longtemps que j'ai pas toucher au VBA de Excel et j'ai du mal à m'y remettre.

Par avance Merci.

pierrejean · 18 Mars 2008

Re : Macro pour supprimer des lignes suivant le contenue des cellules

bonjour kippo

un petit fichier exemple avec quelques lignes significatives nous aiderait a t'aider (zippé de preference, < 48k , sans données confidentielles)

BOISGONTIER · 18 Mars 2008

Re : Macro pour supprimer des lignes suivant le contenue des cellules

Bonjour,

Code:

Sub essai()
  For ligne = [A65000].End(xlUp).Row To 2 Step -1
    Set mondico = CreateObject("Scripting.Dictionary")
    For col = 1 To 7
      If Not mondico.Exists(CStr(Cells(ligne, col))) Then
         mondico.Add CStr(Cells(ligne, col)), CStr(Cells(ligne, col))
      End If
    Next col
    If mondico.Count < 3 Then Rows(ligne).Delete
    Set mondico = Nothing
  Next ligne
End Sub

JB
Formation Excel VBA JB

kippo · 23 Mars 2008

Re : Macro pour supprimer des lignes suivant le contenue des cellules

Merci pour ton aide BOISGONTIER
C'est bien ce que je cherche

Macro pour supprimer des lignes suivant le contenue des cellules

kippo

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

kippo

XLDnaute Nouveau

Discussions similaires