suppression ligne si...

[Maximom]

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

Sur mes tableaux de x ligne et x colonne, tous différents, 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

Je souhaiterai obtenir ceci:
Cartouche de nettoyage couleur CCA002
et supprimer toutes les autres lignes qui deviendraient ainsi des doublons.
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

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

 

[Hervé]

Bonjour maximom

peut etre avec ce code :

données de A1 à An renvoi en colonne B.

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('a1:a' & Range('a65536').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, 2) = data(i)
Next i

End Sub

salut

 

[Maximom]

Bonjour Hervé,
merci pour ton aide,
mais cela ne fonctionne pas...
Pourquoi: je ne sais pas, rien ne se passe...
mais tu me parles de colonne A ?
Les données sont sur la colonne C.
Merci

 

[Hervé]

re

lol en plus tu l'ecrit que c'est en colonne C

donc change :For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)

par: For Each c In Range('c1:c' & Range('c65536').End(xlUp).Row)

et là tu va traiter la colonne C

pour la colonne de renvoi, c'est ici :

Cells(i, 2) = data(i)

2 pour la colonne B
3 pour la colonne C

etc....

salut

 

[Maximom]

Cool merci Hervé...mais!
ta macro ne supprime pas les lignes en trop, et de plus elle s'arette a la ligne 806 !!
original!
en plus je ne vois pas trop ce quelle fait car je me retrouve toujours avec le meme nombres de lignes, et je ne vois plus de doublons!