Discussion :

[panda78]

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

[YassDumb]

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.

[panda78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[YassDumb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[panda78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[panda78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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