Discussion :

[will Igetit]

pour l'instant j'ai un colonne du type

"premiere partie qui varie" xv "seconde partie qui varie"
donc j'utilise une fonction split avec un code dela forme

Code :

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

1
2
3
4
For i = 1 To 39
TB = Split(Cells(i, 2), "SM")
Cells(i, 6) = TB
Next i

mais les choses se compliiquent parce que desormais le separateur n'est pas toujours xv mais wz, dune part.
et d'auter part je voudrait aussi recuperer la seconde partie .
est ce que qqun connaiit une fonction plus a meme de remplir cette tache?

[EvaristeGaloisBis]

juste une qestion comme ça : dans tes parties de quelle type de données s'agit elle? des caracteres ou des chiffres?

Si ce n'est que des chiffres et le séparateurs des lettres, alors tu peux faire un parcour de la chaine de caractere, et tu regardes si c'est un numeric. Si non alors tu stockes la lettre et tu passes au caractere voisin.

Une fois que tu as la chaine de caractere qui sépare, bien tu fait un split.
Si tu veux le début et la fin tu fais:

Code :

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

1
2
3
4
5
6
 
For i = 1 To 39
TB = Split(Cells(i, 2), "SM")
Cells(i, 6) = TB(0)
Cells(i, 7) = TB(1)
Next i

[will Igetit]

malheuressement ce sont ce sont que des lettres.

mais ton code pour les chiffres et lettres m interesse aussi , je saurais en faire usage ailleurs

[ucfoutu]

Bonjour,

je ne suis pas sûr d'avoir tout bien compris ...
Une question, donc :
Lorsque ta chaîne comporte le séparateur xv, peut-elle également contenir le séparateur wz (et vice-versa) ?
En d'autres termes : ta chaîne ne peut-elle contenir, de manière certaine, qu'un seul de ces deux types de séparateur (l'un excluant systématiquement l'autre) ?
Si oui : la solution sera fort simple ...

[patbou]

et d'auter part je voudrait aussi recuperer la seconde partie .

si çà peut t ' aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub g()
Dim A, TB
Dim Sval_cel As String
 
Sval_cel = "452SM6696"
TB = Split(Sval_cel,"SM") 'ce décompose en un variant type tableau
 
For Each A In TB
    MsgBox A
Next A
MsgBox TB(UBound(TB))
End Sub

[ouskel'n'or]

Je reprends le code de Patbou pour répartir les données de ta cellule dans les colonnes de la ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Appel()
Dim Separateur as string, Plage as range, Cell as range
Dim DerLig as long, Tablo as variant, i as integer
    Separateur = "Cequetuveux"
    DerLig = Split(Worksheets("Feuil1").UsedRange.address, "$")(4)
    Set Plage = Range("A1:A" & DerLig)
    For Each Cell In Plage
        Tablo = Tableau(Cell, Separateur)
        For i = 0 to Ubbound(Tablo)
             Cell.Offset(0, i).value = Tablo(i)
        Next
    Next
End Sub

Code :

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

1
2
3
4
 
Function Tableau(Cell as range, Separateur as string) as variant
Tableau = Split(Cell, Separateur) 'décompose en un variant type tableau
End function

Tu peux même créer un tableau des séparateurs et ajouter une boucle sur ce tableau

Code :

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

1
2
3
4
5
6
Dim separateur as variant
    Separateur = array("sep0", "Sep1", "Sep2", "Sep3")
    for j = 0 to Ubound(Separateur)
        For Each Cell In Plage
            Tablo = Tableau(Cell, Separateur(j))
            'etc.

Bon après-midi