Discussion :

[stressman]

Salut à tous,

J'ai une feuille Excel avec 7 listbox dont 4 ont une macro du type ListBox1_Click().

Le but de mes macro est que le contenu des listbox soient générés en fonction du choix de la listbox précédente (exemple si choix 3 dans la listbox1 alors le contenu de la listbox2 est la plage B77:B86), et sont du style

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
 
Private Sub ListBox1_Click()
    Application.ScreenUpdating = False
 
    If Sheets("Data").Range("C4").Value = "Fiscal Balance" Then
        Sheet30.OLEObjects("ListBox7"). _
        ListFillRange = Worksheets("VariableNames").Range("B88").Address(external:=True)
 
        Else: Sheet30.OLEObjects("ListBox7"). _
        ListFillRange = Worksheets("VariableNames").Range("B77:B86").Address(external:=True)
    End If
 
    ListBox2.Selected(0) = True
    Sheet30.OLEObjects("ListBox6"). _
        ListFillRange = Worksheets("VariableNames").Range("B51:B58").Address(external:=True)
    Application.ScreenUpdating = True
 
End Sub

ou

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
Private Sub ListBox2_Change()
    'To select the classification:
    Application.ScreenUpdating = False
    If Sheets("Data").Range("D5").Value = 1 Then
        ListBox6.Enabled = False
        Else: ListBox6.Enabled = True
    End If
 
    If Sheets("Data").Range("D5").Value = 1 Or 2 Then
        ListBox7.Enabled = False
        Else: ListBox7.Enabled = True
    End If
 
    If Sheets("Data").Range("D5").Value = 3 Then
        ListBox7.Enabled = True
    End If
 
    Application.ScreenUpdating = True
 
End Sub

Bref, rien de bien sorcier. Tout fonctionne bien, sauf que quand je clique sur la listbox1, il faut 1-2 secondes pour que la listbox 2 se mette à jour.

Est-ce normal ou est-ce qu'il y a moyen d'accélérer la mise à jour ?

Merci d'avance

[Jean-Philippe André]

salut,
en termes de performance de base on peut passer a ceci :

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
Private Sub ListBox2_Change()
    'To select the classification:
    Application.ScreenUpdating = False
    Select Case Sheets("Data").Range("D5").Value 
        Case 1:
             ListBox6.Enabled = False
             ListBox7.Enabled = False
        Case 2: 
           ListBox6.Enabled = True
           ListBox7.Enabled = False
        Case 3:
           ListBox7.Enabled = True
    End Select
 
    Application.ScreenUpdating = True
 
End Sub

dis nous si ca ameliore tes performances

[stressman]

Merci pour la réponse. C'est dur à dire si ça améliore la vitesse.

Le problème vient plus du remplissage de la listbox une fois qu'elle est activée.

Si je passe de case 1 à case 2, mon listbox 6 devient actif et doit contenir des valeurs. Ces valeurs dépendent du choix de la listbox 1. C'est la que ca prend du temps. On dirait que c'est la première fois qu'Excel doit remplir la listbox que ca bloque, mais qu'une fois qu'il connait les valeurs, quand je passe de case1 à 2 ou 3 ca va super vite.

Est-ce que je peux améliorer quelque chose au code

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
Private Sub ListBox1_Click()
    Application.ScreenUpdating = False
 
    If Sheets("Data").Range("C4").Value = "Fiscal Balance" Then
        Sheet30.OLEObjects("ListBox7"). _
        ListFillRange = Worksheets("VariableNames").Range("B88").Address(external:=True)
 
        Else: Sheet30.OLEObjects("ListBox7"). _
        ListFillRange = Worksheets("VariableNames").Range("B77:B86").Address(external:=True)
    End If
 
    ListBox2.Selected(0) = True
    Sheet30.OLEObjects("ListBox6"). _
        ListFillRange = Worksheets("VariableNames").Range("B51:B58").Address(external:=True)
    Application.ScreenUpdating = True
 
End Sub

[neupont]

Le remplissage des listbox se fait plus vite si tu remplis d'abord un tableau de variables, mais ça demanderait de modifier ton code en profondeur.

Je mets un exemple non adapté à ton code :

Code :

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

1
2
3
4
5
6
7
dim monTableau() as variant
 
  monTableau(0) = valeur1
  monTableau(1) = valeur2
  etc...
 
ListBox2.List() = monTableau

[stressman]

Merci, je vais essayer. Le problème est que ma listbox contient des éléments différents et un nombre d'éléments différents en fonction d'un choix sur une autre listbox.

Aussi non j'ai trouvé ça aussi sur Dailydoseofexcel.com qui irait plus vite mais que je dois tester.

Code :

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

1
2
3
    With Sheet1
        ListBox1.List = Application.Transpose(.Range(.Range("A2"), .Range("A2").End(xlDown)).Value)
    End With