suppresion ligne valuer redondante

[Maximom]

Bonjour a tous;
je me permets de revenir vers vous
car j'ai toujours ce problème de Macro:

Sur mes x tableaux de x ligne et x colonne, j'ai dans la colonne C :

Cartouche de nettoyage couleur CCA002 pour CANON BJC 2000
Cartouche de nettoyage couleur CCA002 pour CANON BJC 2100
Cartouche de nettoyage couleur CCA002 pour CANON BJC 2110
Cartouche de nettoyage couleur CCA002 pour CANON BJC 2115
Cartouche de nettoyage couleur CCA002 pour CANON BJC 2120
Cartouche de nettoyage couleur CCA002 pour CANON BJC 323F
Cartouche de nettoyage couleur CCA002 pour CANON BJC 4000
Cartouche de nettoyage couleur CCA003 pour CANON BJC 2120
Cartouche de nettoyage couleur CCA003 pour CANON BJC 323F
Cartouche de nettoyage couleur CCA003 pour CANON BJC 4000

Je souhaiterai obtenir ceci:

Cartouche de nettoyage couleur CCA002
Cartouche de nettoyage couleur CCA003

et supprimer toutes les autres lignes qui deviendraient ainsi des doublons, pour eviter de se retrouver avec des lignes comme ceci:

Cartouche de nettoyage couleur CCA002
Cartouche de nettoyage couleur CCA002
Cartouche de nettoyage couleur CCA002
Cartouche de nettoyage couleur CCA002
Cartouche de nettoyage couleur CCA002
Cartouche de nettoyage couleur CCA002
Cartouche de nettoyage couleur CCA002
Cartouche de nettoyage couleur CCA003
Cartouche de nettoyage couleur CCA003
Cartouche de nettoyage couleur CCA003

A savoir que:
- le nombre de ligne (quasiment identiques) est aléatoire, parfois 1 parfois beaucoup plus
- le mot 'pour' peut être pris comme repère car présent dans toutes les cellules

on m'a bien donné un début de piste:

Sub Bouton1_QuandClic()
Dim data As Collection
Dim tablo As Variant
Dim i As Integer
Dim c As Range

Set data = New Collection

For Each c In Range('c1:c' & Range('c65536').End(xlUp).Row)
tablo = Split(c, 'pour')
On Error Resume Next
data.Add Trim(tablo(0)), tablo(0)
On Error GoTo 0
Next c

For i = 1 To data.Count
Cells(i, 3) = data(i)
Next i

End Sub

Mais cela ne fonctionne pas vraiment, je n'ai pas de connaissance en Macro, et je recherche un script.....si possible....complet, car j'aurais beaucoup de mal a l'adapter.

Merci à tous ceux qui pourront m'apporter de l'aide! :unsure:

 

[Hervé]

re

compris,

il faut donc exclure ces colonnes du test de doublons ?

merci de me faire parvenir un document en .xls car là dans ton fichier y'a rien en colonnes GHI

salut

 

[Maximom]

Monsieur est servi...

 

[Maximom]

 

[Maximom]

ok, la je pense que c bon...
[file name=test_20060126001529.zip size=6503]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060126001529.zip[/file]

 

[Hervé]

bonjour


en retour à tester.

salut [file name=test_20060126094634.zip size=15382]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060126094634.zip[/file]

 

[Maximom]

Super merci Hervé!

Tout simplement du travail de pro!