texte dans cellule avec boite de dialogue

[Fifine]

J'ai créer un bouton qui puisse m'ouvrir une boite de dialogue une fois avoir selectionner ma cellule mais le texte que j'écris ne se met pas dans ma cellule ensuite il doit manquer quelquechose a ma formule mais je ne sais pas comment l'inscrire. Voici la formule que j'utilise :
Sub Bouton125_QuandClic()
ActiveCell.FormulaR1C1 = ''
Reponse = InputBox('Indiquer le nom de la réunion', 'Intitulé de l'évènement')

 

[vekmort]

Bonjour,

Il faut inverser la ligne qui demande la valeur (inputbox) et celle qui l'attribue (activecell = Reponse) comme suit :

Sub Bouton125_QuandClic()
Reponse = InputBox('Indiquer le nom de la réunion', 'Intitulé de l'évènement')
ActiveCell.FormulaR1C1 = Reponse
End sub

Bonne fin de journée,

vekmort ibus 😉

 

[Hervé]

Bonjour fifine, re vekmort

plus court :

ActiveCell= InputBox('Indiquer le nom de la réunion', 'Intitulé de l'évènement')


salut 🙂