demande d'aide

[josef140]

Bonjour s
j'aimerais extraire d'un tableau un autre tableau dont les éléments de la première colonne ne se répètent pas plus de 3 fois (3fois inclut) sans tri ni filtre car je dois le copier après et il faut que je puisse faire la même manip n'importe que ce soit le 1er tableau s'il y a une macro s'il vous plait j'attends votre réponse
D'avance merci.Regarde la pièce jointe Classeur2.xlsx

 

[jp14]

Re : demande d'aide

Bonsoir josef140, bienvenue sur le Forum

Ci joint une macro qui répond à la demande

Sub travdem2()

Dim Dl1 As Long, i As Long

Dim Cellule As Range
Dim myRange As Range

With Sheets(ActiveSheet.Name)
Dl1 = .Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
i = 4
Set myRange = .Range("A1:a" & Dl1)
For Each Cellule In .Range("a1:a" & .Cells(Columns(1).Cells.Count, 1).End(xlUp).Row)

    Dl1 = Application.WorksheetFunction.CountIf(myRange, Cellule)
    If Dl1 <= 3 Then
        .Range("N" & i) = Cellule
        .Range("N" & i).Offset(0, 1) = Cellule.Offset(0, 1)
        i = i + 1

    End If
Next Cellule
End With

End Sub

A tester

JP

 

[josef140]

Re : demande d'aide

Bonjour jp4
Merci beaucoup pour ton aide qui était très rapide et très efficace
A+