Bonjour,
 
Je vous explique mon petit soucis :
 
J'ai une liste déroulante et je voudrai que en fonction d'une certaine valeur de cette liste, ça efface des valeurs se trouvant dans des zones de texte et dans une liste déroulante de mon formulaire.
 
Merci de votre aide.
Cordialement Bubut

Personnellement je ne vois pas quel est ton problème.
Tu veux vider des zones d'un formulaire lors d'un événement survenu sur ta liste et en fonction de la valeur de la-dite liste... ben y qu'à, non ?
 
Détaille ce qui te bloque stp.

En faite j'ai un formulaire ou se trouve plusieurs listes déroulantes(1, 2, 3, 4) toutes en fonctions les unes des autres. J'ai aussi un sous formulaire en mode Feruille de données. Dans ce sous formulaire une liste déroulante (5) et 4 zones de textes en fonctions de cette liste déroulante (5).
La liste déroulante (5) du sous formulaire est en fonction d'une liste déroulante (1) du formulaire.
 
J'espère que jusqu'à là tu me suis.
 
Par exemple :
Lorsque je choisie la valeur "430-1" de la liste déroulante (1) mon sous formulaire devient visible, je remplie le reste du formulaire et du sous formulaire, c'est OK.
Mais si je fais tout ça et que en faite je me dis que je ne voulais pas de cette valeur de la liste déroulante (1), je change la valeur de liste déroulante (1), alors le sous formulaire redevient invisible (mais toujours avec les valeurs remplis précédement).
 
Donc ce que je souhaiterai :
Sur changement de la liste déroulante (1), lorsque l'on passe du sous formulaire visible à invisble, effacer les valeurs remplis précédemment.
 
Et donc je n'arrive pas à progammer l'effacement des valeurs du sous formulaire.
 
Si tu n'a pas tout compris j'essayerai de faire mieux

Il ne suffit pas de mettre "" dans tes zones de texte ?  
Du genre : ZoneTexte.Text = ""
 
Pour la liste déroulante il n'y pas une méthode .Clear, soit directement sur la liste, soit sur un objet listitems ?

Voila ce que j'ai fais pour la liste déroulante (1) sur changement :

Il ne me trouve pas d'erreur mais il ne me fait pas ce que j'attendai.
 
On m'avai conseillé de le faire sur AfterUpdate (Après Mise A Jour) :

Mais il me trouve une faute à la ligne 5.
 
Donc voilà.
 
Si tu as une petite idée.
 
Merci
 
Cordialement,
Bubut

Sur ton 1er code, le fait qu'il ne fasse rien, n'est pas anormal.
Tu passe dans le "Select" si
   Sous_Ensemble.Text <> "430-1"
et dans ce cas tu fais un Select avec comme possibilité : 430-1
 
En clair ....
Tu dis si c'est différent de 430-1 alors je fais un select sur 430-1 ....
 
Il me semble qu'il y ait un binz où alors j'ai loupé quelque chose ...

Bonjour Paul Hood,
 
Et tu peux me proposer quelque chose?
 
Pour toi c'est à ce niveau là que ça ne va pas :

 
Ce serait plus tot :

 
Tu n'as pas un autre avis      
 
Merci

Et puis je suis sur que le chemin que j'utilise pour aller aux zones de texte n'est pas bon; Mais je n'arrive pas à trouver le bon programme.
 
Ci quelquun peut m'aider
 
Merci

ton "sous_ensemble" c'est une textbox ? un label ?

Mon sous ensemble c'est une liste déroulante de mon formulaire

pkoi tu passes pas par un .value ?

Je passe par un .Value

Mais déja je pense que le chemin pour aller à mon sous formulaire n'est pas bon.

normalement ton bout de code tu l'as mis dans ta userform, donc le Me c'est ta user form, non ?  

Si tu veux rééinitialiser la liste de ta listbox tu peux utiliser
listbox.clear. Ca permet de supprimer tous les éléments de ta liste.
 
Pour ton "if" et "select case" le problème c'est pas le code en lui même c'est les tests que tu veux faire.
Sans parler de code :
Si ta valeur est égale à "430-1" tu veux faire quoi ?
Si ta valeur est différente de "430-1" tu veux faire quoi ?

