selection multiple dans listbox

[camadian]

Bonjour le forum,
j'essaye a partir de plusieurs listbox selectionner plusieurs choix et ecrire ce choix sur la ligne.
mais si je coche plusieurs choix dans la colonne 1 il faut que le resultat soit dans la cellule avec des espaces
existe t il un moyen pour résoudre mon pb ?
merci pour votre aide

 

[Pierrot93]

Re : selection multiple dans listbox

Bonjour,

regarde peut être ceci, si cela peut t'aider...

Dim i As Byte
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Range("A1").Value = Range("A1").Value & ListBox1.List(i, 0) & " "
    End If
Next i
Range("A1").Value = Left(Range("A1").Value, Len(Range("A1").Value - 1))

bon après midi
@+

 

[camadian]

Re : selection multiple dans listbox

Bonjour pierrot,
J'ai reussi a adapter ton code
un grand merci
mais j'ai une erreur d'incompatibilité sur la ligne avec la valeur - 1
Range("A1").Value = Left(Range("A1").Value, Len(Range("A1").Value - 1))
peux tu m'en dire plus ?

 

[Pierrot93]

Re : selection multiple dans listbox

Re,

Aarf, autant pour moi... modifie comme suit :

Range("A1").Value = Left(Range("A1").Value, Len(Range("A1").Value) - 1)

bonne soirée
@+

 

[camadian]

Re : selection multiple dans listbox

Bonjour Pierrot,
Cela fonctionne si on sélectionne au moins un choix dans chaque listbox sinon plantage.
ma methode n'est pas tres catholique
enlever le -1
et faire un clear de la cellule
Merci pour ton aide.
bonne journée

 

[Pierrot93]

Re : selection multiple dans listbox

Bonjour,

faire peut être un test au préalable...

If Range("A1").Value <> "" Then _
    Range("A1").Value = Left(Range("A1").Value, Len(Range("A1").Value) - 1)

bonne journée
@+

 

[natorp]

Re : selection multiple dans listbox

Bjr Camadian et Pierrot

je me permets de proposer la visiste du site génial de l'ami Boisgontier
Formulaire multi-sélection

cordialement, Gérard

 

[camadian]

Re : selection multiple dans listbox

Re bonjour pierrot
c'est nickel
un grand merci

 

[camadian]

Re : selection multiple dans listbox et recherche

Bonjour le forum
A nouveau je suis devant un pb
Une fois mon tableau renseigné
je souhaite faire une recherche toujours a partir de ma listbox critere mais que cette recherche se fasse a partir de la colonne 2 de la feuil1 et m'inscrive le resultat de la colonne 1 de la feuill1 dans une listbox

Merci a Natorp pour le lien tres instructif

Merci a tous