rajouter des zéro à gaucheRésolu

Question

Bien en temps normal j'utilise objet=format(objet,"0###") pour avoir des z&#233;ros &#224; gauche.



Ne souhaitant pas bidouiller en lancant soit une boucle rajoutant le
nombre de z&#233;ros voulus ou encore v&#233;rifiant la taille de mon texte et
rajouter x*0 &#224; droite j'aimerai savoir pourquoi dans mes controles
Compte comptable lorsque je fais un objet=format(objet,"#####0") cela
me renvoie aucun changements.



Objet="411"

objet = Format(Objet,"#####0")



(l&#224; Objet = "411")



Merci de vos r&#233;ponses

PCPT · Accepted Answer

ouaip, au moins tu as droite et gauche.
&#224; toi d'&#234;tre tout de m&#234;me certain que ton Objet ("411") aura toujours le bon Format (len <= longueur)

une petite modif des param&#232;tres de la fonction : Optional Droite As Boolean = False
c'est pr&#233;f&#233;rable de toujours initialiser une valeur optionnelle. (m&#234;me si d&#233;faut = 0 donc False)

++
PCPT

acecel · Answer

Essaye plut&#244;t : 
Format(Objet,"###000")

madflo · Answer

M&#234;me r&#233;sultat h&#233;las



MsgBox Format("411", "###000")



message renvoie "411"

PCPT · Answer

salut,
si &#231;&#224; ne fonctionne pas, c'est que tu as mal d&#233;clar&#233; Objet

test&#233; VB6

Dim Objet As String
Objet = "411"
Debug.Print Format(Objet, "0###")

ok

PCPT    [AFCK]

PCPT · Answer

d&#233;sol&#233;, trop vite....... n'importe quoi.....

madflo · Answer

Ce n'est rien... mais format n'a pas l'air de g&#233;rer ca :/ je suis
oblig&#233; de ne plus utiliser format et cr&#233;er ma propre fonction lassant
des fois...

PCPT · Answer

ouai, je vois çà. voici une proposition VB6 toujours Private Sub Command1_Click() Dim Objet As String Objet = "411" MsgBox Format4Int(Objet) End Sub ' ' Private Function Format4Int(sVal As String) As Integer Dim lVal As Long lVal = CLng(sVal) Select Case lVal Case 0: Format4Int = -1 Case Is < 10: Format4Int = lVal * 1000 Case Is < 100: Format4Int = lVal * 100 Case Is < 1000: Format4Int = lVal * 10 Case Else: Format4Int = -1 End Select End Function Coloration syntaxique automatique [AFCK] PCPT [AFCK]

madflo · Answer

Je reste sur du bidouillage c'est plus claire.



Public Function RLZero(Texte As String, Longueur As Integer, Optional Droite As Boolean) As String

'Fonction de formatage 0 &#224; gauche ou &#224; droite

'Texte    : valeur de base (Exemple : "12")

'Longueur : longueur maximal du texte (Exemple : "4")

'Droite : par d&#233;faut &#224; gauche, mettre true pour mettre les 0 &#224; droite (Exemple : true)

'Resultat de l'exemple : "1200"

If Droite Then

    Do While Len(Texte) < Longueur

        Texte = Texte & "0"

    Loop

Else

    Do While Len(Texte) < Longueur

        Texte = "0" & Texte

    Loop

End If

RLZero = Texte

End Function

madflo · Answer

ah oui merci :D j'oubliais la rigueur... Merci

crenaud76 · Answer

Et cela ...

Objet="411"
objet = Format(Objet,"000000")

Ce n'est pas ce que tu cherchers ?

Christophe

Rajouter des zéro à gauche

10 réponses