Vider contenu des listbox déroulantes

**Itriel** · 18/08/2017, 16h15

Bonjour à tous,

Je suis actuellement en train de bosser sur un formulaire de saisie dans ma base de données.

Je suis confronté à un soucis pour vider mes zone de list déroulante avec un bouton et du code.
Concernant les Textbox c'est bon, mais les listbox ne veulent pas se vider. J'ai tester pas mal de choses avec mon code mais rien n'a fonctionné. Voici le code event sur mon bouton clear :

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
Option Compare Database
 
Private Sub Commande160_Click()
 
Dim Ctrl As Control
For Each Ctrl In Me.Controls
     If TypeOf Ctrl Is TextBox Then
           Ctrl.Value = ""
     End If
     If TypeOf Ctrl Is ComboBox Then
           Me!MALIST.Value = Null
     End If
 
Next Ctrl
 
 
End Sub

En réalité cela fonctionne si je mets : Me!LeNomDeMaListe.Value = Null mais je souhaiterais une seule ligne de code pour toutes les combos box si c'est envisageable. Sinon ctrl+C ctrl+V ^^

Merci d'avance !

EDIT : Finalement je vais partir sur une ligne de code par liste déroulante, ça fonctionne et au final ce n'est pas si embêtant. Problème résolu mais si quelqu'un à la solution pour faire du tout en un, ca peut servir pour d'autres personnes.

**tee_grandbois** · 18/08/2017, 23h06

Bonsoir,
le code ci-dessous vide le contenu des contrôles de type combobox selon son origine source :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
     If TypeOf Ctrl Is ComboBox Then
        If Ctrl.RowSourceType = "Value List" Then
            If Ctrl.ListCount > 0 Then
                For i = Ctrl.ListCount - 1 To 0 Step -1
                    Ctrl.RemoveItem Index:=i
                Next i
            End If
        ElseIf Ctrl.RowSourceType = "Table/query" Or Ctrl.RowSourceType = "Field List" Then
            Ctrl.RowSource = ""
        End If
 
     End If

j'espère que cela correspond à ton besoin

**Itriel** · 21/08/2017, 10h11

Bonjour, merci pour ta réponse, ton temps et ton code.

Malheureusement cela ne marche pas, Erreur de compilation Next sans For, j'ai rajouter un End if, plus d'erreur mais cela ne vide pas les combobox.

**tee_grandbois** · 21/08/2017, 10h58

Bonjour,
le mieux est que je donne le code complet : je l'ai testé et il fonctionne. J'ai aussi ajouté le vidage des contrôles de type ListBox au cas où :

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
 
Private Sub btClear_Click()
Dim Ctrl As Control
Dim i As Integer
 
For Each Ctrl In Me.Controls
 
' Vidage des zones de Texte
     If TypeOf Ctrl Is TextBox Then
           Ctrl.Value = ""
     End If
' Vidage des zones de listes et listes déroulantes
     If TypeOf Ctrl Is ComboBox Or ListBox Then
        If Ctrl.RowSourceType = "Value List" Then
            If Ctrl.ListCount > 0 Then
                For i = Ctrl.ListCount - 1 To 0 Step -1
                    Ctrl.RemoveItem Index:=i
                Next i
            End If
        ElseIf Ctrl.RowSourceType = "Table/query" Or Ctrl.RowSourceType = "Field List" Then
            Ctrl.RowSource = ""
        End If
 
     End If
 
Next Ctrl
End Sub

**Itriel** · 21/08/2017, 11h09

Merci pour ta réponse.

Hélas c'est toujours pas fonctionnel dans mon cas (ça doit être un détail comme la source ou je ne sais pas ^^) mais ce n'est pas très grave je vais laisser comme j'ai actuellement c'est à dire

Code :

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

1
2
     If TypeOf Ctrl Is ComboBox Then
           Me!Marché.Value = Null

Encore merci ! Je passe en résolu plus tard au cas ou.

**tee_grandbois** · 21/08/2017, 11h33

erreur de ma part et en plus pas testé...

Code :

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

     If (TypeOf Ctrl Is ComboBox) Or (TypeOf Ctrl Is ListBox) Then

sinon en ajoutant des Debug.Print on peut connaitre ceux qui passent dans la boucle ou pas :

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 btClear_Click()
Dim Ctrl As Control
Dim i As Integer
 
For Each Ctrl In Me.Controls
Debug.Print Ctrl.Name & " - " & TypeName(Ctrl)  ' Espion 006 
' Vidage des zones de Texte
     If TypeOf Ctrl Is TextBox Then
           Ctrl.Value = ""
     End If
' Vidage des zones de listes et listes déroulantes
     If (TypeOf Ctrl Is ComboBox) Or (TypeOf Ctrl Is ListBox) Then
        Debug.Print "*** traité ***: " & Ctrl.Name & "-" & TypeName(Ctrl)    ' Espion 007
        If Ctrl.RowSourceType = "Value List" Then
            If Ctrl.ListCount > 0 Then
                For i = Ctrl.ListCount - 1 To 0 Step -1
                    Ctrl.RemoveItem Index:=i
                Next i
            End If
        ElseIf Ctrl.RowSourceType = "Table/query" Or Ctrl.RowSourceType = "Field List" Then
            Ctrl.RowSource = ""
        End If
 
     End If
 
