Supprimer lignes avec condition nombre occurrence

[Jarod51]

Bonjour a tous,

J'ai un fichier Excel qui contient plusieurs colonnes. Je voudrais supprimer les lignes dont le nombre d’occurrence de la colonne A (Position) est égal a 1 et dont la valeur de la colonne F (pns.q) = 0
Par exemple dans mon fichier, cela correspondrais a supprimer les lignes 14 et 17.

Le problème c'est au que je ne sais pas trop comment m'y prendre.

J'ai commence une macro, mais je n'arrive pas a lui inclure la condition de fréquence de la colonne A et lui spécifier la colonne F si elle est égal a zéro

Sub Supprime()
    For Each cellule In Range("A1:H18")
        If cellule.Value = 0 Then Rows(cellule.Row).Delete
    Next
End Sub

Si quelqu'un peut m'aider ca serait cool .
Merci.
Je mets em piece jointe mon fichier Excel.

 

[thebenoit59]

Re : Supprimer lignes avec condition nombre occurrence

Bonjour Jarod51.

Tu peux intégrer ce code là :

Sub SupprimerLigne()
Dim DerLig As Long

' Détermination de la dernière ligne en colonne A
DerLig = Cells(Rows.Count, 1).End(xlUp).Row

' On cherche les lignes que nous souhaitons supprimer et les supprimons
For lignes = DerLig To 2 Step -1
If WorksheetFunction.CountIf(Range("A2:A" & DerLig), Range("A" & lignes)) = 1 And Range("F" & lignes) = 0 Then
Rows(lignes).Delete
End If
Next lignes

End Sub

 

[Jarod51]

Re : Supprimer lignes avec condition nombre occurrence

Salut thebenoit59,
Merci pour ton aide, ton script marche nickel. Par contre, sur une volumétrie de données plus importantes il me garde des valeurs.

 

[thebenoit59]

Re : Supprimer lignes avec condition nombre occurrence

Peux-tu m'envoyer ton classeur ?

 

[Jarod51]

Re : Supprimer lignes avec condition nombre occurrence

Salut thebenoit59,
Le fichier fait plus de 2 MO donc impossible de le poster sur le forum. En msg prive, je n'ai pas trouve l'option piece jointe, y a t-il un autre moyen ?

 

[Jarod51]

Re : Supprimer lignes avec condition nombre occurrence

thebenoit59,
Je suis bete, ton script marche du feu de Dieu, j'avais oublie de modifier le nom de la colonne dans le script pour l'autre classeur Excel. Merci beaucoup pour l'aide.

 

[thebenoit59]

Re : Supprimer lignes avec condition nombre occurrence

Avec plaisir