Modifier le Format dans un listBox

Bonjour Forum,

Habituellement j'utilise les listviews pour faire un liste d'item contenant plusieurs colonnes, mais pour des raisons que j'ignore la listview ne fonctionne pas dans un état...

Je me suis donc tourné vers le contrôle listbox, j'ai trouvé sur internet comment modifier une valeur dans une colonne spécifique d'une ligne spécifique, mais ça ne marche pas l'erreur : membre de méthode ou de données introuvable

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub FormatListbox() Dim i As Integer   With Me.Liste40 For i = 1 To .ListCount .List(i, 3) = strFeet(.List(i, 3)) Next i End With End Sub

---

strfeet est une fonction que j'ai créé qui renvoie une chaine.

Merci d'avance de votre aide!

Bonjour,

:!: par curosité, qu'elle est l'utilité d'employer des Zones de listes déroulantes dans un état :question:
.... car au final, ce contrôle n'affichera qu'une seule valeur :!:

... Ou alors quelque chose m'a échappé 8O

Bonjour Free Access,

Non le contrôle listbox me permet d'entrer de multiple valeur, dans mon cas il est lié à une requête.

Comme je le disais habituellement j'utilise des listview, car je ne connais pas beaucoup Access, mais je connais bien VBA, donc j'aime mieux passer par VBA.
Mais dans mon cas les Listview ne fonctionne pas...

J'ai donc choisi de ne pas passé par un contrôle ListBox, mais d'insérer la requête directement dans mon État. J'ai donc besoin d'aide!

J'ai un colonne longueur de type numérique, jaimerais modifier la valeur pour la transformé en champs texte. Exemple 4.2 devient 4' 2''.

Voici ce que j'ai tenté via le générateur d'expression, mais sans succès:
Expr1: Remplacer(CChaîne([Longueur]);".";"' ";0;-1;1) & "''"

Mon idée est de modifier le point (".") par un apostrophe et un espace et d'ajouter 2 apostrophe à la fin.

Merci de votre aide.

Bonjour,

Citation:

---

Mon idée est de modifier le point (".") par un apostrophe et un espace et d'ajouter 2 apostrophe à la fin.

---

. . . à oui, ça change d'avec ta première demande .....:P

Alors allons-y.....faisons un peu de découpage (ceci est une possibilité...)

1) Récupérer la position du point (.) dans la chaîne...

Code:

---

point: DansChaîne([longueur];".")

---

:fleche: ex: pour la valeur 4.2 retourne 2

2) Récupérer la partie gauche de la chaîne située avant le point (.)

Code:

---

gauche: Gauche([longueur];[point]-1

---

:fleche: ex: pour la valeur 4.2 retourne 4

3) Récupérer toute la chaîne située après le point (.)

Code:

---

Droite: ExtracChaîne([longueur];DansChaîne([longueur];".")+1)

---

:fleche: ex: pour la valeur 4.2 retourne 2

4) Au final, on mouline tout cela, pour obtenir...

Code:

---

NumEnTexte: Gauche([longueur];DansChaîne([longueur];".")-1) & "' " & ExtracChaîne([longueur];DansChaîne([longueur];",")+1) & "''"

---

:fleche: ex: pour la valeur 4.2 retourne 4' 2''

...voila, c'est une possibilité ( en espérant ne pas m'être trompé ...;)

ATTENTION:
- solution valable pour affichage et non pour calcul
- ne fonctionne que si la donnée comporte une valeur après le point (.)
(12.45 = OK | 25 = KO )

....à adapter.....;)

[EDIT]
...avant que tu ne demande ;)
Pour gérer une valeur sans point (.), ajoute une fonction Iif (Vrai/Faux)....
Tu peux également créer une fonction.....(accessible n'importe ou dans l'application)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Function FormatLongueur (longueur As String) 'Recherche si point (.) existe Dim point As Byte point = InStr ......... If point = 0 Then longueur = longueur &....... Else longueur = Left....... End if FormatLongueur = longueur End Function

---