M
Maximom
Guest
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:
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:
