récupérer les données de mulltiselect listbox

Version imprimable

Bonjour tout le monde,
j'ai un problème avec ma listbox et je ne sais pas la raison :( .
bon j'ai une feuille ou les données sont stockés , je cherche les données avec un bouton chercher , après ils s'affichent dans ma listbox , je sélectionne une valeur et elle s'affiche dans mon tableau, cela fonctionne parfaitement , mais quand j'ai changé les paramètres de la listbox vers multi select , mon code ne fonctionne plus .
le voila :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Private Sub CommandButton1_Click() Dim Msg As String Dim i, j As Integer j = 4 Msg = "You selected" & vbNewLine For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then Msg = Msg & ListBox1.List(i) & vbNewLine ActiveCell = ListBox1.Value Unload Me End If Next i With Worksheets("BPU") While .Cells(j, 3).Value <> ActiveCell.Value j = j + 1 Wend ActiveCell.Offset(0, 1).Value = .Cells(j, 5).Value ActiveCell.Offset(0, 2).Value = .Cells(j, 4).Value End With MsgBox Msg Unload Chercher End Sub
Merci d'avance.

06/07/2015, 09h15
patricktoulon

heu

bonjour
bonjour
c'est normal
en mode multiselect tu ne peut plus utliser ceci:

Code:

ActiveCell = ListBox1.Value

donc tout les reste de code qui suit est faux
il va te falloir changer de stratégie de code
si je comprends bien tu veut inverser la colonne 4 et 5 pour toutes les occurrences dans le sheets("BPU") de la selection (listbox)
06/07/2015, 09h15
antonysansh

Bonjour Merryy,

Il faudrait que tu déplaces le Unload Me.

En effet, si le test ListBox1.Selected(i) (= True) est vérifié, tu vas fermer l'UF et ensuite le Next i te refais passer sur ListBox1.Selected(i) qui provoque l'erreur.

EDIT : :coucou: Patrick
mea culpa, j'ai parlé trop vite. Mais j'ai quand même un doute. Si tu as plusieurs éléments de sélectionnés et que tu fermes l'UF dès le premier récupéré, tu ne pourras pas trouver le suivant.
06/07/2015, 09h24
Merryy

Citation:

Envoyé par patricktoulon

bonjour
bonjour
c'est normal
en mode multiselect tu ne peut plus utliser ceci:

Code:

ActiveCell = ListBox1.Value

donc tout les reste de code qui suit est faux
il va te falloir changer de stratégie de code
si je comprends bien tu veut inverser la colonne 4 et 5 pour toutes les occurrences dans le sheets("BPU") de la selection (listbox)

Oui exactement c'est ce que je veux faire, et quand je selectionne , il m'affiche que la dernière valeur, il écrase les autres
06/07/2015, 09h25
Merryy

Citation:

Envoyé par antonysansh

Bonjour Merryy,

Il faudrait que tu déplaces le Unload Me.

En effet, si le test ListBox1.Selected(i) (= True) est vérifié, tu vas fermer l'UF et ensuite le Next i te refais passer sur ListBox1.Selected(i) qui provoque l'erreur.

EDIT : :coucou: Patrick
mea culpa, j'ai parlé trop vite. Mais j'ai quand même un doute. Si tu as plusieurs éléments de sélectionnés et que tu fermes l'UF dès le premier récupéré, tu ne pourras pas trouver le suivant.

Bonjour,
ou je dois deplacer le

Code:

unload me

bonjour Antony

oui aussi mais a mon avis le message d'erreur il arrive dès le activecell........ et c'est normal puisque la sélection est un tableau(plusieurs éléments)
et non pas une valeur(string ou numérique)

dans ce cas la se sera un truc du genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
    Dim Msg As String
    Dim i, temp As String
        Msg = "You selected" & vbNewLine
    For i = 0 To listbox1.ListCount - 1
        If listbox1.Selected(i) Then
            Msg = Msg & listbox1.List(i) & vbCrLf
            'ActiveCell = listbox1.Value
            With Worksheets("BPU")
               set  cel = Column("c:c").Find(listbox1.Selected(i), lookat:=xlWhole)
                temp = .Cells(cel.Row, 4).Value
                cel.Offset(0, 1).Value = .Cells(cel.Row, 5).Value
                cel.Offset(0, 2).Value = temp
            End With
        End If
    Next i
    MsgBox Msg
    Unload Chercher
End Sub

06/07/2015, 09h46
Merryy

il me donne erreur , sub ou function nn definie (column)
06/07/2015, 09h48
patricktoulon

re

peut que meme sur j'ai oublié le"s" a columns:mouarf:
06/07/2015, 11h26
Merryy

:mouarf::mouarf: il a passé le columns vers le temp 8O

je suis désole si je pose beaucoup de question , je suis débutante en vba , donc je comprends pas beaucoup de choses.
fin , ici il me donne problème avec la variable temp
06/07/2015, 11h34
patricktoulon

re

met un "s" devant "temp" :mouarf:

il se peut que cette variable soit utilisée déjà par le system ou appelle la comme tu veux
06/07/2015, 11h42
Merryy

non , le probleme c'est pas dans le s parceque je l'ai changé et il me donne toujours erreur
06/07/2015, 11h49
patricktoulon

re

déjà j'ai omis un detail :met un point devant columns peut etre que list n'est pas prise au bon endroit donc le find doit pas fontionner
06/07/2015, 11h52
Merryy

il me donne toujours erreur de type : variable nn définue