code vba et doublons

[marleauc]

re bonjour le monde.
voici mon soucis, j'ai des entrées d'heures relié a des dates dans le feuille 2 , et j'ai également un code vba pour doublons trouver sur le site et écrit par Creapy. Comment puis-je l'ajuster a ma feuille tenant compte des entrés par date.

le voici
Private Sub CommandButton1_Click()
Dim I As Integer, X As Integer
Dim Quoi As String, Qui As String
Fin = Feuil2.Range("B65535").End(xlUp).Row

For I = Fin To 2 Step -1
Quoi = UCase(Feuil2.Range("B" & I).Value)
For X = I - 1 To 2 Step -1
Qui = UCase(Feuil2.Range("B" & X).Value)
If Quoi = Qui Then
Rows(X & ":" & X).Select
Selection.Delete Shift:=xlUp
End If
Next
Next
End Sub

[bhbh]

Bonjour,

essaie avec ce code :

Sub elim_doublons()
Dim DerLig As Long, I As Long
Application.ScreenUpdating = False
With Sheets("Feuil2")
    DerLig = .[A65000].End(xlUp).Row
    .Range("A2:K" & DerLig).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    For I = DerLig To 3 Step -1
        If .Cells(I, 1).Value <> "" And .Rows(I).Hidden = True Then
            .Rows(I).Delete
        End If
    Next I
End With
ActiveSheet.ShowAllData
End Sub

[marleauc]

Salut BhBh,

malheureusement cela ne fonctionne pas, il y a encore 2 entrées identiques pour le 26 juin 2009 au même nom!

je continue mes recherches

merci
cm

[bhbh]

Re:

Ah bon?

Qui ça?

Du moins dans ton fichier....

Pour mon code, les données uniques sont uniques de la colonne A à la colonne K...

Mais bon, si tu viens, tu poses ta question, tu te déconnectes dans la seconde qui suit, on ne va pas avancer vite...

Bref, sans moi

[marleauc]

Excuses-moi BhBh!

Comme je t'indiquais je constate qu'il y a encore des doublons dans "mon" fichier. Je réessaye. et demeure connecté pour l'heure qui suit.

Merci de ton aide c'est bien appréciée

[bhbh]

Re-,

sinon, remplace par ce code, on ne teste que les colonnes A et B :

Sub elim_doublons()
Dim DerLig As Long, I As Long
Application.ScreenUpdating = False
With Sheets("Feuil2")
    DerLig = .[A65000].End(xlUp).Row
    .Range("A2:B" & DerLig).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    For I = DerLig To 3 Step -1
        If .Cells(I, 1).Value <> "" And .Rows(I).Hidden = True Then
            .Rows(I).Delete
        End If
    Next I
End With
ActiveSheet.ShowAllData
End Sub

[marleauc]

MILLES EXCUSES................

Le tout fonctionne, c'est moi qui faisait l'erreur..je ne changeait pas Pour "commande bouton1" je gardais ton titre de elm_doublons.

Encore MERCI et mes excuses

bonne soirée!

[marleauc]

resalut BhBh,

Je me demandais si il avait moyen de changer le activesheet.showalldata, le bouton de commande est placé sur sur mon formulaire de saisie. Je pourrais peut etre le placé en workbook_open. qu,en penses-tu ?

[bhbh]

Re-,

à la place de activesheet :

With Sheets("Feuil2")
    DerLig = .[A65000].End(xlUp).Row
    .Range("A2:B" & DerLig).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    For I = DerLig To 3 Step -1
        If .Cells(I, 1).Value <> "" And .Rows(I).Hidden = True Then
            .Rows(I).Delete
        End If
    Next I
    .ShowAllData
End With

[marleauc]

Un gros merci, encore milles excuses.

à la prochaine
cm