selection multiple dans listbox

Pierrot93

XLDnaute Barbatruc

• 6 Octobre 2010

• #2

Re : selection multiple dans listbox

Bonjour,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

C

camadian

Guest

• 6 Octobre 2010

• #3

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 ?

 

Pièces jointes

• test.xls

  39 KB · Affichages: 419
• test.xls

  39 KB · Affichages: 538
• test.xls

  39 KB · Affichages: 553

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Octobre 2010

• #4

Re : selection multiple dans listbox

Re,

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

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

C

camadian

Guest

• 7 Octobre 2010

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Octobre 2010

• #6

Re : selection multiple dans listbox

Bonjour,

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

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 7 Octobre 2010

• #7

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

 

Vote positif 0 Vote négatif

C

camadian

Guest

• 7 Octobre 2010

• #8

Re : selection multiple dans listbox

Re bonjour pierrot
c'est nickel
un grand merci

 

Vote positif 0 Vote négatif

C

camadian

Guest

• 8 Octobre 2010

• #9

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

 

Pièces jointes

• test.xls

  53.5 KB · Affichages: 188
• test.xls

  53.5 KB · Affichages: 200
• test.xls

  53.5 KB · Affichages: 200

Vote positif 0 Vote négatif