Fonction split pour les utilisateurs d'office 97

Commenter

Contenu du snippet

la fonction Split n'est pas présente dans Office 97.
La voici donc, à mettre dans un module.

Source / Exemple : 


Function Split(sString As String, sSep As String) As Variant
  
  Dim aRet() As String
  Dim iI As Integer
  Dim iLen As Integer
  Dim sBuff As String
  Dim sChar As String
  
  ReDim aRet(0)
  iLen = Len(sString)
  sBuff = ""
  
  For iI = 1 To iLen
    sChar = Mid$(sString, iI, 1)
    If sChar = sSep Then
      aRet(UBound(aRet)) = sBuff
      sBuff = ""
      ReDim Preserve aRet(UBound(aRet) + 1)
    ElseIf iI = iLen Then
      sBuff = sBuff & sChar
      aRet(UBound(aRet)) = sBuff
    Else
      sBuff = sBuff & sChar
    End If
  Next iI
  Split = aRet
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.