valeur par defaut d'une INPUTBOX

[patrice]

Salut !
Est il possible de rappeler une valeur contenu dans une cellule dans la valeur par défaut d’une INPUTBOX. ?

 

[Thierry]

Salut Patrick

Ben oui,

Il faut faire une variable "ValDef" dans ce style :

Sub InputDefaut()
Dim ValDef As String

ValDef = Sheets("toto").Range("a1")

Dim Message, Title, Default, MyValue
Message = "Entrez ce que vous voulez"
Title = "Démonstration de InputBox"
Default = ValDef
MyValue = InputBox(Message, Title, Default)

End Sub

Bon cette fois-ci dodo
Bonne Nuit
@+Thierry

 

[patrice]

merci bien thierry
ca marche mais je voudrais pouvoir le faire pour plusieur boites dans une meme feuille comme dans la feuille ci joint ou les inputbox sont liees a la selection de certaine cellules (A1,A3,A5)
merci pour ton aide
salut a bientot

 

[Thierry]

Salut Patrice

Histoire de confirmer que je suis les posts... Mais j'ai vu le même fichier en évolution sur un autre post......

Bon je fais le point je vois çà demain...

bonne nuit
@+Thierry

 

[patrice]

salut thierry
afirmatif tu a bien vu le meme fichier, je n'ais pas trop l'habitude des forum mais en tout cas celui ci est super!
encore merci
@+patrice