Bonsoir à tous,

Je tourne en rond, je voudrais dans un tableau de trois colonnes et X lignes supprimer les doublons de la deuxième colonnes du tableau, donc effacer la lignes ou ce trouvent les doublons.

Je constitue mon tableau comme ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
uv = 0
Dim tab_1()
For i = 2 To nblg1 Step 1
If Feuil3.Range("H" & i).Value Like "*V*" Or _
Feuil3.Range("H" & i).Value Like "*VS*" Then
If Feuil3.Range("AO" & i).Value Like ("*" & gb & "*") Then
'traitement des doublons
ReDim Preserve tab_1(2, uv)
 tab_1(0, uv) = Feuil3.Range("AP" & i).Value
    tab_1(1, uv) = Feuil3.Range("I" & i).Value
    tab_1(2, uv) = Val(Feuil3.Range("K" & i).Value)
uv = uv + 1
End If
End If
Next
 
 
' virer les doublons
 
Feuil4.Range("A" & "1" & ":C" & uv) = Application.Transpose(tab_1)
Donc c'est dans mon tableau tab_1 que je cherche a traiter les doublons de la deuxième colonne.

Je vous remercie par avance pour vos aides