Discussion :

[garbi47]

Bonjour,

Désolé si je suis maladroit, mais c'est mon premier post.

J'ai un formulaire avec une ComboBox à choix multiple, et je voudrais réinitialiser (tout déselectionner) la combobox.

Voici le code que j'ai essayé, mais ça ne marche pas (j'ai essayé plein de choses, mais je ne vous mets pas tout) :

Code :

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

1
2
3
4
5
If IsNull(cmbBox.Value) Then
    MsgBox "OK"
Else
    cmbBox.Value = Null
End If

Cdt.

[marot_r]

Essaye :

Code :

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

1
2
3
dim i as long:for i=0 to me.TaListe.ListCount
   me.TaListe.selected(i)=false
next i

Cela devrait répondre à ton besoin.

A+

[garbi47]

Essaye :

Code :

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

1
2
3
dim i as long:for i=0 to me.TaListe.ListCount
   me.TaListe.selected(i)=false
next i

Cela devrait répondre à ton besoin.

A+

Je viens d'essayer, et ça ne marche pas, mais merci de ton aide.

J'ai aussi essayer ça, qui ne marche pas non-plus:

Code :

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

1
2
3
For Each var In cmbBox.ItemsSelected
    cmbBox.Selected(var) = False
Next var

Toujours besoin d'aide, merci!

[djas_air]

si tu as donné une synthaxe particulère a l'intitulé de tes box tu peux essayer ca.

Code :

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

1
2
3
4
5
6
7
8
9
Private sub reinitialisation()
Dim ctl As Control
For Each ctl in Me.Controls
Select Case Left(ctl.Name, 3)
Case "box"
ctl = 0
End Select
Next ctl
End Sub

après tu appelles la fonction. ^^

c'est la 1ere fois que j'essaye d'aider quelqu'un ><
possible que ma réponse n'aide pas du tout

[garbi47]

si tu as donné une synthaxe particulère a l'intitulé de tes box tu peux essayer ca.

Code :

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

1
2
3
4
5
6
7
8
9
Private sub reinitialisation()
Dim ctl As Control
For Each ctl in Me.Controls
Select Case Left(ctl.Name, 3)
Case "box"
ctl = 0
End Select
Next ctl
End Sub

après tu appelles la fonction. ^^

c'est la 1ere fois que j'essaye d'aider quelqu'un ><
possible que ma réponse n'aide pas du tout

Il me semble que tu n'es pas compris mon problème, mais merci d'avoir essayer!


Toujours besoin d'aide, merci!

[djas_air]

ah oui effectivement, j'avais pas compris.
Désolé.
mais maintenant oui, sauf que j'ai pas d'autres fausses bonnes idées à partagé pour l'instant.