saisie input box

[pierre 77930]

Bonsoir à tous ,

j'essaie d'apprendre les bases de VBA ......c'est dur !!!!
je voudrais placer la valeur saisie dans un input box vers une cellule.
je ne vois pas d'erreur dans les quelques lignes que je vous joint ??????


Private Sub Worksheet_Activate()
reponse = MsgBox("voulez vous continuer ?", vbYesNo, "mon prog test")

If reponse = 7 Then Exit Sub

InputBox "rentrez votre nom:", "mon prog test", "utilisateur 1"
If Message = "" Then Exit Sub
Range("A1").Value = Message
End Sub

merci et bonne soirée

Pierre 🙂

 

[Cousinhub]

Re : saisie input box

Bonsoir,

tu as juste oublié de donner une valeur à Message....

Private Sub Worksheet_Activate()
reponse = MsgBox("voulez vous continuer ?", vbYesNo, "mon prog test")

If reponse = 7 Then Exit Sub

Message = InputBox("rentrez votre nom:", "mon prog test", "utilisateur 1")
If Message = "" Then Exit Sub
Range("A1").Value = Message
End Sub

 

[pierre 77930]

Re : saisie input box

bonsoir bhbh ,

je te remercie.....et je te souhaite une bonne soirée

Pierre