Discussion :

[oscar.cesar]

bonsoir à tous
voila j'ai dans la cellule A 1 la chaine de characteres suivante 45.5|456.9|1520.2
je voudrais extraire et mettre dans A2 le chiffre 45.5, dans A3 le chiffre 456.9, dans A4 le chiffre 1520.2

j'ai dans la cellule B 1 la chaine de characteres suivante 56.9|580.2
je voudrais extraire et mettre dans A2 le chiffre 56.9, dans A3 le chiffre 580.2

la longueur de chaine et donc les nombres sont de longueurs differentes et de quantite differentes mais la separation se fait toujours par |


j'avoue que je coince ......


merci

[jfontaine]

avec cette macro ca devrait fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim i As Integer
Dim j As Integer
Dim strChaine() As String
i = 1
 
Do While Cells(1, i).Value <> ""
    strChaine = Split(Cells(1, i).Value, "|")
    For j = 0 To UBound(strChaine)
        Cells(j + 2, i).Value = strChaine(j)
    Next j
 
    i = i + 1
Loop

[patbou]

bonjour,

autre solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
sub t ()
dim cel as range
    for each cel in range ' ta colonne 
       Cel.TextToColumns other:=True, OtherChar:="|"
    next cel
end sub

[oscar.cesar]

bonsoir
merci à Jfontaine et patbou
pour patbou ca marche pas ou j'ai pas reussi !!!!!!!

jfontaine
mais ci je pouvais avoir qql explication sur les lignes de code car cela ne semble pas marche!!!!!!!!!!!!!!!!!!!!!

deplus le code efface la chaine suivante en recopiant dans la cellule du sous les valeurs de la 1 er chaine ??????

les valeurs doit etre affiche horizontalement et non verticalement ?????

le but est d'avoir
si A3=chaine 45.5|456.9|1520.2 alors A4=45.5 A5=456.9 A6=1520.2

[fred65200]

Bonsoir oscar_oscar, jfontaine, pathou

Je me permet de répondre pour pathou et jfontaine.

les valeurs doivent être affichées horizontalement et non verticalement ?????

le but est d'avoir
si A3=chaine 45.5|456.9|1520.2 alors A4=45.5 A5=456.9 A6=1520.2

Je ne sais pas si tu as un Excel différent des autres car la présentation A4,A5,A6 est verticale, ce que fait la macro de jfontaine.

Pour info, la fonction split renvoie un tableau de sous chaînes; les éléments du tableau sont choisis en fonction d'un séparateur ici "|" (touche F1).

Si tes données à séparer sont dans la colonne A (verticalement) et que tu veux une présentation horizontale, change le code de jfontaine comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim i As Integer
Dim j As Integer
Dim strChaine() As String
i = 1
 
Do While Cells(i, 1).Value <> ""
    strChaine = Split(Cells(i, 1).Value, "|")
    For j = 0 To UBound(strChaine)
        Cells(i, j + 2).Value = strChaine(j)
    Next j
 
    i = i + 1
Loop

ou utilse la macro de pathou. Si tu ne veux pas que tes données soit écrasées, ajoute la destination.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub t()
Dim cel As Range
    For Each cel In Selection ' ta colonne
       cel.TextToColumns Destination:=cel(1, 2), other:=True, OtherChar:="|"
    Next cel
End Sub

Reste à savoir où sont des données de départ, ligne ou colonne et si tu veux les sous chaînes présentées horizontalement ou verticalement, ou toujours en A2:Ax comme dans ton premier post.

cordialement
fred65200

[oscar.cesar]

honte à moi
tu as effectivement raison
e but est d'avoir
si A3=chaine 45.5|456.9|1520.2 alors B3=45.5 C3=456.9 D3=1520.2


les donnees d'origines sont elles verticales et se trouve dans la colonne A1 à AXX


encore honte à moi
merci

[oscar.cesar]

bonjour
merci à tous
cela fonction , je vais adapter .

merci