texte dans cellule avec boite de dialogue

Fifine · 3 Avril 2006

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 · 3 Avril 2006

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é · 3 Avril 2006

Bonjour fifine, re vekmort

plus court :

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

salut 🙂

texte dans cellule avec boite de dialogue

Fifine

Guest

vekmort

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

Discussions similaires

texte dans cellule avec boite de dialogue

Fifine

Guest

vekmort

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency