réponse à une inputbox non volatile

[kawa]

Bonsoir le forum,

est il possible de conserver la réponse à une inputbox de manière non volatile ?
Je précise que cette réponse est une URL.

par avance merci de vos réponses

kawa

 

[myDearFriend!]

Bonsoir kawa,

Pas sûr d'avoir bien compris la question...

Sub LaProcedure()
Static Reponse As Variant
      If IsEmpty(Reponse) Then Reponse = ''
      Reponse = Application.InputBox(prompt:='Libellé', Title:='Titre', Default:=Reponse, Type:=2)
      If Reponse = False Then
            Reponse = ''
            Exit Sub
      End If
      'Le Traitement ici...
      '
      '
End Sub

Cela te permettra de conserver la réponse précédente à chaque ouverture de l'InputBox (attention toutefois, cette valeur sera perdue à la fermeture du classeur).

Cordialement,

 

[kawa]

Bonsoir et merci de ta réponse,

mais par 'non volatile' j'entends justement qui ne se perd pas aprés la fermeture du classeur.
Est ce possible ?

 

[myDearFriend!]

Re kawa,

Eh bien dans ce cas, il suffit simplement d'enregistrer la valeur de la variable 'Reponse' dans une cellule inutilisée (et éventuellement cachée) de ton classeur.

Pour 'mémoriser' la réponse :

      Sheets('Feuil1').Range('A1').Value = Reponse

Pour récupérer la valeur de cette réponse ultérieurement :

      Reponse = Sheets('Feuil1').Range('A1').Value

Cordialement,

 

[kawa]

c'est exactement ce que je souhaitais !!

un grand merci à toi myDearFriend!