attribuer une source à une listbox

Version imprimable

Voir 40 message(s) de cette discussion en une page

22/11/2007, 15h02
jijie

attribuer une source à une listbox
Bonjour,

je voudrais attribuer une source à une listbox mais pas toujours sur la même feuille et ceci en donnant le nom de la feuille sur un combobox. j'ai essayer pas mal de solution, mais je ne trouve pas!!

voila mon code:
Code:

1 2 3 4 5 6 7 8 9 Private Sub ComboBox4_Change() Sheets(ComboBox4).Select ListBox1.ColumnCount = 5 ListBox1.RowSource = "a2: e1500" End Sub
merci du renseignement!!

essais comme ca

Code:

1
2
3
 
 
ListBox1.RowSource = ComboBox4.text & "!a2: e1500"

22/11/2007, 16h15
jijie

il me donne le message suivant:

erreur d'execution '13'
incompatibilité de type

il faut bien l'installer dans le combox4?
22/11/2007, 16h19
fred65200
bonjour

et avec des apostrophes s'il y a des espaces
Code:

1 2 ListBox1.RowSource = "'" & ComboBox4.text & "'!a2: e1500"
cordialement
22/11/2007, 18h17
laloune

il ne faut pas la convertir avec Cstr() normalement ? A moins que l'on m'aurait menti...

Citation:

Envoyé par jijie

par contre pour "convertir avec Cstr() "? La je suis perdu?

autant pour moi, j'avais pas réfléchi (ou trop vite), les deux chaînes sont même type, donc nul besoin, a priori, d'en changer le Type
22/11/2007, 19h01
jfontaine
je viens juste de le remarquer, mais peut être qu'il y a un espace de trop
Code:

1 2 3 4 a2:e1500 plutot que a2: e1500

tjrs le même message d'erreur!!

par contre pour "convertir avec Cstr() "? La je suis perdu?

Voici mon code!!

Code:

1
2
3
4
5
6
7
8
Private Sub ComboBox4_Change()
' Sheets(ComboBox4).Select
 
 
ListBox1.RowSource = "'" & ComboBox4.Text & "'!a2:e1500"
 
 
End Sub

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
29
30
31
32
33
34
35
36
37
Private Sub ListBox1_change()
 
   'ListBox1.RowSource = " " & ComboBox4.Text & "!a2:e1500"
 
 
 If ListBox1.Value = "" Then GoTo fin1
    Worksheets(ComboBox4).Select
    For Each c In Worksheets(ComboBox4).Range("A2:e1500")
        If c.Value = ListBox1.Text Then
            c.Select
        End If
    Next c
    ActiveCell.Offset(0, 1).Select
    TextBox2.Value = ActiveCell.Value
    ActiveCell.Offset(0, 2).Select
    ComboBox3.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    ComboBox2.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    ComboBox5.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    TextBox11.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    ComboBox1.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    TextBox5.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    TextBox6.Value = ActiveCell.Value
 
 
    GoTo fin2
fin1:
    TextBox4.Value = ""
    TextBox5.Value = ""
 
fin2:
End Sub

Code:

1 2 Tablo = Worksheets(ComboBox4.Text).Range("A1:J65535").Value ListBox1.List() = Tablo
tu veux bien tester pour nous ?

Bon alors, pour la reconnaissance de la liste super ça marche génial!!!!::king:

Mais par contre je bug maintenant dans le code de listbox il ne reconnat tjrs pas le combobox4!!!!:evilred:

voici le code:

Code:

1
2
3
4
5
6
7
Private Sub ComboBox4_Change()
 
 
Tablo = Worksheets(ComboBox4.Text).Range("A4:J65535").Value
ListBox1.List() = Tablo
 
End Sub

'ça sa marche trés bien

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
29
30
31
32
33
34
35
36
37
Private Sub ListBox1_change()

  
Sheets(ComboBox4).Select 'par contre ici ça m....!!
  
 If ListBox1.List = "" Then GoTo fin1
    Sheets(ComboBox4).Select
    For Each c In Sheets(ComboBox4).Range("A4:j65535")
        If c.Value = ListBox1.List Then
            c.Select
        End If
    Next c
    ActiveCell.Offset(0, 1).Select
    TextBox2.Value = ActiveCell.Value
    ActiveCell.Offset(0, 2).Select
    ComboBox3.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    ComboBox2.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    ComboBox5.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    TextBox11.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    ComboBox1.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    TextBox5.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    TextBox6.Value = ActiveCell.Value

    
    GoTo fin2
