Discussion :

[Merryy]

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 :

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
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.

[patricktoulon]

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

Code :

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

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)

[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 : 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.

[Merryy]

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

Code :

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

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

[Merryy]

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 : 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 :

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

 unload me

[patricktoulon]

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 :

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

[Merryy]

il me donne erreur , sub ou function nn definie (column)

[patricktoulon]

peut que meme sur j'ai oublié le"s" a columns

[Merryy]

il a passé le columns vers le temp

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

[patricktoulon]

met un "s" devant "temp"

il se peut que cette variable soit utilisée déjà par le system ou appelle la comme tu veux

[Merryy]

non , le probleme c'est pas dans le s parceque je l'ai changé et il me donne toujours erreur

[patricktoulon]

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

[Merryy]

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