c'est vrai que ton select case dans ta boucle if est un peu useless...

si la valeur est à "430-1" on laisse comme c'est.
si la valeur est différent à "430-1" je supprime la valeur des zones de texte

Alors dans ton 1er code le select case .... ne sert à rien.
If Sous_Ensemble.Text = "430-1" Then        
  Me.R_SF_Module.Visible = True    
Else        
  Me.R_SF_Module.Visible = False                            
  Me.R_SF_Module.Form.Non_Module.Value = ""                
  Me.R_SF_Module.Form.Descriptif_Module.Value = ""                
  Me.R_SF_Module.Form.Commentaire_Module.Value = ""                
  Me.R_SF_Module.Form.Prix_Unitaire_Module.Value = ""            
end if

Ben je teste je te dis ça de suite.
 
merci

Ouai c'est cool c'est ça.
 
J'te remercie Paul Hood
 
A+
 
Cordialement, Bubut

Bonjour,
 
Je pensai en avoir fini avec cette question là, mais en faite non.
 
Donc mon problème est que ce que je souhaite supprimé sont une zone de liste déroulante et des zones de textes se trouvant dans un sous formulaire en mode Feuille de donnée.
 
Et donc ce programme :

Il me permet que d'effacer sur la dernière ligne qui a été écrite alors que moi se serai tout le tableau du sous formulaire que je souhaiterai effacer (et non que la dernière ligne).
 
Merci de votre aide
 
Cordialement,  
Bubut

un .clear pour effacer toutes les valeurs d'un listbox.
attention ligne 7, c'est false et non pas fale

Salut jpcheck,
 
merci d'avoir répondu aussi vite. Donc pour le .clear ça ne fonctionne pas, j'avais déja essayé et je viens de réessyé mais nada.

tu essaies avec quelle ligne stp ? voir au moins si on parle de la même chose ou non =)

Bon ça se peut surement que ce soit faut car je suis plutot du genre mauvais en programmation mais j'essaye de m'améliorer.

        Forms.F_Devis.F_Module.Form.Nom_Module.Clear suffira (vire le .value)
       

Voila ce qu'il me met, il n'accepte pas le .clear

ton Forms.trucmachinchose, me parait un peu trop à rallonge, tes listbox sont situées sur quel form stp ?  

C'est surtout que la méthode .Clear ne s'applique qu'à des listbox (et équivalent) et je doute que Nom_Module en soit une.
Dans mes premiers messages j'avais fais la distinction entre TextBox et ListBox et je me demande si ça n'est pas passé à la trappe dans l'esprit de notre hôte bubut89

Bonjour tegu,
 
juste pour dire que Nom_Module est une zone de liste déroulante    et que les autres sont des zones de textes. Et donc avec la méthode .Clear il me trouve une erreur.

Ok. Quand tu fais la saisie de la méthode .Clear, est-ce que l'intellisense se déclenche et propose bien cette méthode dans la liste contextuelle ?

Sinon les zones relatives à Descriptif, Commentaire et Prix_Unitaire sont des texbox ou des listes déroulantes aussi ?

edit: si tu as une collection, genre listitems, vérifie qu'elle ne contiendrait pas la méthode .Clear, comme je l'ai indiqué au début

Slt tegu,
 
Lorsque je fais la saisie de la méthode .Clear, je n'ai aucune proposition dans le menu contextuelle.  
 
Je vois où si j'ai une collection du genre listitems? et ça m'aiderai à quoi?

Bonjour,
 
Pour réinitialiser tes valeurs :
listbox1.clear
combobox1.clear
textbox1.value = ""
 
Si tu saisie une valeur dans la combobox, sans faire de additem , tu peux réinitialiser avec combobox1.text=""

J'ai pas tout compris

C'est pas ca ce que tu veux que je fasse ??
 
Désolé mais moi et la programmation... pourtant je fais ce que je peux.
 
Merci de m'aider

Et ca ne marche pas ?

non non ça ne fonctionne pas, il me trouve une erreur dès la ligne 8.

Quel est le code que tu utilises pour mettre les valeurs dans ta liste Nom_Module ?

Je suis passé par l'interface graphique, je n'ai pas utilisé de code.