d'une liste, mettre un mot dans chaque cellule

[so]

Bonjour
J'ai une liste de mots séparés par une virgule et le tout dans une seule cellule, je voudrais les séparer et les lister un dans chaque cellule pour pouvoir les trier, virer les doublons puis ans un deuxième temps, les remettre en texte..
merci de votre aide
So

 

[MichelXld]

bonjour So

j'espere que cet exemple pourra t'aider


Sub extraireDonneesCellule_A1()
Dim Tableau() As String
Dim i As Byte
Dim Un As New Collection

'decoupage en fonction du séparateur ','
Tableau = Split(Range('A1'), ',')

'filtre doublons
On Error Resume Next
For i = 0 To UBound(Tableau)
Un.Add Tableau(i), Tableau(i)
Next i
On Error GoTo 0

'réinsertion des donnees dans la cellule B1 sans doublons
For i = 1 To Un.Count
Range('B1') = Range('B1') & Un(i) & ','
Next i
Range('B1') = Left(Range('B1'), Len(Range('B1')) - 1)
End Sub


bon apres midi
MichelXld

Message édité par: michelxld, à: 27/08/2005 13:39

 

[Staple1600]

Bonjour


en utilisant Données/Convertir
choisir Virgule comme séparateur


et se laisser guider par Excel


code VBA issu de l'enregistreur quand on fait cette manip

Selection.TextToColumns Destination:=Range('A5'), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
))

Message édité par: staple1600, à: 27/08/2005 13:49

 

[so]

visiblement il s'est passé quelque chose mais je n'ai rien vu, d'autant que je voudrais avoir le temps de bosser dessus avant de le remettre en version texte!

 

[andré]

Salut so et les autres,

J'avais fait en son temps quelque chose du genre, tout en formule.

Tu pourrais t'en inspirer, en remplaçant les espaces par des virgules.

Â+

 

[andré]

Zut, le fichier !

Â+

PS : pour les non-rapides : trucs cadrés = trucs à (an)dré

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

 

[Staple1600]

Bonjour


Pour utiliser Données/Convertir

il faut que les cellules à droite de la colonne sélectionnée
soient vides
sinon les contenu est effacé.

NB: le code VBA n'était là qu'à titre indicatif
au cas ou tu préfère utiliser un macro
(mais il n'est pas fonctionnel tel quel
tu dois l'adapter à ton classeur)

 

[so]

Z'etes adorables les garçons, merci de votre aide, c'est parfait :silly: