éliminer les doubles.

bonjour, je suis un novice excel et on m a dit qu ici il y avait des pro.

Voici mon probleme .

je doit traité des données mais avant je doit enlever tous les doubles de mon tableau , exemple:

10/02/05 10h19 100€
10/02/05 10h20 2500€
10/02/05 10h20 500€
10/02/05 10h20 23€
10/02/05 10h21 1000€


Les doubles a enlever ce sont ceux qui on la meme date + la meme heure(en rouge). Quel est la formule.


Merci d'avance.
voici mon mails hugolafineur@hotmail.com

[Celeda]

Bonjour,

comme formule, il y a un code vba qui élimine directement les lignes concernées : un extrait du Fichier de Doublons Macros - 1 - :
à placer dans un module, naturellement en fonction des plages, ajuster le Range :

Option Explicit
Option Private Module

'http://www.excel-downloads.com/html/French/forum/messages/1_62749_62749.htm
'michelxld@yahoo.fr le 24.12.2003
'Doublons_Macros France Mars 2004
'================================================= ================
'Module pour la feuille Suppression 2
'================================================= ================
Sub SupprimerLignesDoublons()
Dim Cell As Range
Dim Ligne As Integer, I As Integer
Dim M As Byte, U As Byte, N As Byte
Dim Tableau(), Tableau2()
Dim Resultat As String

Ligne = Range('B65536').End(xlUp).Row ' derniere ligne non vide colonne A
M = 1
N = 1
ReDim Preserve Tableau(M) 'tableau valeurs uniques colonne A
ReDim Preserve Tableau2(N) ' tableau pour numero de lignes doublons

Application.ScreenUpdating = False
For Each Cell In Range('B4:B' & Ligne)
U = 0
For I = 1 To M
If Cell = Tableau(I - 1) Then '
Tableau2(N - 1) = Cell.Row ' recupere numero de ligne quand un doublon est detecté
N = N + 1
ReDim Preserve Tableau2(N)
U = 1
End If
Next I

If Tableau(M - 1) = '' And U = 0 Then
Tableau(M - 1) = Cell ' remplissage tableau valeurs uniques si pas de doublon détecté
M = M + 1
ReDim Preserve Tableau(M)
End If
Next Cell

For I = N - 1 To 1 Step -1 ' boucle pour supprimer les lignes de doublons
Rows(Tableau2(I - 1)).Delete
Next I
Application.ScreenUpdating = True

End Sub

tu peux aller charger ce tutorial dans la centrale de téléchargement,
maintenant aussi si tu veux les identifier tu peux aussi aller télécharger l'autre fichier, tout en formules, Doublons

Voilà, c'était le moment Pub de Celeda !!! de XLD !!of course!!!


Celeda