Discussion :

[BtjpsspgrW]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci pour votre aide.

Cordialement.

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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