Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 31/05/2011, 16h11   #1
Invité de passage
 
Étudiant
Inscription : mai 2011
Messages : 3
Détails du profil
Informations personnelles :
Localisation : France

Informations professionnelles :
Activité : Étudiant

Informations forums :
Inscription : mai 2011
Messages : 3
Points : 0
Points : 0
Par défaut Effacer les valeurs sélectionnées dans une ComboBox Multi-Valuée

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 :
1
2
3
4
5
If IsNull(cmbBox.Value) Then
    MsgBox "OK"
Else
    cmbBox.Value = Null
End If
Cdt.
garbi47 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 02/06/2011, 21h09   #2
Modérateur
 
Homme René MAROT
Inscription : octobre 2005
Messages : 5 466
Détails du profil
Informations personnelles :
Nom : Homme René MAROT
Localisation : Canada

Informations forums :
Inscription : octobre 2005
Messages : 5 466
Points : 7 544
Points : 7 544
Essaye :

Code :
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+
__________________
Vous voulez une réponse rapide et efficace à vos questions téchniques ? Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
marot_r est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/06/2011, 10h19   #3
Invité de passage
 
Étudiant
Inscription : mai 2011
Messages : 3
Détails du profil
Informations personnelles :
Localisation : France

Informations professionnelles :
Activité : Étudiant

Informations forums :
Inscription : mai 2011
Messages : 3
Points : 0
Points : 0
Citation:
Envoyé par marot_r Voir le message
Essaye :

Code :
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 :
1
2
3
For Each var In cmbBox.ItemsSelected
    cmbBox.Selected(var) = False
Next var
Toujours besoin d'aide, merci!
garbi47 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/06/2011, 10h44   #4
Candidat au titre de Membre du Club
 
Homme
Étudiant
Inscription : avril 2011
Messages : 24
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Seine Maritime (Haute Normandie)

Informations professionnelles :
Activité : Étudiant
Secteur : Industrie

Informations forums :
Inscription : avril 2011
Messages : 24
Points : 11
Points : 11
si tu as donné une synthaxe particulère a l'intitulé de tes box tu peux essayer ca.

Code :
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
djas_air est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/06/2011, 11h04   #5
Invité de passage
 
Étudiant
Inscription : mai 2011
Messages : 3
Détails du profil
Informations personnelles :
Localisation : France

Informations professionnelles :
Activité : Étudiant

Informations forums :
Inscription : mai 2011
Messages : 3
Points : 0
Points : 0
Citation:
Envoyé par djas_air Voir le message
si tu as donné une synthaxe particulère a l'intitulé de tes box tu peux essayer ca.

Code :
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!
garbi47 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/06/2011, 11h10   #6
Candidat au titre de Membre du Club
 
Homme
Étudiant
Inscription : avril 2011
Messages : 24
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Seine Maritime (Haute Normandie)

Informations professionnelles :
Activité : Étudiant
Secteur : Industrie

Informations forums :
Inscription : avril 2011
Messages : 24
Points : 11
Points : 11
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.
djas_air est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 17h45.


 
 
 
 
Partenaires

Hébergement Web