Votre question

détecter répétitions de données dans excel

Tags :
  • Microsoft Excel
  • Logiciels
Dernière réponse : dans Logiciels
16 Mars 2006 14:20:40

Bonjour,

J'ai un tableau dans excel 98 très gros avec plus de 1500 contacts de personnes réunies par la fusion de tableurs différents. Après les avoir classés par ordre alphabètique, j'aurai voulu savoir si il existait un moyen de DETECTER des Répétitions de nom sur tout le listing.
Merci :-D

Autres pages sur : detecter repetitions donnees excel

16 Mars 2006 14:31:26

Tu peux créer une macro sous vba, qui va sélectionner la case si elle est égale à la précédente.
bien sûr, ça va marcher que si tu as trié ton tableau.

ALT+F11 pour ouvrir l'éditeur vba, puis tu insères un nouveau module et tu y mets:
  1. Sub detectrép()
  2. Range("A1").CurrentRegion.Select
  3. Nbligne = Selection.Rows.Count
  4. For i = 1 To Nbligne - 1
  5. If Range("A" & i).Value = Range("A" & i + 1).Value Then
  6. Range("A" & i + 1).Select
  7. i = Nbligne
  8. End If
  9. Next i
  10. End Sub

Après tu exécutes la macro et elle va aller là où il y a redondance!Après tu supprimes s'il faut...
Ensuite tu la rééxécutes jusqu'à si que tu n'aies plus de données en double.
16 Mars 2006 15:53:40

merci de m'avoir répondu mais jusqu'au ALT+F11, ça va mais après je nage !
Je sais pas où insérer le module en question !! Merci :confused:
16 Mars 2006 21:26:54

Jusqu'au ALT+F11, c'est OK?
alors après tu fais menu Insertion>>module
tu copies colles le code que je t'ai donné.

Citation :
Range("A1").CurrentRegion.Select

Tu remplaces A1 par la première cellule de ta liste (triée!!!)
Citation :
If Range("A" & i).Value = Range("A" & i + 1).Value Then
Range("A" & i + 1).Select

Tu remplaces A par la colonne de ta liste.

tu sauves, et tu reviens dans excel puis ALT+F8 pour exécuter la macro. Tu peux assigner une touche de raccourci pour l'éxecuter plus... pratiquement.
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS