Vider les textbox ComboBox

Bonjour,

Voici une nouvelle version du fichier.
https://www.cjoint.com/c/HHzhURRdmNh

MErci d'avance !!!
Lucas

Rebonjour,

Merci, j'avais essayé aussi ces commandes :

pour le CommandButton1 (dans ma feuille excel) :

'pour ouvrir le formulaire, et ça marche bien

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
ActiveSheet.ShowDataForm
Application.DisplayAlerts = True

Next

'pour effacer les cellules de la feuil excel

Sheets("Model").Range("D17:G20").ClearContents
Sheets("Model").Range("G11:H13").ClearContents

'mais cette commande ne fonctionne pas, et j'ai déjà essayé d'autres commandes et rien

End Sub


Ensuite, quand le formulaire est ouvert, j'ai la CommandButton6

Private Sub CommandButton6_Click()

'pour effacer les cellules de la feuil excel, la même action que pour le CommandButton1 qui est présent dans la feuil Excel et non dans le formulaire. Cette commande fonctionne bien, les cellules se vident dès que je click la CommandButton6.

Sheets("Model").Range("D17:G20").ClearContents
Sheets("Model").Range("G11:H13").ClearContents

'Je voulais en plus avec la CommandButton6, vider des combobox et textBox, ci-dessous mon code. CEpendant, cela ne fonctionne pas.

ComboBox1.Clear
ComboBox2.Clear
TextBox1.Value = ""

End Sub


Mercid de votre disponibilité !
Cdlt
Lucas

Bonjour,

Pour poster ton code, voir cette procédure.
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

il faut choisir la 1ére option basic

Voilà

@+ Le Pivert

Bonjour cs_LePivert,
Vous avez pu modifiez le fichier de Ofeu, alors que moi, pas moyen voir image au dessus.
Pouvez-vous mettre a dispo le fichier que vous avez modifie?
Je voudrai bien savoir pourquoi ca deraille chez avec le fichier d'origine.
Sur un MAC, pas de probleme.....

Bonjour Pivert,

En effet avec les autres commange que j'ai essayé ainsi que celle que vous m'avez proposé, j'obtiens la même msg 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é de checher d'autre solution et poser la question sur d'autres forums, mais ça devient complexe ;-)


Merci pour la disponibilité !

Lucas

Bonjour f894009,

Voici le fichier

https://www.cjoint.com/c/HHzpCjKEQUQ

Ofeu,

Cela fonctionne très bien aucun message d'erreur chez moi


Erreur d'éxecution '1004'
Impossible de lire la propriété Vlookup de la classe WorkSheetFunction


cela n'a rien a voir avec la demande initiale d'effacement!

essayer d'utiliser les balises comme je l'ai indiqué, les codes sont beaucoup plus lisibles!



@+

Re,

Quand vous avez l'erreur, clic sur debugage et passez le curseur souris TextBox18 pour voir son contenu

J’ai essayé de chercher l’erreur.
Sur ma
Private Sub TextBox18_Change (j’ai changé “Change” pour “AfterUpdate”) et ça marche le bouton REFRESH, par contre :

J’ai mes textBox (2 à 17) qui disparaissent.
Il faut peut être que je retravaille sur mes fonctions .visible !

De plus, quand je click REFRESH, mes listes déroulantes n’affichent plus les données.

J’essaie de trouver une solution !!!

Merci
Cdlt
Lucas