Renvoi d'un texte si saisie N° à partir d'un imput box

[a26]

Bonjour,
Je ne trouve pas l'erreur qui ne me permet pas d'obtenir le mois en toute lettre à partir de la saisie du N° du mois dans l'imput box.
Problème de codage ?
Merci pour les explications qui me seront précieuses pour ce travail sur les variables que j'ai du mal à comprendre.
Cordialement,
a26

 

[JBARBE]

Bonjour à tous,
Peut-être ceci

bonne journée

 

[a26]

Bonjour à tous,
Peut-être ceci

bonne journée

Merci JBARBE. Ta solution me convient parfaitement. Mais pour poursuivre est-il possible d'obtenir dans la même cellule par exemple Calendrier octobre 2016.

 

[JBARBE]

Re,

Sub nom_mois()
Dim nom_mois As Integer
Dim mois As String
Dim premier As Integer
Dim jour As Integer
Dim coLonne As Integer
Dim année As Integer

mois = InputBox("Le numéro du mois ?", "Mois")
année = InputBox("Saisie de l'Année ?", "Année")
  If mois = 1 Then
mois = "Calendrier" & " " & "Janvier" & " " & année
ElseIf mois = 2 Then
mois = "Calendrier" & " " & "Février" & " " & année
ElseIf mois = 3 Then
mois = "Calendrier" & " " & "Mars" & " " & année
ElseIf mois = 4 Then
mois = "Calendrier" & " " & "Avril" & " " & année
ElseIf mois = 5 Then
mois = "Calendrier" & " " & "Mai" & " " & année
ElseIf mois = 6 Then
mois = "Calendrier" & " " & "Juin" & " " & année
ElseIf mois = 7 Then
mois = "Calendrier" & " " & "Juillet" & " " & année
'etc
End If
Range("c2").Value = mois
Titre = mois
 
Calendrier2

End Sub

Bonne journée

 

[a26]

Merci beaucoup. Je comprends mieux maintenant comment cela fonctionne. Quand je saisissais If mois cela me semblait pourtant correct.
ElseIf, je n'avais jamais utilisé.
Si tu veux me donner une réponse du pourquoi ?
Bonne journée,
a26

 

[Si...]

Salut,

La fonction MonthName permet de réduire le code ainsi

Sub nom_mois()
Dim mois As Byte
Dim année As Long
  mois = InputBox("Le numéro du mois ?", "Mois")
  année = InputBox("Saisie de l'Année ?", "Année")
  [C2] = MonthName(mois) & " " & année

Nota : avec ce genre de demande (InputBox) tu risques d’avoir des ennuis après des saisies autres que celles voulues.

 

[a26]

Merci Si, encore une fonction que je ne connaissais pas.
Bonne fin de journée,
a26