Input box

[Stéphane79]

Bonjour à tous,

Comment faire en sorte que la valeur rentrée dans une input box la 1 ère fois soit ensuite utilisé par défaut à la prochaine utilisation de la macro

Exemple :
Mois = InputBox('Mois ?', , 'Octobre')

D'avance merci pour votre aide
Stéphane79

 

[myDearFriend!]

Bonsoir Stéphane79,

Le plus simple me paraît de créer une petite fonction personnalisée avec une variable déclarée Static (et qui gardera donc sa valeur à chaque appel) :

Function QuelMois() As String
Static M As String
      M = InputBox('Mois ?', , M)
      QuelMois = M
End Function

Pour tester cette fonction :

Sub Test()
Dim Mois1 As String, Mois2 As String
      'Première demande
      Mois1 = QuelMois
      MsgBox 'Vous avez saisi : ' & Mois1
      'Deuxième demande
      Mois2 = QuelMois
      MsgBox 'Vous avez saisi : ' & Mois1 & ' et ' & Mois2
End Sub

Cordialement,

 

[Stéphane79]

Merci myDearFriend!,

Cela fonctionne parfaitement !

Bonsoir à tous