@complet en LS

[Michael DELIQUE]

Code : Tout sélectionner

Function Complete_LS(Byval wValeur As String, Byval wSens As String,Byval wChar As String, Byval wnbTaille As Long) As String
   
   'cette fonction permet de compléter une chaine de caratecre
   'wValeur = valeur a compléter
   'wSens = complétéer a gauche ou a droite
   ' wChar = Caratere a rajouter pour compléter
   'wnbTaille = nombre de caratere a renvoyer
   
   'Déclaration des Variables   
   Dim ValeurTempo As String
   
   On Error Goto ErreurComplete_LS
   
   If wChar = "" Then
      Complete_LS = wValeur
      Exit Function
   End If   
   
   If wnbTaille = 0 Then
      Complete_LS = wValeur
      Exit Function
   Else
      If Len(wValeur) >= wnbTaille Then
         Complete_LS = wValeur
         Exit Function
      End If
   End If
   
   ValeurTempo = wValeur
   
   While Len(ValeurTempo) < wnbTaille
      Select Case Ucase(Trim(wSens))
      Case "GAUCHE","G","LEFT","L"
         ValeurTempo = wChar+ValeurTempo
      Case "DROITE","D","RIGHT","R"
         ValeurTempo = ValeurTempo+wChar
      Case Else
         Complete_LS = wValeur
         Exit Function
      End Select
   Wend
   
   Complete_LS = ValeurTempo
   ValeurTempo = ""
   
   Exit Function
ErreurComplete_LS:
   Msgbox "(Complete_LS) Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   Complete_LS = ""
   Exit Function
End Function