Fonction split pour les utilisateurs d'office 97

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 444 fois - Téléchargée 30 fois

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

Ajouter un commentaire Commentaire
Messages postés
592
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2008

Le séparateur peux seulement faire 1 caractere , faudrais revoir sa ... sinon ya une source semblable posté il n'y a pas bien longtemp...

http://vbfrance.com/codes/FONCTION-SPLIT-DISSOCIER-POUR-LES-UTILISATEURS-DE-VB5/31389.aspx


Que la prog soit avec toi :)

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.