Bonjour amis XLDiens !
Pour changer, j'ai encore un soucis et un besoin incomensurable de votre aide... Mais si, mais si.
Dans mon classeur, lorsque j'ai un état X et que j'utilise mon bouton d'actualisation, la ligne avec l'état X est transférée vers une autre feuille de ce même classeur.
Le soucis, c'est que si je modifie une des colonnes de cette ligne (dans mon cas la colonne priorité), lorsque je réactualise pour renvoyer la ligne avec la nouvelle valeur de priorité, c'est celle-ci qui est supprimée par ma fonction anti-doublons et l'ancienne qui est gardée...
Voici le code ma fonction anti-doublons:
Ma question est donc, comment faire pour que ça soit la première ligne qui soit supprimée et non celle que l'on vient d'ajouter avec la modification de valeur dans la colonne priorité ?
Bon après-midi
Leop93
Pour changer, j'ai encore un soucis et un besoin incomensurable de votre aide... Mais si, mais si.
Dans mon classeur, lorsque j'ai un état X et que j'utilise mon bouton d'actualisation, la ligne avec l'état X est transférée vers une autre feuille de ce même classeur.
Le soucis, c'est que si je modifie une des colonnes de cette ligne (dans mon cas la colonne priorité), lorsque je réactualise pour renvoyer la ligne avec la nouvelle valeur de priorité, c'est celle-ci qui est supprimée par ma fonction anti-doublons et l'ancienne qui est gardée...
Voici le code ma fonction anti-doublons:
Code:
Sub Doublons()
Dim r As Range, ncol%, d As Object, t$, col%, doublon As Range
Set r = [A:N]
Set r = Intersect(r, ActiveSheet.UsedRange)
If r Is Nothing Then Exit Sub
ncol = r.Columns.Count
Set d = CreateObject("Scripting.Dictionary")
For Each r In r.Rows
t = ""
For col = 1 To ncol
t = t & r.Cells(col) & Chr(1)
Next
t = UCase(Application.Trim(t))
If d.Exists(t) Then
Set doublon = Union(IIf(doublon Is Nothing, r, doublon), r)
Else
d(t) = t
End If
Next
If Not doublon Is Nothing Then doublon.EntireRow.Delete
End Sub
Ma question est donc, comment faire pour que ça soit la première ligne qui soit supprimée et non celle que l'on vient d'ajouter avec la modification de valeur dans la colonne priorité ?
Bon après-midi
Leop93