Gestion des MsgBox

Novice en Vb et apprenant seul, je bloque sur un pb qui devrait vous faire marrer :

j'ai besoin d'utiliser un entier récupéré par un MsgBox pour lancer autant de nouveaux MsgBox.

ex : si msgbox1 = combien de pieces dans cet appart?
si reponse1 = 3

je souhaite avoir msgbox 2 = surface de la piece 1, reponse2
msgbox 3 = surface de la piece 2, reponse3
msgbox 4 = surface de la piece 3, reponse4

Grandement merci pour toute votre aide

en esperant ne pas polluer

ciao

sylnie

voir plutôt InputBox pour récupérer un entier, puis F1 sur MsgBox

L'inconvenient des MsgBox/InputBox c'est qu'on ne peut en afficher qu'un seul à la fois.
Il faudra faire un InputBox pour chaque question
Une autre solution consiterait a faire un feuille, affichée modalement, qui afficherait autant de label/textbox qu'il y a de questiond à repondre.
Pour afficher une fenetre modalement, on utilise

Code:

---

LaForm.Show VbModal

---

Pour ajouter dynamiquement des controles a une feuille, on utilise des Labels/TextBox dont la propriété index est à zero ensuite , on ajoute par programme les composants supplementaires avec un

Code:

---

Load TextBox1(TextBox1.Count+1) 'pour le textbox

---

Amicalement Delbeke

Code:

---

Load TextBox1(TextBox1.Count)

---

eventuellement pour supprimer le dernier, sauf le premier mis sur laForm lors de la construction (Index = 0)

Code:

---

Unload TextBox1(TextBox1.Count - 1)

---

Pareillement ProgElect

Tu as parfaitement raison :) Autant pour moi.