Remplacer MsgBox par un formulaire

Bonjour,

Je souhaiterais remplacer une MsgBox par un formulaire.

A partir d'un formulaire, je souhaiterais récupérer la valeur de la cellule N3 et l'afficher dans ce formulaire.
Est-il nécessaire d'ajouter un élément de la boîte à outils pour afficher la donnée récupérée : la zone de texte ? Quelle syntaxe faut-il rédiger ?

Ci-dessous ma macro de la MsgBox :

Code:

---

1 2	Sub rédaction_forum MsgBox("Le cours est. " & Range("N3").Value2) End Sub

---

Merci pour votre aide.

Cordialement.

Salut.

Oui, tu dois alors construire un userform en y plaçant un textbox.

Le code suivant place la valeur de N3 de la feuille active dans le textbox nommé tboValue puis affiche le userform. A la fermeture, la valeur tu textbox (qui a éventuellement été modifiée) est placée dans N3 avant de décharger le userform de la mémoire. Tu as ainsi les deux flux (cellule vers userform et userform vers cellule). Ce code est "basique" et sert juste à illustrer la réponse à ta question, bien sûr.

Code:

---

1 2 3 4 5 6 7 8

Sub ShowForm() With UserForm1 .tboValue.Value = Range("n3").Value .Show Range("n3").Value = .tboValue.Value End With Unload UserForm1 End Sub

---

Si ce que tu souhaites, c'est juste pouvoir modifier cette valeur, il serait plus simple de passer par une InputBox.

Code:

---

Range("N3").Value2 = Input("Modifier", "Le cours est :", Range("N3").Value2)

---

https://docs.microsoft.com/fr-fr/off...ation.inputbox