separateur et code VBA

Bolidave · 6 Juillet 2005

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 · 6 Juillet 2005

bonjour

voila un petit vba qui devrait allez

Code:

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 · 6 Juillet 2005

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

bolidave · 6 Juillet 2005

Up siouplait !! lol

Hervé · 6 Juillet 2005

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! · 6 Juillet 2005

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_ · 6 Juillet 2005

ou voire plus simplement :

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

myDearFriend! · 6 Juillet 2005

Bravo Ti_ !

Très joli.

Hervé · 6 Juillet 2005

bonsoir tout le monde

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

salut

separateur et code VBA

Bolidave

Guest

fifou_istb

XLDnaute Nouveau

bolidave

Guest

bolidave

Guest

Hervé

XLDnaute Barbatruc

myDearFriend!

XLDnaute Barbatruc

Ti_

Nous a quitté

myDearFriend!

XLDnaute Barbatruc

Hervé

XLDnaute Barbatruc

Discussions similaires