Bonjour,
Je voudrais créer une macro qui permette de supprimer automatiquement les mots (et la ligne entière qui en découle) qui se répettent plusieurs fois dans une même colonne.
J'ai pensé à cet algorithme détaillé, mais je ne réussis pas à le faire fonctionner sous Excel, pourriez-vous m'aider s'il vous plaît? :
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 Dim i As Integer Dim j As Integer Dim chaine1 As String Dim chaine2 As String i = 1 do J = i Chaine1 = (A, i). Select, do J = J+1 ''rechercher selection : quand mot = selection, sélectionner la ligne entière puis supprimer Chaine2 = (A, j). Select, If Chaine2=chaine1 Then Rows.Select selection.delete while J < 81 While I < 82
Partager