XL 2019 Vba

[debellahi]

Bonjour / Bonsoir !
Je souhaite avoir votre appui précieux pour trouver une solution VBA pour extraire les références de part et d'autre de chaque "/ " comme suit : A234567/A154589/...
Le nombre de "/" est variable.
Merci d'avance !

 

[Dranreb]

Bonsoir.
Utilisez Split(Str,"/")

 

[st007]

Bonsoir,
Avec la conversion de données, par délimiteur "/"

Sub Convertir()
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub

ou power query,

 

[debellahi]

Utiliser combien de fois ? J'ai un nombre variable de "/".

 

[Dranreb]

Fonction Split (Visual Basic pour Applications)

Rubrique de référence sur Office VBA

docs.microsoft.com