Discussion :

[antoine0207]

Je veux faire une selection multiple par une liste et un bouton
pour l'insant dans mon bouton j'ai

Private Sub Valider_Click()
Dim varLr As Variant
Dim StrResult As String
For Each varLr In Me![Liste85].ItemsSelected
StrResult = StrResult & Me.Liste85.ItemData(Me.Liste85.ItemsSelected(varLr)) & " ; "
Next varLr
Me![nature des locaux] = StrResult
End Sub

Ca ne marche que pour les premiers lots joints (1 et 2 ; ou 1 et 2 et 3)
et ca ne marche pas pours des lots disjoints et ne partant pas de 1 (1 et 3 ; ou 2 et 4)

A votre avis, qu'est ce qui cloche ?

[scorpion1611]

Teste cette variante

Code :

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

1
2
3
4
5
6
7
 
Dim VarLr As Variant
Dim StrResult As String
For Each VarLr In Me![Liste85].ItemsSelected
StrResult = StrResult & Me![Liste85].ItemData(VarLr) & ";"
Next VarLr
Me![nature des locaux] = StrResult

[antoine0207]

Bon bah pour changer ...

Merci Scorpion

j'aime beaucoup la démo avec le panda et la fleur

ya une maniere simple d'enlever le dernier ;

ou je laisse tomber et je le laisse ?

[scorpion1611]

ou je laisse tomber et je le laisse ?

Soit tu laisses tomber et tu le laisses soit tu remplaces

Code :

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

1
2
 
Me![nature des locaux] = StrResult

par

Code :

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

1
2
 
Me![nature des locaux] = Left(StrResult, Len(StrResult) - 1)

[antoine0207]

ok merci je le fais c'est plus classe