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

[will Igetit]

cela marche a perfection. seulement je ne comprend pas deux des lignes du code d'une part

Code :

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

1
2
DerLig = Split(Worksheets("Feuil1").UsedRange.address, "$")(4)
    Set Plage = Range("A1:A" & DerLig)

et d'aute part, etrangement, lorsque dans le code precedent je fais offset(0,i+1) et non i dans le but d'avoir une trace de la version avec separateur la "premier partie du split" apparait juste come un simple copier collerr de l''ecrture presedente comme la fonction split n'avait pas marche?
j ai contourneer ce probleme mais je voufrais coprendre pourquoi il se porduit, aurais tu la reponse?

enfin es it possible de garder aussi qqpart le separatuer?

[ouskel'n'or]

Qu'appelles-tu ""premier partie du split" ?
Sinon, en faisant i + 1 tu laisses la cellule de la colonne dans laquelle tu as pris ta donnée complète telle qu'elle est. Ce n'est pas ce que tu veux faire ?

Edit
Pour ce qui est de

seulement je ne comprend pas deux des lignes du code d'une part

Code :

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

1
2
DerLig = Split(Worksheets("Feuil1").UsedRange.address, "$")(4)
    Set Plage = Range("A1:A" & DerLig)

J'ai donné l'explication pour Lig, pour DerLig, c'est la même.
Tablo = Split(Worksheets("Feuil1").UsedRange.address, "$")
où
Tablo(0) = ""
Tablo(1) = Colonne (en lettre) du début de la plage
Tablo(2) = Première ligne de la plage
Tablo(3) = Colonne (en lettre) de la fin de la plage
Tablo(4) = Dernière ligne de la plage
UsedRange.address donne l'adresse de la plage renseignée de ta feuille de calculs sous la forme "A1:" & "Dernière colonne en lettre & Dernière ligne"
Quant à

Code :

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

1
2
Dim Plage as range
     Set Plage = Range("A1:A" & DerLig)

Créer l'objet Plage en tant que range afin d'éviter à trainer Range(..........) partout dans le code.
Simplifie l'écriture dans bien des cas