Bonjour tout le monde, je vous écris par rapport à un problème que j'ai rencontré en VBA :
J'ai une feuille excel sur laquelle figure dans une colonne (A) différentes chaînes de caractère classées par ordre alphabétique. Il y a 2000 lignes, et certaines chaînes de caractère sont parfois présentes plusieurs fois. J'ai essayé de créer une macro qui permet supprimer les chaînes de caractères qui apparaissent plusieurs fois (afin de n'en laisser qu'une).
Mon programme devrait permettre de sélectionner la première cellule de la colonne, la comparer avec les autres.
- dans le cas où elle trouve d'autres cellules identiques elle les supprime
- dans le cas où aucune autre cellule n'est identique, elle sélectionne la deuxième cellule du tableau pour commencer une nouvelle comparaison...
Code :
i = 1
j = 1
selection1 = Cells(i, 1).Select
message1 = selection1
Do
j = j + 1
selection2 = Cells(j, 1).Select
message2 = selection2
If message1 = message2 Then Cells(j, 1).delet
Else: GoTo line11
Loop While j < 2000
Do
i = i + 1
j = i
selection1 = Cells(i, 1).Select
message1 = selection1
Do
j = j + 1
selection2 = Cells(j, 1).Select
message2 = selection2
If message1 = message2 Then Cells(j, 1).delet
Else: GoTo Line19
Loop While j < 2000
Loop While i < 2000
Celui-ci ne marche pas malgré tout, je rencontre un pbm avec le else (le commentaire me dit qu'il n'y a pas de if... :s )
Je remercie celui qui pourra me débloquer.
Aussi, pensez-vous que ce programme puisse fonctionner correctement?
Merci
