spprimer des lignes suivant le nombre de cellules répondant à un critère

[Grégory T]

Bonjour,

J'ai une base de données a traiter de façon à supprimer les lignes pour lesquelles le nombre de données est supérieur à 2.
J'y arrive en ajoutant une colonne "NB.SI" qui compte le nombre de donnéess...et en créant ensuite une macro qui supprime les lignes pour lesquelles les cellules en colonne "NB!;SI" sont supérieures à 2.
(cf.mon fichier joint ce sera sans doute plus clair)

Quelqu'un peut-il me dire s'il est possible de faire la même chose directement en VB sans passer par la fonction NB.Si et sans rajouter de colonne??
Cela me serait très utile.
Merci beaucoup

Grégory T

 

[Michel_M]

Bonsoir Greg,


essaies ceci dans la macro:

Application.screenupdating=false 'pour accélérer VBA

For i = 2 To 10000
If Cells(i, 1).Value = "" Then
Exit For
End If

If Application.CountA(Range(Cells(i, 2), Cells(i, 8))) > 2 Then
Selection.EntireRow.Delete Shift:=xlUp
i = i - 1
End If

etc.

CountA est la traduction de nbval; si tu tiens à NBSI écris COUNTIF

A+
Michel