Vider textbox et combobox

Question

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

Polux31 · Answer

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

Gil369 · Answer

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

Polux31 · Answer

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

Gil369 · Answer

re,
les textbox se vident mais pas les combo...

Polux31 · Answer

tu n'as plus de message d'erreur ?

Polux31 · Answer

enlève msform devant ComboBox .... où est cette procédure ? sur ton formulaire ?

Gil369 · Answer

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

Polux31 · Answer

envoie ton fichier sur : https://www.cjoint.com/ et poste le lien ici ...

Gil369 · Answer

c est fait, en esperant que j ai bien fais !
merci a toi

Polux31 · Answer

lol il faut que tu postes le lien ici pour que je puisse récupérer le fichier ....

Gil369 · Answer

oupsssss suis vraiment novice ici !!! je dois copier le lien dans mon post  ?

Gil369 · Answer

j espere avoir bien fais maintenant ....

Polux31 · Answer

tu n'as pas copié le lien dans le post .... :os

Gil369 · Answer

https://www.cjoint.com/?ejuTOfIhPW
c est mieux  ?
je sais .... suis le boulet du jour !!!

Polux31 · Answer

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

Gil369 · Answer

https://www.cjoint.com/?eju2cywMfF

je te remercie vraiment de ta patience ...

Polux31 · Answer

Quand ça veut pas ... ça veut pas ... le lien est vide ...

Gil369 · Answer

https://www.cjoint.com/?ejvdZa6YxT
peut etre que ....

Polux31 · Answer

ca passe pas, je t'ai envoyé un msg privé avec mon email ... envoie le fichier par mail

Gil369 · Answer

grrrrrrrrr
j ai pas ton adresse ....

Polux31 · Answer

je te l'ai envoyé en message privé regarde en haut à droit et clic sur l'enveloppe

Polux31 · Answer

je n'ai pas trouvé pourquoi ... je regarde ça demain et je te tiens au courant

bonne nuit

Gil369 · Answer

ok, merci a toi,
bonne nuit, a demain

Gil369 · Answer

Salut polux31
merci de ton aide, mais helas la fonction
Module1.InitComboBox ne vide tjs pas les combobox

Polux31 · Answer

Salut,

Pourquoi vider les combobox ??? il faut juste les réinitialiser. Sinon, les combobox sont vides et on ne plus rien sélectionner ...

Gil369 · Answer

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

Polux31 · Answer

et bien c'est ce que fait le code que je t'ai donné ...

Gil369 · Answer

ok, j essaie et te tiens au courant
merci a toi

Gil369 · Answer

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

Gil369 · Answer

en fait il surligne 
.InitComboBox

Polux31 · Answer

je ne comprends pas ... ça fonctionne chez moi ... as-tu bien copier le contenu de module1 du fichier que je t'ai retourné ???

Gil369 · Answer

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

Polux31 · Answer

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))

Gil369 · Answer

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

Polux31 · Answer

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

Gil369 · Answer

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

Polux31 · Answer

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

Gil369 · Answer

ça avance !!!!!
c 'est tout bon, il me reste a ajouter les autres combobox dans le module.
C'est dans ce module que je dois determiner les feuilles et  les plages auxquels je fais appel ?
merci bcp polux

Polux31 · Answer

Oui c'est ça

Bon courage

;o)

polux

Gil369 · Answer

merci, je clos le post des que j aurai fini ça
encore merci
bye

Gil369 · Answer

Nickel ! 
derniere ( je l espere ! ) question sur le sujet, si j entre une donnee ne figurant pas dans la colonne de reference, Additem me permet il de faire cet ajout en bout de liste ?


 '// ComboBox_Tireur
        '//
        Set ws = Worksheets("Comptes_2008")
        i = 3
        .ComboBox_Tireur.Clear
        While ws.Range("G" & i).Value <> ""
            .ComboBox_Tireur.AddItem ws.Range("G" & i).Value
            i = i + 1
        Wend

encore une fois : merci beaucoup

Polux31 · Answer

Bonjour,

Le code que je t'ai donné permet de rajouter une ligne sans avoir à retoucher le code. Par exemple, si ta liste commence à la ligne 3 et se termine à la ligne 20. La liste comporte 17 items. Si tu ajoutes un valeur sur la ligne 21. Sans toucher le code la liste comportera 18 items. Attention, il ne faut pas de ligne vide dans la feuille.
Le code ci dessus veut dire :
i est l'index de ligne. Ici la première ligne est la gne 3 donc i = 3.
Ensuite on fait : Tant que la valeur de la cellule "G & i" est différente de "" (vide), j'ajoute à la liste de la combobox la valeur de la cellule "G & i". J'ajoute 1 à i pour passer à la ligne suivante et je recommence le test ainsi de suite jusqu'à la première cellule vide de la colonne "G" qui me fait sortir de la boucle.

bon courage

;o)

Polux

Gil369 · Answer

