boite input box

[Joan]

bonjour à tous
pourriez vous m'aider a trouver une solution a mon problème.
comment récuperer le contenue de ma cellule sélectionnée,

exp: cellule selectionnée "A1" avec un" nom " puis ouvrir la boite input box avec dans la zone texte le contenue de la "cellule"A1 " = nom

ça marche avec un copier / coller , mais je souhaiterai eviter cette commande

en vous remerciant d'avance

JOAN

 

[@+Thierry]

Bonsoir Joan, le Forum

Pas certain d'avoir tout compris, sinon c'est tout simple :

Sub InputBoxWithDefaultValue()
Dim DefaultValue As String
Dim InputBoxValue As String

DefaultValue = Sheets("Feuil1").Range("A1")

InputBoxValue = InputBox("Veuillez Confirmer ou Modifier", "MyInputBox Title", DefaultValue)

If Not InputBoxValue = "" Then
MsgBox InputBoxValue
End If
End Sub

PS : si tu veux la valeur de la cellule active au lieu de "A1" alors mets ceci au lieu de DefaultValue = Sheets("Feuil1").Range("A1")

DefaultValue = ActiveCell

Bonne Soirée
@+Thierry

 

[Joan]

@+Thierry

merci d'avoir repondu a mon message
je vais mettre en application tes formules

a bientôt
JOAN