Vider textbox et combobox

Fermé
Gil369 Messages postés 120 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 7 novembre 2018 - 9 avril 2008 à 18:26
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 5 juin 2009 à 15:20
Bonjour,
novice en vba et nouvel inscrit sur le site je fais appel a vous.
J ai un formulaire avec des textbox et combobox dont le contenu est envoyé dans une feuille excel, lorsque je valide, je souhaite "vider" tous les champs et garder mon formulaire affiché pour de nouvelles saisies, avec le code ci joint je vide uniquement les textbox, merci de m orienter pour vider egalement les combobox

Dim objControl As Control

For Each objControl In FRM_Formulaire_de_saisies.Controls
If TypeOf objControl Is msforms.TextBox Then
objControl.Text = ""
End If
Next

End Sub

Merci a vous

PS je travaille avec excel 2007

51 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 197
9 avril 2008 à 18:36
bonjour,

Ajoute ça dans ta procédure :
For Each objControl In FRM_Formulaire_de_saisies.Controls
If TypeOf objControl Is msforms.ComBoBox Then
objControl.Clear
End If
Next

;o)

polux
0
Gil369 Messages postés 120 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 7 novembre 2018
9 avril 2008 à 18:54
Salut polux et merci de ta reponse rapide, j ai mis bpout a bout mais ça "plante" sur objControl.Clear


Dim objControl As Control

For Each objControl In FRM_Formulaire_de_saisies.Controls
If TypeOf objControl Is msforms.TextBox Then
objControl.Text = ""
End If
Next
For Each objControl In FRM_Formulaire_de_saisies.Controls
If TypeOf objControl Is msforms.Combobox Then
objControl.Clear
End If
Next


End Sub


je dois tout aligne ou il faut "compile" ?
Merci
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 197
9 avril 2008 à 19:12
dsl, je ne vois pas ... pour effacer un ComboBox c'est bien la propriété Clear ...

Teste ça:

Dim objControl As Control

For Each objControl In FRM_Formulaire_de_saisies.Controls
If TypeOf objControl Is msforms.TextBox Then
objControl.Text = ""
End If
If TypeOf objControl Is msforms.ComboBox Then
objControl.Clear
End If
Next


End Sub
0
Gil369 Messages postés 120 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 7 novembre 2018
9 avril 2008 à 19:20
re,
les textbox se vident mais pas les combo...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 197
9 avril 2008 à 19:49
tu n'as plus de message d'erreur ?
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 197
9 avril 2008 à 19:54
enlève msform devant ComboBox .... où est cette procédure ? sur ton formulaire ?
0
Gil369 Messages postés 120 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 7 novembre 2018
9 avril 2008 à 20:10
re, merci pour ta patience !
j ai supprimé msform ,le message d erreur se situe sur objControl.Clear
j ai mis ce code dans BTN_valider, tu veux que je te mette le code complet ?
Merci
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 197
9 avril 2008 à 20:14
envoie ton fichier sur : https://www.cjoint.com/ et poste le lien ici ...
0
Gil369 Messages postés 120 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 7 novembre 2018
9 avril 2008 à 20:22
c est fait, en esperant que j ai bien fais !
merci a toi
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 197
9 avril 2008 à 20:24
lol il faut que tu postes le lien ici pour que je puisse récupérer le fichier ....
0
Gil369 Messages postés 120 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 7 novembre 2018
9 avril 2008 à 20:27
oupsssss suis vraiment novice ici !!! je dois copier le lien dans mon post ?
0
Gil369 Messages postés 120 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 7 novembre 2018
9 avril 2008 à 20:29
j espere avoir bien fais maintenant ....
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 197
9 avril 2008 à 20:35
tu n'as pas copié le lien dans le post .... :os
0
Gil369 Messages postés 120 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 7 novembre 2018
9 avril 2008 à 20:46
https://www.cjoint.com/?ejuTOfIhPW
c est mieux ?
je sais .... suis le boulet du jour !!!
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 197
9 avril 2008 à 20:50
décidément ... c'est la version 2007 que tu as ... je ne l'ai pas ... il faut que tu le sauvegardes avec une version inférieure, j'ai Excel 2002 ... je ne peux donc pas lire ton fichier
0
Gil369 Messages postés 120 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 7 novembre 2018
9 avril 2008 à 20:54
https://www.cjoint.com/?eju2cywMfF

je te remercie vraiment de ta patience ...
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 197
9 avril 2008 à 20:56
Quand ça veut pas ... ça veut pas ... le lien est vide ...
0
Gil369 Messages postés 120 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 7 novembre 2018
9 avril 2008 à 21:04
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 197
9 avril 2008 à 21:30
ca passe pas, je t'ai envoyé un msg privé avec mon email ... envoie le fichier par mail
0
Gil369 Messages postés 120 Date d'inscription mardi 25 mars 2008 Statut Membre Dernière intervention 7 novembre 2018
9 avril 2008 à 21:39
grrrrrrrrr
j ai pas ton adresse ....
0