Discussion :

[Faw]

Pour ne pas faire de toi un assisté

le textbox se remplit sans laisser d'espace entre la ref et la description

Dans la page précédente, il y a un code qui met des espaces entre
les chaines...

(le prix ne s'affichant pas)

Quel prix? txtprixht ou la colonne(2) de la liste.
En plus au regard de ton code, cette ligne est mal placée...

Code :

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

txtprixht = txtprixht + Nz(Me.lstoption.Column(2, Me.lstoption.ItemsSelected(I)), 0)

[vicelard]

Peut etre que ce dernier pb peut etre eviter en chnageant la textbox par une listbox
Est beaucoup plus difficile ?

[vicelard]

Pour le prixht mal placer je pense que je l'ai remis a la bonne place cad avant le next I
Ca c fait
Ce n'est pas le le total du prix Ht qui ne s'affiche pas c'est la 3ème colonne a savoir le prix ht de chaque option
Pour ce qui est des espaces je regardes...

[vicelard]

J'ai l'impression que c'est

Code :

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

vbCrLf

Mais en le mettant dans la ligne

Code :

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

Me.txtoption = Me.txtoption & vbCrLf & Nz(Me.lstoption.Column(J, Me.lstoption.ItemsSelected(I)), "")

Cela me met les informations des 3 colonnes sur 3 lignes consécutives puis saute une ligne et rebelotte

[Faw]

Peut etre que ce dernier pb peut etre eviter en chnageant la textbox par une listbox
Est beaucoup plus difficile ?

Et en agrandissant ta textbox en largeur :
La colonne prix ht est visible dans la liste :
prix ht: les données avec des espaces dans leur nom doivent être
encadrées [prix ht]

ps: non une zone de liste n'est pas plus dificile à mettre en place avec
des options plus élaborées qu'une textbox. + un formatage des colonnes que ne t'offre pas la textbox.

[vicelard]

Bon en agrandissant la textbox je ne vois tjs pas le tarif ht ( qui est different du prix ht =total des options)
tarif ht devient Tarif_HT
Mas tjs rien
Et eb ce qui concerne l'espace en la référence et la description pas trouvé
Je veux redevenir un assisté

Reps; c'est exactement le formatage des colonnes qu'il me manque soir dit en passant

[Faw]

Code :

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

Me.txtoption = Me.txtoption & vbCrLf

simplement ...

C'est moi qui suis un âne

[vicelard]

donc je dois enlever le Nz(.......

mais sur laquelle parce qu'a chaque fois que j'enlève le Nz(... sur l'une des lignes il me dit erreur de compilation
Donc je ne vois pas ce que tu veux dire...

[Faw]

Il n'y a qu'une ligne avec vbCrLf, celle ci

Code :

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

Me.txtoption = Me.txtoption & vbCrLf & Nz(Me.lstoption.Column(J, Me.lstoption.ItemsSelected(I)), "")

elle devient

Code :

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

Me.txtoption = Me.txtoption & vbCrLf

Ce n'est pas le Nz qui pose problème, mais faire référence à l'index J
en dehors de sa boucle était une aberration

[Faw]

Arf!, Nz pose le problème d'icompatibilité de type et je
tente de l'expliquer.
Nz premet de remplacer des Chaines Nulles par ""(chaine vide) ou Zéro ou autre chose.
Il s'avère que Sql (la source de ta liste) remplace les Chaines Nulles par
"" systématiquement.
Donc quand on met

Code :

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

txtprixht = txtprixht + Nz(Me.lstoption.Column(2, Me.lstoption.ItemsSelected(I)), 0)

Il trouve une icompatibilité de type car on ajoute un nombre à
une chaine vide. (si le champ source est Nul)
La solution consisterait à mettre le Nz dans le rowsource (propriété Contenu)
de la liste en remplaçant Table.tarif_ht par Nz(Table.tarif_ht,0) dans la chaine sql.

Avec ça ce code fonctionne

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
Private Sub lstoption_Click()
 
Me.txtoption = ""
Me.txtprixht = 0
 
For I = 0 To Me.lstoption.ItemsSelected.Count - 1
 
    For J = 0 To Me.lstoption.ColumnCount - 1
    Me.txtoption.SetFocus
    Me.txtoption = Me.txtoption & "  " & Nz(Me.lstoption.Column(J, Me.lstoption.ItemsSelected(I)), "")
    Next J
 
Me.txtoption = Me.txtoption & vbCrLf
txtprixht = txtprixht + Me.lstoption.Column(2, Me.lstoption.ItemsSelected(I))
Next I
 
End Sub

A moins que tu ne fixes définitivement une valeur par défaut au champ
de table tarif_ht.
Ça c'est pour le principe. Dans l'absolu le choix d'une TextBox ici est
très discutable car le résultat n'est franchement pas ergonomique ni
esthètique...

Il y a peut -être moyen d'éditer directement ta sélection sans passer
par cette textbox...