separateur et code VBA

[Bolidave]

Salut à vous tous amis Forumistes !!
j'ai un petit problème :
Sur un document Excel, je doit recuperer certaines informations.
La valeur d'une cellule Excel peut valoir :

A^B^C^D ou A/B/C/D

Je dois recuperer (par exemple) l'info B, le problème est qu'entre les différentes cellules Excel, je peut trouver comme separateur soit '/' ou '^'.
J'ecris par exemple pour creer un tableau :
tablo2 = Split(Cells( 11, 2), CarSpecial) avec CarSpecial étant le separateur

j'aimerais donc avoir un code me permettant d'avoir CarSpecial pouvant etre egale à '^' ou'/' !!
Voila je vous remercie beaucoup !!

 

[fifou_istb]

bonjour

voila un petit vba qui devrait allez

For i = 1 To Len(Selection)
    b = Mid(a, i, 1)
    If b = '/' Or b = '^' Then
        c = i
        GoTo suite
        Else
    End If
Next
suite:
For j = c + 1 To Len(Selection)
    b = Mid(a, j, 1)
    If b = '/' Or b = '^' Then
        d = j
        GoTo fin
        Else
    End If
Next
fin:
b = Mid(a, c + 1, d - c - 1)
Range('b4').Value = b

End Sub

voila

 

[bolidave]

oula merci beaucoup meme si j'ai pas tout compris !!!

 

[bolidave]

Up siouplait !! lol

 

[Hervé]

bonsoir


une autre proposition :

Sub Bouton1_QuandClic()
Dim c As Range
Dim tablo As Variant
Dim carspecial As String

For Each c In Range('a1:a10')
    If InStr(1, c, '^') > 1 Then
        carspecial = '^'
    Else
        carspecial = '/'
    End If
   
    tablo = Split(c, carspecial)
    c.Offset(0, 1) = tablo(1)
Next c
   
End Sub

salut

 

[myDearFriend!]

Bonsoir Bolidave, fifou_istb, Hervé,

Pas sûr d'avoir tout compris non plus... mais voilà encore une autre solution possible :

      If Cells(11, 2) Like '*[^/]*' Then
            tablo2 = Split(Cells(11, 2), IIf(Cells(11, 2) Like '*^*', '^', '/'))
      End If

Cordialement,

 

[Ti_]

ou voire plus simplement :

tablo2 = Split(Replace(Cells(11, 2), '^', '/'), '/')

 

[myDearFriend!]

Bravo Ti_ !

Très joli.

 

[Hervé]

bonsoir tout le monde

Là , c'est sur que mon code passe pour un gros balourd, face à vos macros toutes fines.



salut