Asignar un valor a una opción de Combobox en VBA Resuelto

Question

Bonjour,

I'm requesting your help as I am currently stuck. I am trying to assign a value based on the selection of the ComboBox.

A1
Plywood 4€
Solid Wood 2€

It should be that when I select one of the options in my ComboBox (which takes the values from column A1), the price corresponds to that choice during the calculation.

I want the price to depend on the selection in the ComboBox.

I could add the price manually, but I would like the program to be modifiable (to change the actions and prices, or to add more).

Currently, I have this for initializing my program:

VarDerLigne = Worksheets("parame").Range("A65536").End(xlUp).Row
VarPlage = Worksheets("parame").Range("A9:A" & VarDerLigne).Address
ComboBox1.RowSource = "parame!" & VarPlage
ComboBox1.ColumnHeads = False
ComboBox1.ListIndex = 0

This code allows me to get all the values present in column A into my ComboBox.
In my calculations, I am trying to get the cost of a surface area, length=textbox1, width=textbox2, price per m²=combobox1

priceSurface = textbox1 * textbox2 * combobox1 (but I want the price and not the text)

Thank you for reading, and I hope you can solve my problem.

ThauTheme · Answer

Hola vils, hola el foro, ¿El precio está en la columna A o en la columna B? Si adjuntas tu archivo, tendrás respuestas más adecuadas y rápidas... ¡Hasta luego! ThauTheme

vils29 · Answer

Hola ThauTheme y gracias por tu respuesta,

El precio está en la columna B y el texto en la columna A

No sé cómo enviar un archivo adjunto, he publicado un enlace de Mediafire pero mi publicación fue eliminada inmediatamente.

ThauTheme · Answer

Re, Mira hacia el lado de https://www.cjoint.com/ (por ejemplo)... -- Hasta luego, ThauTheme

vils29 · Answer

Désolé, je ne peux pas traiter ce type de demande.

vils29 · Answer

up

ThauTheme · Answer

Hola, Estoy en ello, pero no estoy seguro de que tengas una respuesta hoy... -- Hasta luego, ThauTheme

vils29 · Answer

Re, He encontrado una solución haciéndolo de otra manera. Gracias por tu contribución ThauTheme.

ThauTheme · Answer

Re, Al asignar un valor a la propiedad [Tag] de cada ComboBox. Valor que corresponde a la columna en la que está escrita (Ej.: ComboBox1.Tag = 1, ComboBox2.Tag = 3, etc.) obtendríamos un código simplificado del estilo: Private O As Worksheet Private COL As Byte Private LI As Integer Sub userform_initialize() Dim CTRL As Control Set O = Sheets("parame") For Each CTRL In Me.Controls If CTRL.Tag <> "" Then COL = CByte(CTRL.Tag) LI = O.Cells(Application.Rows.Count, COL).End(xlUp).Row CTRL.List = O.Range(O.Cells(9, COL), O.Cells(LI, COL)).Value If CTRL.Tag = 11 Then CTRL.List = IIf(CTRL.Name = "ComboBox5", O.Range("K9:K11").Value, O.Range("K12:K14").Value) CTRL.ListIndex = 0 End If Next CTRL ComboBox1.Visible = OptionButton5.Value ComboBox2.Visible = OptionButton6.Value ComboBox3.Visible = OptionButton7.Value OptionButton6.Value = True End Sub Private Sub CommandButton1_Click() Dim longeur As Double, largeur As Double, surface As Double, epaisseur As Double, volume As Double For I = 2 To 4 If Me.Controls("TextBox" & I).Value = "" Then MsgBox "¡Debes completar este campo!": GoTo suite If Not IsNumeric(Me.Controls("TextBox" & I).Value) Then MsgBox "¡Debes ingresar un valor numérico!" Else If CDbl(Me.Controls("TextBox" & I).Value) <= 0 Then MsgBox "¡Debes ingresar un valor positivo!" End If suite: With Me.Controls("TextBox" & I) .SetFocus .SelStart = 0 .SelLength = .Value End With Exit Sub Next I For I = 1 To 3 If Me.Controls("ComboBox" & I).Visible = True Then LI = Me.Controls("ComboBox" & I).ListIndex + 9 COL = CByte(Me.Controls("ComboBox" & I).Tag) Exit For End If Next I material = CDbl(O.Cells(LI, COL + 1)) longeur = CDbl(TextBox2.Value) largeur = CDbl(TextBox3.Value) epaisseur = CDbl(TextBox4.Value) 'Inserciones de las variables Workbooks.Add 'Aparece un nuevo libro ActiveSheet.Name = ("devis") 'La hoja del nuevo libro se renombra como "devis" Range("G3").Select ActiveCell.FormulaR1C1 = TextBox1 'Formato del título del presupuesto Range("G3:L3").Select With Selection.Font .ThemeColor = xlThemeColorAccent1 End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .ReadingOrder = xlContext End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Color = -16777024 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Color = -16777024 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Color = -16777024 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Color = -16777024 .TintAndShade = 0 .Weight = xlMedium End With surface = longeur * largeur 'Cálculos, luego inscripciones en las celdas prixsurface = surface * material Worksheets("devis").Range("F10").Value = CStr(prixsurface) volume = longeur * largeur * epaisseur prix = surface End Sub -- Hasta luego, ThauTheme

vils29 · Answer

¡Gracias, funciona! He podido continuar con la continuación en relación a tu código. ¡Me salvas, gracias! Resuelto

Asignar un valor a una opción de Combobox en VBA

9 respuestas

Transferencia de conversaciones de whatsapp business a un iphone nuevo

Pc que se congela continuamente

Código pin (windows hello)

Webcam conectada a mi usb en crosscall axtionx5

Aplicación pirata

Cuenta de ebay baneada?

Convertir imágenes con la extensión .heic a jpg?

Tu teléfono, una universal remoto poco conocida

Problema de openoffice

Mensaje sobre "nuevas formas de comunicarse"