Vider les textbox ComboBox

Version imprimable

25/08/2018, 16h26
lucasofeu

1 pièce(s) jointe(s)

Vider les textbox ComboBox

Bonjour,

Je crée un formulaire mais je trouve certains soucis...

En effet, j’ai encore quelques obstacles que j’ai essayé d’appliquer sur les commandes, mets j’ai tjrs de débogage.

Ci-joint le fichier

1. Je voudrais dans mon fichier excel (feuil « Model »), lorsque je click sur « GO » j’ouvre le formulaire et que automatiquement les cellules (D17 :G20) et (G11 :H13) soient vidés. J’ai bien ma commande pour ouvrir le formulaire avec le bouton « GO », mais avec différents essaies je n’ai pas réussi effacer ces cellules de la feuil « Model »

2. Dans mon formulaire, j’ai ajouté un bouton « REFRESH ». Avec ce bouton, j’ai reussi effacé les cellules (D17 :G20) et (G11 :H13) de la feuil « Model ». Mais je voudrais aussi vider les combobox (1 et 2), ainsi que le TextBox (6,7,8 et 9). Mais avec les commandes que j’ai essayé de faire, ça ne marche pas…

3. Je ne sais pas si c’est possible mais, pourrais-je faire apparaître les commandes suivantes qu’à partir du moment que j’ai rempli les combobox1 et Combobox2 (lié à la textBox18).
-Labels (4 à 12)
-TextBox (2 à 17)
-CommandButton (3,4 et 5)

Je vous remercie déjà de votre aide !

LucasPièce jointe 406462
25/08/2018, 16h47
Theze
Bonjour,

Tu dis :

Citation:

j’ouvre le formulaire et que automatiquement les cellules (D17 :G20) et (G11 :H13) soient vidés J’ai bien ma commande pour ouvrir le formulaire avec le bouton « GO », mais avec différents essaies je n’ai pas réussi effacer ces cellules de la feuil « Model »

et :

Citation:

Dans mon formulaire, j’ai ajouté un bouton « REFRESH ». Avec ce bouton, j’ai reussi effacé les cellules (D17 :G20) et (G11 :H13) de la feuil « Model »

ce n'est pas un peu contradictoire ça ?

Citation:

Mais je voudrais aussi vider les combobox (1 et 2)

Tu utilises déjà la ligne de code qui le fait :
Code:

1 2 ComboBox1.Clear
25/08/2018, 17h02
lucasofeu
Citation:
Envoyé par Theze

Bonjour,

Tu dis :

et :

ce n'est pas un peu contradictoire ça ?
En faite pour le bouton GO (de ma feuille Excel), je voudrais deux actions :
1. Ouvrir le formulaire
2. Effacer les cellules de la feuille Excel (décrites ci-dessous)
=> quand je click sur GO, j'ouvre le formulaire (1), cepandant les cellules ne se vident pas (2).

Dans le formulaire j'ai également un bouton que j'appelle REFRESH, afin de mettre tout à zero :
1. Effacer les cellules de la feuille Excel (décrites ci-dessous)
2. Vider des textbox et ComboBox.
=> Dans ce cas, l'option 1 marche (= les cellules de la feuille Excel sont effacées), cependant le textbox et les combobox du formulaire ne sont pas mis à zero.

Tu utilises déjà la ligne de code qui le fait :

Code:

1 2 ComboBox1.Clear

Oui, mais cela ne fonctionne pas, :calim2:

Merci ;)
Lucas

Bon, pour le vidage des Ranges à l'ouverture de la Form :

Code:

1
2
3
4
5
6
7
8
9
 
Private Sub UserForm_Initialize()
 
    'ComboBox1.Clear <--- totalement inutile !
    ComboBox1.List = Application.Transpose(Range("MFA"))
    'ComboBox2.Clear <--- totalement inutile car au lancement de la Form, ils sont vides !
    Sheets("Model").Range("D17:G20", "G11:H13").ClearContents
 
End Sub

et le vidage des contrôles sur le bouton Refresh :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub CommandButton6_Click()
 
    Sheets("Model").Range("D17:G20", "G11:H13").ClearContents
 
    ComboBox1.Clear
    ComboBox2.Clear
 
    TextBox6.Text = ""
    TextBox7.Text = ""
    TextBox8.Text = ""
    TextBox9.Text = ""
 
