Discussion :

[BENNASR]

Bonjour et merci d'avance
à l'aide d'un code je remplie automatiquement ce tableau

puis avec un code enregisré à l'aide de l'enregistreur auto je supprime les doublons sur ce tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub SupDoublons()
'Supprimer doublons
Dim derlig As Long
derlig = Sheets("ANALYSE").Range("A65536").End(xlUp).Row
    Sheets("ANALYSE").Range("A1 : D" & derlig).RemoveDuplicates Columns:=Array(1, 2), _
        Header:=xlYes

ce code supprime les nouvelles valeurs et moi je cherche à supprimer les anciens doublons et conserver les nouvelles valeurs
merci bq et bonne journée

[joe.levrai]

Bonjour,

tu dois disposer d'une colonne permettant d'inverser l'ordre (temporel) de tes lignes (par exemple une colonne avec la date d'intégration de la ligne dans ta BDD, un identifiant qui s'incrémente à chaque ajout de ligne, ou quelque chose de la même veine).

ainsi, tu peux effectuer un tri inverse de ta plage, et ensuite utiliser RemoveDuplicates.


si rien ne permet d'inverser la présentation de tes entrées, il est probable que tu sois obligé de faire le nettoyage par une boucle (aidé d'un dictionnaire ou d'une collection par exemple).

[BENNASR]

merci pour la réponse si rapide
votre solution : "un identifiant qui s'incrémente à chaque ajout de ligne"
puis je fais l'ordre décroissant puis je supprime les doublons
mais vu que chui limité en VBA je sais pas comment insérer ce identifiant
un coup de main de votre part est souhaitable
et merci d'avance

[joe.levrai]

Voici un exemple :

Ajout d'une colonne supplémentaire ayant pour en-tête "ID"
Numérote chaque ligne en commençant par 1 (puis 2, puis 3 etc...)
Effectue un tri décroissant sur cette colonne


reste à faire :

- la suppression des doublons
- la suppression (si besoin) de cette colonne


je te laisse adapter

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
22
23
24
25
26
27
28
29
30
31
32
Sub toto()
Dim NbLig As Long
Dim NbCol As Long
 
 
With Sheets("ANALYSES")
    NbLig = .UsedRange.Rows.Count - 1
    Col = .UsedRange.Columns.Count + 1
 
    .Cells(1, Col).Value = "ID"
    With .Cells(2, Col)
        .Value = 1
        .AutoFill .Resize(NbLig, 1), xlFillSeries
    End With
 
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Cells(2, Col).Resize(NbLig, 1), _
                         SortOn:=xlSortOnValues, _
                         Order:=xlDescending, _
                         DataOption:=xlSortNormal
 
    With .Sort
        .SetRange Sheets("ANALYSES").Cells(1, 1).CurrentRegion
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
 
End Sub

[BENNASR]

ça ajoute le ID
merci bien
je vais essayer d'adapter
bonne journée