XL 2016 Userform; Liste deroulante; formule

[saggigo]

Bonjour à tous,
J'ai effectué une recherche de mon besoin et après n'avoir rien trouvé, j’espère que quelqu’un pourra me venir en aide:

J'ai un userform avec la liste déroulante "région" qui utilise les cellules B4:B7 dans ressources. j'aimerais en choisissant une région, qu'il y ai une formule qui s’exécute dans la case du userform "distance" qui calcul ce qui suit: "distance" x "prix" x "2" et que le résultat soit affiché dans une cellule

J’espère que j'ai réussi a expliquer mon besoin car je sais que des fois je suis un peu flou....

Je vous remercie d'avance pour votre aide

 

[saggigo]

Personne ???

 

[Dranreb]

Bonjour

Private Sub Cmb_Mod_Form_Change()
   Dist = Feuil3.[C4].Offset(Cmb_Mod_Form.ListIndex)
   Prix = Feuil3.[D4].Offset(Cmb_Mod_Form.ListIndex)
   TextBox1.Text = Dist & " × " & Prix & " × 2"
   End Sub

Globales Dist et Prix étant Private pour être retenues jusqu'à l'écriture de la ligne à la validation, ….Value = Dist * Prix * 2

 

[saggigo]

Bonjour

Private Sub Cmb_Mod_Form_Change()
   Dist = Feuil3.[C4].Offset(Cmb_Mod_Form.ListIndex)
   Prix = Feuil3.[D4].Offset(Cmb_Mod_Form.ListIndex)
   TextBox1.Text = Dist & " × " & Prix & " × 2"
   End Sub

Globales Dist et Prix étant Private pour être retenues jusqu'à l'écriture de la ligne à la validation, ….Value = Dist * Prix * 2

Merci Beaucoup Dranreb, je ne sais pas pourquoi mais il y a un soucis avec la macro, elle bloque sur une ligne et je ne sais pas pourquoi.

Peux-tu s'il te plait intégrer la macro au modèle que je t'ai envoyé et la tester pour être sur qu'elle marche?

Merci beaucoup pour ton aide

 

[Dranreb]

Sur quelle ligne et avec quel message ?
Si c'est erreur de compilation: variable non définie c'est que vous avez oublié de déclarer les variables globales Dist et Prix.

 

[saggigo]

Sur quelle ligne et avec quel message ?
Si c'est erreur de compilation: variable non définie c'est que vous avez oublié de déclarer les variables globales Dist et Prix.

Bonjour Dranreb,
Voila ou ça bloque.

 

[Dranreb]

Il y a deux End Sub.

 

[saggigo]

Yep.... merci beaucoup ca marche et fonctionnel