Diviser la valeur d'un ComboBox

[filierfilier]

Bonjour, J'ai déjà été bien aidé l y a quelques temps mais je coince sur ce petit soucis.

Je souhaite effectuer une division de la valeurs de plusieurs ComboBox (Me.Quantité) par un autre Combobox (Me. Nombre_convive)
Ceci afin d'inscire des recettes selon n'importe quel nombre.

Si quelqu'un a une solution. Merci d'avance !

Voir code !

Private Sub UserForm_Initialize()
Me.Nature.Controls(0) = "Entrée"
Me.Nature.Controls(1) = "Plat"
Me.Nature.Controls(2) = "Légume"
Me.Nature.Controls(3) = "Fromage-Salade"
Me.Nature.Controls(4) = "Dessert"
Me.Nature.Controls(5) = "Dejeuner-Gouter"
Me.Nature.Controls(6) = "Extra"
Me.Nombre_convive.RowSource = "Nombre_convive"
For I = 1 To 8
Me("Ingredient_" & I).RowSource = "nomproduits"
Me("Quantite_" & I).RowSource = "poidsproduits"
Next I
End Sub
Private Sub B_valider_Click()
Dim I As Integer, DLig As Long
For I = 1 To 8
'--- Contrôles ingredient et quantite
   If Me.Nom_de_la_recette = "" Then
      MsgBox "Saisir un nom de recette !"
      Me.Nom_de_la_recette.SetFocus
      Exit Sub
   End If
      If Me.Nombre_convive = "" Then
      MsgBox "vous devez saisir un nombre de convive !"
      Me.Nombre_convive.SetFocus
      Exit Sub
   End If
   
Next I
'--- Positionnement dans la base
With Sheets("Recettes")
.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Offset(0, 1).Value = Me.Nom_de_la_recette
For I = 2 To 16 Step 2
ActiveCell.Offset(0, I).Value = Me("Ingredient_" & I / 2)

'Je voudrai effectuer une division des valeurs Me.Quantité (soit 8 valeurs) 
'soit directement dans chaque valeurs Combobox Me.quantité
'ou dans un TextBox supplémentaire afferant à chaque Quantités
'Ce qui voudrai donner de
'Diviser Me.Quantité (qui indique la quantité pour chaque produits) 
'par Me.Nombre_convive (qui indique le nombre de convives par recette)

ActiveCell.Offset(0, 1 + I).Value = Me("Quantite_" & I / 2)
Next I
' Choix de la recette
For I = 1 To 7
If Me("OptionButton" & I) = True Then
ActiveCell.Value = Me("OptionButton" & I).Caption
' Inscrire le nom de la recette dans la listes des plats
' En partant du principe que les OptionButton sont dans le mêmes sens que sur la feuille : Liste des plats
With Sheets("Liste des Plats")
' Trouver la dernière ligne de la colonne concernée
DLig = .Cells(Rows.Count, I).End(xlUp).Row + 1
.Cells(DLig, I).Value = Me.Nom_de_la_recette

End With
' Sortir de la boucle
Exit For
End If
Next I
End With
   '--
   nettoie
End Sub

 

[fhoest]

Re : Diviser la valeur d'un ComboBox

Bonjour,
pour prendre la valeur de la combo c'est :
cdbl(combo) ou val(combo)
et ensuite tu fait des calculs classique
A+

 

[filierfilier]

Re : Diviser la valeur d'un ComboBox

Merci pour ce renseignement, cela me met sur une recherche mais concrètement comment faire dans mon cas avec plusieurs Combo.

 

[fhoest]

Re : Diviser la valeur d'un ComboBox

Bonsoir,
voici un modèle:
A bientôt.

 

[filierfilier]

Re : Diviser la valeur d'un ComboBox

Merci pour cet exemple ! Cela va m'aider dans ma recherche. Encore merci ! 🙂