mieux que la fonction split

Version imprimable

25/09/2008, 12h16
will Igetit

mieux que la fonction split
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:

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?
25/09/2008, 12h23
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:

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
25/09/2008, 12h34
will Igetit

interesse

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:P
25/09/2008, 12h40
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 ...

Citation:

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

si çà peut t ' aider

Code:

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

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

Code:

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:

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:

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

25/09/2008, 15h37
will Igetit

satisfait ;-)
cela marche a perfection. seulement je ne comprend pas deux des lignes du code d'une part
Code:

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?
25/09/2008, 15h58
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
Citation:
seulement je ne comprend pas deux des lignes du code d'une part

Code:

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:

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 ;)