fin1:
    TextBox4.Value = ""
    TextBox5.Value = ""
    
fin2:
End Sub

22/11/2007, 20h55
fred65200
re
Code:

1 2 Sheets(ComboBox4).Text.Select
:traine:
EDIT à ajouter partout dans ton code
@+
22/11/2007, 21h14
jijie

Pourtant Tjrs le même probleme!!

Citation:

Envoyé par jijie

Pourtant Tjrs le même probleme!!

Code:

1
2
3
4
5
6
7
8
9
Sheets(ComboBox4).Text.Select
 
 If ListBox1.List = "" Then GoTo fin1
    Sheets(ComboBox4).Text.Select
    For Each c In Sheets(ComboBox4).Range("A4:j65535")
        If c.Value = ListBox1.List Then
            c.Select
        End If
    Next c

22/11/2007, 21h20
fred65200

re

Code:

Sheets(ComboBox4.Text).Select

:traine:

et partout dans ton code

@+

Citation:

Envoyé par jijie

Sheets(ComboBox4).Text.Select

If ListBox1.List = "" Then GoTo fin1
Sheets(ComboBox4).Text.Select
For Each c In Sheets(ComboBox4).Range("A4:j65535")
If c.Value = ListBox1.List Then
c.Select
End If
Next c

Autant pour moi!!! par contre c'est trés lent!!
Code:

1 2 3 4 5 6 7 8 9 Sheets(ComboBox4.Text).Select If ListBox1.Text = "" Then GoTo fin1 Sheets(ComboBox4.Text).Select For Each c In Sheets(ComboBox4.Text).Range("A4:j65535") If c.Value = ListBox1.Text Then c.Select End If Next c

22/11/2007, 21h27
ouskel'n'or
Sinon, tu peux récupérer la valeur de l'index de l'item sélectionné.
Code:

1 2 Tablo = Worksheets(combobox4.List(combobox4.Listindex)).range("A4:j65535").value ListBox.list() = Tablo
22/11/2007, 21h27
fred65200

re

tu es obligé de chercher sur toute cette plage ("A4:j65535")?

sinon, recherche la dernière cellule de la feuille et réduit la plage
@+
22/11/2007, 21h43
ouskel'n'or

Je te conseille une bonne lecture
22/11/2007, 21h44
Singular

Personne n'a songé aux méthodes Find et FindNext de l'objet Range au lieu du For ... Next? Ça devrait être plus rapide qu'une boucle puisque c'est natif à VBA-Excel... 8O
Et toutes ce sélection... ça doit être ça qui ralentit la routine.
22/11/2007, 21h50
ouskel'n'or

Pour la recherche avec Find, tu as un excellent exemple dans l'aide, sinon, tu peux regarder ici, ou, pour la recherche dichotomique, plus rapide, là
A+

ok, mais je ne comprend pas ou installé ce code et je fais comment ma condition??

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub ComboBox4_Change()
 
 
Tablo = Worksheets(ComboBox4.Text).Range("A4:J65535").Value
ListBox1.List() = Tablo
 
End Sub
 
 
 
 
 
Private Sub ListBox1_change()
'Tablo = Worksheets(ComboBox4.List(ComboBox4.ListIndex)).Range("A4:j65535").Value
'ListBox1.List() = Tablo
 
Sheets(ComboBox4.Text).Select
 
 If ListBox1.Text = "" Then GoTo fin1
    Sheets(ComboBox4.Text).Select
    For Each c In Sheets(ComboBox4.Text).Range("A4:j65535")
        If c.Value = ListBox1.Text Then
            c.Select
        End If
    Next c
    ActiveCell.Offset(0, 1).Select
    TextBox2.Value = ActiveCell.Value
    ActiveCell.Offset(0, 2).Select
    ComboBox3.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    ComboBox2.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    ComboBox5.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    TextBox11.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    ComboBox1.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    TextBox5.Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).Select
    TextBox6.Value = ActiveCell.Value
 
 
    GoTo fin2
fin1:
    TextBox2.Value = ""
    TextBox5.Value = ""
 
fin2:
End Sub

sinon ça marche mais je trouve ça lent

Voir 40 message(s) de cette discussion en une page