Discussion :

[Azaror]

Bonjour à tous,
dans le cadre de mon stage, je suis amené à générer un fichier texte à partir d'une base de données access afin d'importer des données de facturation vers le logiciel ciel 2003. J'ai réussi et ça marche très bien mais afin d'optimiser mon code, j'ai voulu créer une fonction qui ajustera la taille d'une chaine de caractère (pour que la syntaxe corresponde à ce que ciel veut avoir pour l'import).
J'ai donc écrit ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function ajusterTaille(chaine As String, taille As Integer, char As String, place As String) As String
    Dim arret As Boolean
    arret = False
    While arret = False
        If place = "d" Then
            If Len(chaine) < taille Then
                chaine = chaine & char
            Else: arret = True
            End If
        Else
            If Len(chaine) < taille Then
                chaine = char & chaine
            Else: arret = True
            End If
        End If
    Wend
End Function

On rentre donc la chaine à modifier, la taille que la chaine doit avoir, le caractère qui doit compléter la chaine et enfin l'endroit où il doit être ajouté.
Cependant, la fonction me retourne toujours une chaine vide...
Voici deux exemples pour vous montrer comment je l'appelle :
code = ajusterTaille(code, 6, " ", "d")
test = ajusterTaille("test", 8, "0", "g")

Je ne sais pas trop ce qu'il cloche, pour moi mon code est bon... Je dois surement faire quelque chose de mal mais là franchement je ne vois pas...
Merci d'avance pour votre aide !

[Azaror]

En faites... Je suis juste trop bête.... J'ai oublié de mettre ajusterTaille=chaine à la fin.... Désolé d'avoir créé une discussion pour rien