Récupérer valeur dans structure

Question

Après extraction de l'arborescence SAP de mon entreprise et ce dans une seule colonne, je voudrais convertir en code barres le n° de chaque équipement mais il faudrait que j'arrive à isoler chaque n° dans une colonne bien distincte. Merci pour votre aide...

m3ellem1 · Answer

Slt manu,

fonction à insérer dans un module

Public Function RecupererValeur(s As String) As Long
    Dim b As Boolean, i As Long, t As String
    b = False
    t = ""
    For i = 1 To Len(s)
        If IsNumeric(Mid(s, i, 1)) Then
            b = True
            t = t & Mid(s, i, 1)
        Else
            If b Then
                RecupererValeur = CLng(t)
                Exit Function
            End If
        End If
    Next i
End Function

àprés t'utilise cette fonction comme ca: RecupererValeur (A1)

Bonne nuit