'chercher une commande pour effacer les combocox
End Sub

Citation:
Envoyé par Theze
Bon, pour le vidage des Ranges à l'ouverture de la Form :
Code:

1 2 3 4 5 6 7 8 9 Private Sub UserForm_Initialize() 'ComboBox1.Clear <--- totalement inutile ! ComboBox1.List = Application.Transpose(Range("MFA")) 'ComboBox2.Clear <--- totalement inutile car au lancement de la Form, ils sont vides ! Sheets("Model").Range("D17:G20", "G11:H13").ClearContents End Sub
Effectivement, Merci !!!

et le vidage des contrôles sur le bouton Refresh :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub CommandButton6_Click() Sheets("Model").Range("D17:G20", "G11:H13").ClearContents ComboBox1.Clear ComboBox2.Clear TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox9.Text = "" 'chercher une commande pour effacer les combocox End Sub
En effet, j'avais essayé ce codage, cependant j'ai le mmême message d'erreur :
Erreur d'éxecution '1004'
Impossible de lire la propriété Vlookup de la classe WorkSheetFunction

Ensuite il m'envoie à cette partie de mon codage qui va chercher la valeur d'une cellule en fonction de ma textBox18.

Private Sub TextBox18_Change()
Dim myRange As Range
Set myRange = Worksheets("variablesX").Range("A8:I52")
TextBox2.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 2, False)
TextBox10.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 3, False)
TextBox3.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 4, False)
TextBox11.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 5, False)
TextBox4.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 6, False)
TextBox12.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 7, False)
TextBox5.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 8, False)
TextBox13.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 9, False)

Dim myRange2 As Range
Set myRange2 = Worksheets("Ranges_2").Range("A2:I46")
TextBox14.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange2, 3, False)
TextBox15.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange2, 5, False)
TextBox16.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange2, 7, False)
TextBox17.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange2, 9, False)

End Sub

J'ai essayé d'autres commandes, mais ça devient complexe :zoubi::zoubi:

Merci pour la rapidité des réponses !!!
Lucas

Bonjour,

Evites si possible de répondre en utilisant les balises Quote, elles servent juste pour reprendre les citations des intervenants afin de répondre précisément ou pour mettre en exergue un texte précis car c'est assez pénible à lire !
Voic un exemple d'utilisation des balises Quote :

Citation:

En effet, j'avais essayé ce codage, cependant j'ai le mmême message d'erreur :
Erreur d'éxecution '1004'
Impossible de lire la propriété Vlookup de la classe WorkSheetFunction

C'est normal puisque tu vides les deux ComboBox et que le TextBox18 est une concaténation de leurs valeurs donc, la valeur dans TextBox18 change et par là, la procédure événementielle "TextBox18_Change()" est exécutée mais comme il est vide, la fonction ne trouve rien à retourner. Il te faut gérer ce cas avec un bloc If Then :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Private Sub TextBox18_Change() Dim myRange As Range If TextBox18.Text <> "" Then Set myRange = Worksheets("variablesX").Range("A8:I52") TextBox2.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 2, False) TextBox10.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 3, False) TextBox3.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 4, False) TextBox11.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 5, False) TextBox4.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 6, False) TextBox12.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 7, False) TextBox5.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 8, False) TextBox13.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange, 9, False) Dim myRange2 As Range Set myRange2 = Worksheets("Ranges_2").Range("A2:I46") TextBox14.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange2, 3, False) TextBox15.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange2, 5, False) TextBox16.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange2, 7, False) TextBox17.Value = Application.WorksheetFunction.VLookup(TextBox18.Value, myRange2, 9, False) End If End Sub

26/08/2018, 12h05
lucasofeu

BOnjour Theze,

Merci pour les détailles des balizes :lol:

Effectivement ça marche très bien avec votre codage :
...
If TextBox18.Text <> "" Then
...
End If

Cependnant, mes listes déroulantes (Combobox1 et Combobox2) ne sont plus disponibles pour une nouvelle choix.
Je suis presque :D

Merci beaucoup pour l'aide !
27/08/2018, 07h18
Theze
Bonjour,

avec :
Code:

1 2 3 ComboBox1.Clear ComboBox2.Clear
elles ont beaucoup de peine à être disponible :D
pourquoi les vider ?