Bonjour et merci de ton aide qui me permet d avancer dans mon projet, et merci pour tes explications qui confirment ce que j avais cru dechiffré car j essaie de comprendre ce que je fais en meme temps, ce qui n est pas evident, mais j y parviens.
Pour l ajout d item, j avais saisi la subtilite,(la liste a t elle une limite ? ) mais est ce que l inverse peut etre vrai aussi, c est a dire lorsque je saisi une valeur qui ne fais pas partie des items (dans la combobox) cette valeur peut elle s ajouter automatiquement a la liste des items ?
Merci

Polux31 · Answer

re,

Oui, on peut sauvegarder ce qui a été saisie dans la combobox. De ce fait l'item sera ajouter à la liste. Il faut mettre le code dans l'évènement click du bouton valider. Il faut récupérer la valeur saisie dans la combobox (combobox.text) dans une variable, et l'ajouter à la première cellule vide de la liste. Ca ne devrait pas te poser de problème, il y a ce qu'il faut dans le code pour t'aider. N'hésite pas à revenir ici si tu bloques.
Je ne crois qu'il y ai une limite d'items pour un combobox, si ce n'est la limite de ligne autorisée par Excel dans une feuille (plus de 65000 je crois)
;o)

polux

Gil369 · Answer

ok, noté
je m y  met apres le repas et te tiens au courant
@+

Gil369 · Answer

re,
je dois mettre le code dans le BTN_Valider ?
je pensais m orienter sur un private sub et additem, mais vu ce que tu me dis il faut que je fasse reference aux codes dans le module ?
merci

Polux31 · Answer

Le code que j'ai mis dans le module1 ne doit plus être touché. Il tient compte des ajouts. Il faut simplement mettre ce qui a été saisie à la suite des autres éléments dans la feuille excel ... Supposons que les éléments de la combobox sont dans la feuille 2, dans la colonne B de la ligne 50 à la ligne 75. L'utilisateur saisie une valeur dans la combobox, lorsqu'il valide, on fait une boucle pour chercher la dernière ligne:
i = 50   'première ligne
While Worksheets("Feuil2").Range("B" & i).Value <> ""
   i = i + 1   'la cellule n'est pas vide on passe à la suivante
Wend
' On insert la saisie dans la première ligne vide
Worksheets("Feuil2").Range("B" & i + 1).Value = ComboBox1.Text
.... Ce code se place au début dans l'évènement de BTN_Valider_Click(). Le nouvel item se trouve maintenant dans les items de la combobox ...

;o)

polux

Gil369 · Answer

re, et je met quoi comme premiere instruction et pour passer a la suivante ?

merci

Polux31 · Answer

voilà ta procédure BTN_Valider_Click modifiée :
Private Sub BTN_Valider_Click()
Dim objControl As Control
Dim i As Long
'//Il faut adapter en fonction des onglets concernés et de la combo
'//
i = 50   'première ligne
While Worksheets("Feuil2").Range("B" & i).Value <> ""
   i = i + 1   'la cellule n'est pas vide on passe à la suivante
Wend
' On insert la saisie dans la première ligne vide
Worksheets("Feuil2").Range("B" & i + 1).Value = ComboBox1.Text
'//

    'On teste la saisie de la date...
   If Not TestText(TXT_Date, "une date") Then Exit Sub

   'On teste la saisie de la pieceN...
   If Not TestText(TXT_PieceN°, "un numéro de pièce") Then Exit Sub

   'On teste la saisie de l'editeur...
   If Not TestText(ComboBox_Editeur, "un éditeur") Then Exit Sub

    'On teste la saisie de la nature de l operation



     'On teste la saisie de categorie...
   If Not TestText(ComboBox_Categorie2, "une catégorie") Then Exit Sub

    'On teste la saisie du tireur...
   If Not TestText(ComboBox_Tireur, "un tireur") Then Exit Sub

   'On teste la saisie du libéllé...
   If Not TestText(ComboBox_Libelle, "un libéllé") Then Exit Sub

   'On teste la saisie de l'opération...



   'On teste la saisie du montant...
   If Not TestText(TXT_Montant, "un montant") Then Exit Sub
   
      
    Range("Comptes_2008!B65536").End(xlUp).Offset(1, 0).Value = Me.TXT_Date.Value
    Range("Comptes_2008!C65536").End(xlUp).Offset(1, 0).Value = Me.TXT_PieceN°.Value
    Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = Me.TXT_ChequeN°.Value
    Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = Me.TXT_Prelevement.Value
    Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = Me.TXT_Virement.Value
    Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = Me.TXT_Especes.Value
    Range("Comptes_2008!E65536").End(xlUp).Offset(1, 0).Value = Me.ComboBox_Editeur.Value
    Range("Comptes_2008!F65536").End(xlUp).Offset(1, 0).Value = Me.ComboBox_Categorie2.Value
    Range("Comptes_2008!G65536").End(xlUp).Offset(1, 0).Value = Me.ComboBox_Tireur.Value
    Range("Comptes_2008!H65536").End(xlUp).Offset(1, 0).Value = Me.ComboBox_Libelle.Value
    
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

Gil369 · Answer

ok, merci t es genial !!
je dois quitter je te tiens au courant
@+

tonio93 · Answer

pour vider un ComboBox : 

Combo1.RowSource = ""


....

Vider textbox et combobox

51 réponses

Votre réponse

Discussions similaires

Newsletters