Userform pour selectionner des valeurs de variable

Bonjour, je souhaiterai pouvoir offrir à l'utilisateur le choix parmis plusieurs type de parois (béton, brique,etc..) qu'il selectionnerai et en fonction de sa selection et l'epaisseur qu'il en donnera , je renverrai un calcul derriere pour determiner, sans l'afficher à l'utilisateur, la fréquence critique de la paroi que j'utiliserai dans la suite de mon programme. pour ce faire j'ai déja répertorié dans une feuille les caractéritiques de plusieurs matériaux (masse volumique, coefficient de poisson, etc...) dont j'ai besoin pour calculer cette fréquence critique. en utilisant une interface userform ce serait génial mais comment faire? mMrci pour vos réponse

Bonjour,

Pourquoi ne pas mettre une liste déroulante répertoriant les différents types de parois, avec une zone de texte à côté pour l'épaisseur?

Avec ça je mettrais un bouton appelé "Terminer" par exemple, qui permettrait, quand on clique dessus, de lancer tous les calculs, et afficher le résultat sur une cellule précise du classeur Excel.

Cordialement.

j'ai créé la liste déroulante comme suit:

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() ListBox1.Clear ListBox1.AddItem "béton" ListBox1.AddItem "brique pleine" ListBox1.AddItem "bois" ListBox1.AddItem "brique creuse" End Sub

---

mais suivant le type de paroi selectionnée je ne sais pas comment lancer le bon calcul en selectionnant les valeurs des paramètres(feuille des paramètres des differentes parois) correpondant à la paroi selectionnée.
je suis débutant en VBA et je dois reconnaitre que j'ai vraiment du mal, je suis certain que c'est pas difficile mais pourant...

Tout d'abord ce que je te conseille pour ta liste déroulante, c'est de nommer une plage de cellule dans ton classeur Excel "Type_Paroi" par exemple et ensuite aller dans VBA sous Initialize de ton UF et entrer ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Initialize()   Dim cellule As Range   For Each cellule In Range("Type_Paroi")   ListBox1.AddItem (cellule.Value)   Next   End Sub

---

Ça te permettra d'alimenter ta liste directement sur Excel, mais prend une plage de cellules beaucoup plus grande que nécessaire (on sait jamais).

Ensuite pour le calcul, crée un bouton sur ton UF, double clic dessus, et là inscrit ton calcul, qui sera effectué au clic.

Par exemple,

Code:

---

1 2 3 4 5

If ListBox1.text = "béton" then   CDbl(Epaisseur.Value) * ThisWorkbook.Worksheets("Feuille dans laquelle se trouve une valeur dont tu as besoin pour ton calcul").Range("C20").Value   End If

---

j'ai fait comme ça mais ça affiche un message d'erreur:Erreur définie par l'application ou par l'objet

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub ComboBox1_Change() ComboBox1.AddItem "Béton" ComboBox1.AddItem "Brique" Dim cellule As Range For Each cellule In Worksheets("Feuil2").Range("matériaux") ComboBox1.AddItem (cellule.Value) Next End Sub Private Sub CommandButton1_Click() If ComboBox1.Text = "béton" Then CDbl(Epaisseur.Value) * ThisWorkbook.Worksheets("Feuil2").Range("B2").Value End If End Sub

---

j'ai fait comme ça mais il y a une erreur de syntaxe sur la ligne souligné en gras

Code:

---

1 2 3 4 5 6 7

Private Sub ComboBox1_Click() If ComboBox1.Text = "béton" Then CDbl (epaisseur.Value) * ThisWorkbook.Worksheets("Feuil1").Range("B2").Value End If End Sub

---

Ton dernier message, il ne faut pas le mettre dans

Code:

---

Private Sub ComboBox1_Click()

---

Mais dans

Code:

---

Private Sub CommandButton1_Click()

---

Enfin ça dépend du nom que tu as donné à ton bouton.

De plus,

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click()   If ComboBox1.Text = "béton" Then   CDbl (epaisseur.Value) * ThisWorkbook.Worksheets("Feuil1").Range("B2").Value End If End Sub

---

"epaisseur" doit être le nom que tu as donné à la zone de texte pour entrer l'épaisseur, il faut vérifier si l'orthographe est exactement la même, attention aux majuscules, la casse est prise en compte. Idem pour "béton"

Bonjour, voici le code que je tappe dans userform quand je l'execute vba me dit qu'il ya une erreur de syntaxe sur la partie soulignée du code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub ComboBox1_Change() ComboBox1.AddItem "Béton" ComboBox1.AddItem "Brique" Dim cellule As Range For Each cellule In Range("feuil2!A2:A3") ComboBox1.AddItem (cellule.Value) Next End Sub Private Sub CommandButton2_Click() If ComboBox1.Text = "béton" Then CDbl (epaisseur.Value) * ThisWorkbook.Worksheets("Feuil1").Range("B2").Value End If End Sub

---

j'ai aussi créé une zone de texte sur userform dans laquelle j'ai écris epaisseur.

Attention, quand tu écris "epaisseur", ce n'est pas ce qui écrit dans la zone de texte qui importe, c'est le nom de la zone de texte, deux choses différentes.

Dans la fenêtre VBE, tu dois avoir à gauche une fenêtre "propriétés", si ce n'est pas le cas, appuis sur la touche F4 pour la faire apparaitre. Ensuite sélectionne ta zone de texte, et regarde dans la fenêtre "propriétés". Il y a deux propriétés distinctes: "Text" et "(name)". Le vrai nom de ta zone de texte se trouve dans la propriété "(name)", prend ce qui est écrit dans cette case et mets-le à la place de "epaisseur".

En général, quand on crée une zone de texte, le nom de base est "TextBox1" donc dans ta ligne soulignée, essayes de remplacer CDbl (epaisseur.Value) par CDbl (TextBox1.Value).

j'ai donc remplacé "epaisseur" dans ma zone de texte par TextBox1 et CDbl(epaisseur.value) par CDbl(TextBox1.value) mais ça donne toujours le meme message d'erreur...

peux-tu déposer ton fichier en pièce jointe stp?

voilà mon fichier complet

dans ma procédure module 1 j'aimerai aussi que Ms soit calculé automatiquement car Ms=epaisseur*masse volumique de la paroi considéré (2300 kg/m^3 si béton voir feuille2) et par la même occasion la fréquence critique aussi puisque fc est une fonction de Ms et de la masse volumique et du coefficient de poisson. Merci pour le coup de main

Sur la feuille 3 j'ai créé un bouton qui ouvre un userform que j'ai également créé appelé Calcul.
dans VBA, quand tu double clic sur le bouton "calculer" tu peux choisir les cellules que tu veux pour ton calcul. En l'état, ça fonctionne, le résultat doit s'afficher dans le cellule J28 de la feuille 3.

A adapter.

Merci! :ccool: