Inverse de concaténer

Version imprimable

01/06/2009, 10h42
phal2ip

Inverse de concaténer

Bonjour à tous,
Je voudrais faire une macro qui fasse l'inverse de concaténer, à savoir j'ai une cellule non vides contenant plusieurs mots. Je voudrais tout simplement sortir tous les mots un après l'autre dans les colonnes suivantes.
Cela à l'air assez simple à expliquer mais je cherche depuis pas mal de temps sans en trouver la solution.

Merci
01/06/2009, 10h45
ilank

Bonjour,

as-tu regardé la méthode VBA SPLIT() ?
01/06/2009, 10h50
phal2ip

Non désolé, je ne la connaissais pas je vais essayé mais jene suis pas sûr de mon résultat.

Je suis aller voir d'ans l'aide et je ne comprends pas trop comment je pourrais utiliser cette fonction.

J'ai essayé ceci puisque je voulais "déconcaténer" la cellule E7 dans les cellule F7 à I7.

Code:

split(Range("E7").Value, ,-1,vbBinaryCompare)

Je ne comprends pas...
Merci pour votre aide.

Bonjour,

Un exemple parmi d'autres :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Separe()
 Dim text$, Tableau() As String
 Dim i!, pc!, pcc! 
 Dim pl&, dl&, n& 
 
 '1ère ligne contenant vos données (vous pouvez modifier)
pl = 2
'colonne de données (vous pouvez modifier)
pc = 5
'dernière ligne contenant vos données 
dl = Range(cells(65536, pc), cells(65536, pc)).End(xlUp).Row
 
 
 
For n = pl To dl
'colonne à partir de laquelle les données séparées vont être copiées (vous pouvez modifier)
pcc = pc + 1
    text = Cells(n, pc)
    Tableau = Split(text, " ")
 
    For i = 0 To UBound(Tableau)
    Cells(n, pcc) = Tableau(i)
    pcc = pcc + 1
    Next i
Next n
 
 
End Sub

01/06/2009, 11h35
phal2ip

Merci cela marche super bien...