InputBox - Proposition de réponse

[GuillaumA]

Bonjour à tous,

Ci-joint une macro d'input box.

Sub CréerUnMois()
    Application.ScreenUpdating = False
    NomDuMois = InputBox("A quel mois correspond le tableau ?")
    If NomDuMois = "" Then
        MsgBox "Le mois n'est pas défini"
        Exit Sub
    End If

je voudrais que dans la proposition, une réponse auto intégré apparaisse.
Cette dernière correspondra au nom du mois en cours

Du coup l'utilisateur pourrait directement valider l'InputBox (sans taper de réponse), mais si cela ne correspond pas au mois qu'il veut, alors il pourra toujours la modifier manuellement.

Je sais que je dois utiliser ça:

ActiveSheet.Name = MonthName(Month(Date))

Mais je ne sais pas comment...

Quelqu'un aurait-il l'amabilité de m'aider?
Cordialement,
Guillaume A.

 

[Papou-net]

Re : InputBox - Proposition de réponse

Bonjour GuillaumA,

Tu peux modifier ton code comme ceci :

Sub CréerUnMois()
    Application.ScreenUpdating = False
    NomDuMois = InputBox("A quel mois correspond le tableau ?"[B], , DatePart("m", Date)[/B])
    If NomDuMois = "" Then
        MsgBox "Le mois n'est pas défini"
        Exit Sub
    End If
End Sub

Espérant avoir répondu.

Cordialement.

 

[Staple1600]

Re : InputBox - Proposition de réponse

Bonjour à tous

GuillaumA
Tu n'étais pas loin 😉

Sub CréerUnMois()
Application.ScreenUpdating = False
    NomDuMois = _
            InputBox("A quel mois correspond le tableau ?", _
            "Choix du mois", _
            MonthName(Month(Date)))
If NomDuMois = "" Then
    MsgBox "Le mois n'est pas défini"
    Exit Sub
End If
End Sub

edition: bonjour tototiti2008

 

[GuillaumA]

Re : InputBox - Proposition de réponse

Bonjour papou, bonjour staple !

Je vous remercie grandement !
Cela fonctionne à merveille.

Bonne journée à vous

Guillaume

 

[GuillaumA]

Re : InputBox - Proposition de réponse

Re-bonjour,
Je souhaiterai afficher le nombre de l'année actuel à droite du mois actuel du type octobre 10 ou octobre 2010. J'ai essayé le code suivant mais la aussi quelque chose me manque et je n'arrive pas a savoir quoi...

    NomDuMois = InputBox("A quel mois correspond le plan d'action ?", _
            "Choix du mois et de l'année", _
            MonthName(Month(Date)) & [COLOR="Red"]YearName(Year(Date))[/COLOR])

Cordialement,
Guillaume

 

[tototiti2008]

Re : InputBox - Proposition de réponse

Bonjour GuillaumA, Bonjour Papounet, Bonjour Staple,


Il y a plutôt des choses en trop, je crois

NomDuMois = InputBox("A quel mois correspond le plan d'action ?", _
            "Choix du mois et de l'année", _
            MonthName(Month(Date)) & " " & [COLOR=red]Year(Date)[/COLOR])

ou alors

NomDuMois = InputBox("A quel mois correspond le plan d'action ?", _
            "Choix du mois et de l'année", _
            Format(Date, "MMMM YY"))

 

[GuillaumA]

Re : InputBox - Proposition de réponse

Ohhh i seee....
J'ai voulu utiliser Format mais je m'était dis que la solution ne marchai pas dans ce cas là.

Merci toto. merci beaucoup!

Guillaume