Discussion :

[jijie]

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 :

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

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

[jfontaine]

essais comme ca

Code :

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

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

[jijie]

il me donne le message suivant:

erreur d'execution '13'
incompatibilité de type

il faut bien l'installer dans le combox4?

[fred65200]

bonjour

et avec des apostrophes s'il y a des espaces

Code :

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

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

cordialement

[laloune]

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

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

[jfontaine]

je viens juste de le remarquer, mais peut être qu'il y a un espace de trop

Code :

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

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

[jijie]

tjrs le même message d'erreur!!

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

Voici mon code!!

Code :

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

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

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

[ouskel'n'or]

Code :

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

1
2
Tablo = Worksheets(ComboBox4.Text).Range("A1:J65535").Value
ListBox1.List() = Tablo

tu veux bien tester pour nous ?

[jijie]

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

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

voici le code:

Code :

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

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 :

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

[fred65200]

re

Code :

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

1
2
Sheets(ComboBox4).Text.Select

EDIT à ajouter partout dans ton code
@+

[jijie]

Pourtant Tjrs le même probleme!!

[jijie]

Pourtant Tjrs le même probleme!!

Code :

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

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

[fred65200]

re

Code :

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

Sheets(ComboBox4.Text).Select

et partout dans ton code


@+

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

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

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

[ouskel'n'or]

Sinon, tu peux récupérer la valeur de l'index de l'item sélectionné.

Code :

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

1
2
Tablo = Worksheets(combobox4.List(combobox4.Listindex)).range("A4:j65535").value
ListBox.list() = Tablo

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

[ouskel'n'or]

Je te conseille une bonne lecture

[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...
Et toutes ce sélection... ça doit être ça qui ralentit la routine.

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

[jijie]

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

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