Input box

Stéphane79 · 19 Novembre 2005

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! · 19 Novembre 2005

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 · 19 Novembre 2005

Merci myDearFriend!,

Cela fonctionne parfaitement !

Bonsoir à tous

Input box

Stéphane79

Guest

myDearFriend!

XLDnaute Barbatruc

Stéphane79

Guest

Discussions similaires