Next Ctrl
 
End Sub

et éventuellement ajouter un point d'arrêt et faire du pas à pas ...

**Itriel** · 21/08/2017, 14h54

Merci encore une fois :p

Ca ne vide toujours pas les combo box chez moi désolé

Ca doit être un problème au niveau de mes sources ou je ne sais quoi, mais en l’occurrence ce n'est pas grave vu que mon Me.Value = Null fonctionne.

**tee_grandbois** · 21/08/2017, 15h45

Envoyé par Itriel

Merci encore une fois :p

Ca ne vide toujours pas les combo box chez moi désolé

Ca doit être un problème au niveau de mes sources ou je ne sais quoi, mais en l’occurrence ce n'est pas grave vu que mon Me.Value = Null fonctionne.

il serait bien que tu fasses les tests que je t'ai suggéré (mode pas à pas) ne serait-ce que pour résoudre le souci pour ceux qui auraient aussi ce problème ...

**Itriel** · 21/08/2017, 16h34

J'aimerais bien, mais mon niveau d'access n'étant pas très élevé je ne vois même pas de quoi tu parle

J'ai des infos dessus, je test quand j'ai le temps

EDIT : alors le pas à pas m'a donné une erreur sur le

Me

de :

Code :

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

For Each Ctrl In Me.Controls

**tee_grandbois** · 21/08/2017, 17h23

Peux-tu poster le code complet ?

**Itriel** · 22/08/2017, 14h06

Hello, 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
29
30
31
32
33
34
35
36
37
38
39
40
Option Compare Database
 
 
Private Sub Commande160_Click()
 
Dim Ctrl As Control
For Each Ctrl In Me.Controls
     If TypeOf Ctrl Is TextBox Then
           Ctrl.Value = ""
     End If
     If TypeOf Ctrl Is ComboBox Then
           Me!Marché.Value = Null
           Me!Mission.Value = Null
           Me!Rejet.Value = Null
           Me!Unité.Value = Null
           Me!Département.Value = Null
           Me!Filière.Value = Null
           Me!Effluent.Value = Null
           Me!Date.Value = Null
     End If
 
Next Ctrl
 
End Sub
 
Private Sub Commande163_Click()
 
Me.Undo
DoCmd.Close
 
End Sub
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
    If MsgBox("Sauvegarder l'enregistrement ?", vbExclamation + vbYesNo, "CONFIRMATION") = vbNo Then
      Me.Undo
      Cancel = False
    End If
 
End Sub

**tee_grandbois** · 22/08/2017, 15h23

Bonjour,
ce n'est pas le code que je t'ai fourni ...

**Itriel** · 22/08/2017, 15h32

Ah oui oups pardon...

J'ai pris littéralement ce que tu m'avais donné, sans modifications (ou alors j'en ai vraiment pas vu l'utilité)

**tee_grandbois** · 22/08/2017, 15h50

J'ai pris littéralement ce que tu m'avais donné, sans modifications (ou alors j'en ai vraiment pas vu l'utilité)

il est sensé remplacer le code du bouton Commande160 mais il faut enlever la première instruction :

Code :

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

Private Sub btClear_Click()

**Itriel** · 23/08/2017, 09h51

Hello,

Alors oui j'avais juste remplacer l'instruction avec mon bouton en effet, donc mon code est :

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
Private Sub Commande160_Click()
 
Dim Ctrl As Control
Dim i As Integer
 
For Each Ctrl In Me.Controls
Debug.Print Ctrl.Name & " - " & TypeName(Ctrl)  ' Espion 006
' Vidage des zones de Texte
     If TypeOf Ctrl Is TextBox Then
           Ctrl.Value = ""
     End If
' Vidage des zones de listes et listes déroulantes
     If (TypeOf Ctrl Is ComboBox) Or (TypeOf Ctrl Is ListBox) Then
        Debug.Print "*** traité ***: " & Ctrl.Name & "-" & TypeName(Ctrl)    ' Espion 007
        If Ctrl.RowSourceType = "Value List" Then
            If Ctrl.ListCount > 0 Then
                For i = Ctrl.ListCount - 1 To 0 Step -1
                    Ctrl.RemoveItem Index:=i
                Next i
            End If
        ElseIf Ctrl.RowSourceType = "Table/query" Or Ctrl.RowSourceType = "Field List" Then
            Ctrl.RowSource = ""
        End If
 
     End If
 
Next Ctrl
 
End Sub

**tee_grandbois** · 23/08/2017, 14h42

Bonjour,

EDIT : alors le pas à pas m'a donné une erreur sur le
Me

... et quel est le message d'erreur à l'instruction 6 ?

Vider contenu des listbox déroulantes

VBA Access

Discussions similaires

Partager

Partager