Vider textbox et combobox
Gil369
Messages postés
120
Statut
Membre
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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
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
A voir également:
- Vider textbox et combobox
- Vider le cache d'une application - Guide
- Vider cache tv lg ✓ - Forum TNT / Satellite / Réception
- Comment vider le stockage autre - Forum Mobile
- Comment vider une clé usb - Guide
- Vider memoire iphone - Guide
51 réponses
Salut polux31
merci de ton aide, mais helas la fonction
Module1.InitComboBox ne vide tjs pas les combobox
merci de ton aide, mais helas la fonction
Module1.InitComboBox ne vide tjs pas les combobox
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Salut,
Pourquoi vider les combobox ??? il faut juste les réinitialiser. Sinon, les combobox sont vides et on ne plus rien sélectionner ...
Pourquoi vider les combobox ??? il faut juste les réinitialiser. Sinon, les combobox sont vides et on ne plus rien sélectionner ...
re , EXACT je me suis mal exprimé, je veux reinitialiser mon formulaire tout en le gardant actif( apres validation ce qui envoie les donnees saisies dans les txtbox et combobox vers ma feuille excel) afin d effectuer d autres saisies
re, il plante sur : Module1.InitComboBox
message : "erreur de compilation, membre de methode ou de donnees introuvable "
plein écran
Private Sub UserForm_Activate()
With Me
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
Module1.InitComboBox
End Sub
faut il lui nommer les combobox ?
Merci
message : "erreur de compilation, membre de methode ou de donnees introuvable "
plein écran
Private Sub UserForm_Activate()
With Me
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
Module1.InitComboBox
End Sub
faut il lui nommer les combobox ?
Merci
je ne comprends pas ... ça fonctionne chez moi ... as-tu bien copier le contenu de module1 du fichier que je t'ai retourné ???
re, a l appel du formulaire il bug sur .ComboBox_Editeur.Clear dans le module1 ...
Public Sub InitComboBox()
Dim ws As Worksheet
Dim i As Long
With FRM_Formulaire_de_saisies
'// combo Editeurs
'//
Set ws = Worksheets("Licences")
i = 4
.ComboBox_Editeur.Clear
While ws.Range("W" & i).Value <> ""
.ComboBox_Editeur.AddItem ws.Range("W" & i).Value
i = i + 1
Wend
et j avoue que la... je ne comprend pas tout ce que tu ecris
mais merci
Public Sub InitComboBox()
Dim ws As Worksheet
Dim i As Long
With FRM_Formulaire_de_saisies
'// combo Editeurs
'//
Set ws = Worksheets("Licences")
i = 4
.ComboBox_Editeur.Clear
While ws.Range("W" & i).Value <> ""
.ComboBox_Editeur.AddItem ws.Range("W" & i).Value
i = i + 1
Wend
et j avoue que la... je ne comprend pas tout ce que tu ecris
mais merci
dans ton userform, enlèves ce qu'il y a dans RowSource ou SourceRow, je sais plus ... mais la propriété doit être vide. Je te l'ai dit ce matin dans mon mail ... c'est cette propriété qui pose problème ... tu ne peux initialisé un combobox qui fait référence à une plage de cellules comme source. D'ou ma procédure d'initialisation ... :o))
J ai enlevé tous les RowSource et maintenant c est sur : objControl du BTN_valider que ça coince
For Each objControl In Controls 'FRM_Formulaire_de_saisies.Controls
If TypeOf objControl Is TextBox Then
objControl.Text = ""
End If
Next
Module1.InitComboBox
End Sub
For Each objControl In Controls 'FRM_Formulaire_de_saisies.Controls
If TypeOf objControl Is TextBox Then
objControl.Text = ""
End If
Next
Module1.InitComboBox
End Sub
as-tu bien déclaré : dim objControl As Control ....
remet ça comme ça ... mais c'est étrange chez moi ça passe sans tout ça ...
For Each objControl In FRM_Formulaire_de_saisies.Controls
If TypeOf objControl Is msform.TextBox Then
objControl.Text = ""
End If
Next
remet ça comme ça ... mais c'est étrange chez moi ça passe sans tout ça ...
For Each objControl In FRM_Formulaire_de_saisies.Controls
If TypeOf objControl Is msform.TextBox Then
objControl.Text = ""
End If
Next
oui la declaration est faite, le code que tu viens de me donner plante, je viens de supprimer msform, et la ça fonctionne a moitie : les combobox s 'initialise mais plus les txtbox....
Private Sub BTN_Valider_Click()
Dim objControl As Contro
For Each objControl In FRM_Formulaire_de_saisies.Controls
If TypeOf objControl Is TextBox Then
objControl.Text = ""
End If
Next
Module1.InitComboBox
End Sub
Private Sub BTN_Valider_Click()
Dim objControl As Contro
For Each objControl In FRM_Formulaire_de_saisies.Controls
If TypeOf objControl Is TextBox Then
objControl.Text = ""
End If
Next
Module1.InitComboBox
End Sub
voilà ce que j'ai dans mon fichier et qui marche chez moi ...
For Each objControl In Controls
If TypeOf objControl Is msforms.TextBox Then
objControl.Text = ""
End If
Next
For Each objControl In Controls
If TypeOf objControl Is msforms.TextBox Then
objControl.Text = ""
End If
Next
