Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Alignement dans contrôle text

Alignement dans contrôle text

2 réponses
Avatar
Boujour,
j'ai une boucle qui me remplie une zone de texte:

For i =3D 0 To AP - 1
Me.txtChangement.Value =3D Me.txtChangement.Value & i & " --
> " & Space(10) & tableauNomS=E9rie(i) & Space(10) & " |---
> " & tableauCompte(i) & vbNewLine
Next i

qui me donne le r=E9sultat suivant :
0 --> 1F |---> 48364
1 --> 46 t=EAte ronde |---> 18010
2 --> S9000 |---> 14280
3 --> S9000 Surmoul=E9 |---> 18360

mais le r=E9sultat voulu serai d'avoir ces donn=E9es align=E9 :
0 --> 1F |---> 48364
1 --> 46 t=EAte ronde |---> 18010
2 --> S9000 |---> 14280
3 --> S9000 Surmoul=E9 |---> 18360

lorque je remplace Space(10) par Tab(10), Access g=E9nere=20
une erreur de compilation, quelqu'un peut il m'aider,
mer=E7i.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond
Bonsoir.
insère des tabulations entre chaque donnée au lieu des espaces et deux
tabulations s'il faut:
Me.txtChangement.Value & i & " --> " & vbTab & tableauNomSérie(i) & vbTab &
" |---> " & tableauCompte(i) & vbcrlf



--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


a écrit dans le message de
news:048d01c35544$e967fff0$
Boujour,
j'ai une boucle qui me remplie une zone de texte:

For i = 0 To AP - 1
Me.txtChangement.Value = Me.txtChangement.Value & i & " --
" & Space(10) & tableauNomSérie(i) & Space(10) & " |---
" & tableauCompte(i) & vbNewLine
Next i


qui me donne le résultat suivant :
0 --> 1F |---> 48364
1 --> 46 tête ronde |---> 18010
2 --> S9000 |---> 14280
3 --> S9000 Surmoulé |---> 18360

mais le résultat voulu serai d'avoir ces données aligné :
0 --> 1F |---> 48364
1 --> 46 tête ronde |---> 18010
2 --> S9000 |---> 14280
3 --> S9000 Surmoulé |---> 18360

lorque je remplace Space(10) par Tab(10), Access génere
une erreur de compilation, quelqu'un peut il m'aider,
merçi.

Avatar
3stone
Salut,


j'ai une boucle qui me remplie une zone de texte:

For i = 0 To AP - 1
Me.txtChangement.Value = Me.txtChangement.Value & i & " --
" & Space(10) & tableauNomSérie(i) & Space(10) & " |---
" & tableauCompte(i) & vbNewLine
Next i


qui me donne le résultat suivant :
0 --> 1F |---> 48364
[...]
mais le résultat voulu serai d'avoir ces données aligné :
0 --> 1F |---> 48364
1 --> 46 tête ronde |---> 18010



Utilise cette fonction que tu sauve sous "mod_Aligne" dans un module standard:

Function Aligne(Texte As String, Ecart As Integer) As String
If Len(Texte) > Ecart Then
Texte = Left$(Texte, Ecart)
End If
Aligne = (Space$(Ecart - Len(Texte)) & Texte)
End Function


Et tu l'utilise...

For i = 0 To AP - 1
Me.txtChangement.Value = Me.txtChangement.Value & i & " --> "
& Aligne( tableauNomSérie(i),10)
& Aligne(" |---> " & tableauCompte(i),10)
& vbNewLine
Next i


à la place de 10, tu mets ce que tu veux...
et utilise un "fonts" proportionnel comme "Courrier.ttf"

--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------