Split Colonne évolué

[Profane]

Bonjour le forum,

En gros je cherche a spliter 1 colonne ,en ne récupérant qu'une partie des données, sur 2 colonnes.
mais avec une condition particuliere, en effet le champ A n'est pas toujours formaté selon le même modèle
le détail sur le fichier excel

merci à ceux qui prendront le temps d'étudier mon soucis

@+

 

[laurent950]

Re : Split Colonne évolué

Bonsoir,

Sub test()
'Colonne B
For i = 2 To 7
    res = split(Cells(i, 2), "-")
    If UBound(res) <> 0 Then
        Cells(i, 3) = res(UBound(res) - 1)
        Cells(i, 4) = res(UBound(res))
    Else
        Cells(i, 3) = Right(res(UBound(res)), Len(res(UBound(res))) - 9)
        Cells(i, 4) = "aucune"
    End If
Next i
End Sub

Laurent

 

[Profane]

Re : Split Colonne évolué

Merci Laurent
je suis bluffé par le résultat
je n'ai pas compris encore tout le code, il faudrait que je m 'interesse aux tableaux intermédiaire, ca vaut vraiment le coup 🙂
@+

 

[ROGER2327]

Re : Split Colonne évolué

Bonjour à tous.

C'est probablement trop tard, mais j'ai fait donc je livre...​

ROGER2327
#6701

Mardi 10 Tatane 140 (Saints Pieds Nickelés, trinité - fête Suprême Quarte)
5 Thermidor An CCXXI, 4,1043h - bélier
2013-W30-2T09:51:01Z