XL 2019 Les mois changeant

[Gok73]

Bonjour à tous !

Je viens de faire un petit programme pour connaitre les mois d'examen en fonction de la catégorie dans laquelle nous sommes.
Mais, je viens de constater que j'ai mis des mois "fixes" dans le programme : si par exemple je change le mois d'Avril en mois de juin, la Msgbox continuera de me dire le mois d'Avril. Etant novice, je souhaiterais savoir si il est possible de mettre un argument qui permettra de faire apparaitre n'importe quel mois de l'année si je le change dans la colonne "Mois" en fonction de la catégorie.

Merci d'avance !

 

[sylvanu]

Bonjour Gok,
Vous pouvez référencé le message avec le contenu d'une cellule, par ex :

reponse = message & Range("B4")

 

[sousou]

Bonjour
Je te propose ici une solution basée sur une plage nommée ("catégorie")

 

[Jacky67]

Bonjour à tous !

Je viens de faire un petit programme pour connaitre les mois d'examen en fonction de la catégorie dans laquelle nous sommes.
Mais, je viens de constater que j'ai mis des mois "fixes" dans le programme : si par exemple je change le mois d'Avril en mois de juin, la Msgbox continuera de me dire le mois d'Avril. Etant novice, je souhaiterais savoir si il est possible de mettre un argument qui permettra de faire apparaitre n'importe quel mois de l'année si je le change dans la colonne "Mois" en fonction de la catégorie.

Merci d'avance !

Bonjour à tous
Ou encore

Sub DatesEvaluation()
    Dim categorie  As String
    categorie = InputBox("Quelle est votre catégorie ?", "Catégorie")
    If Len(categorie) = 0 Then Exit Sub
    If IsNumeric(Application.Match(categorie, Feuil1.[a:a], 0)) Then
        MsgBox "Votre évaluation doit se tenir en : " & Cells(Application.Match(categorie, Feuil1.[a:a], 0), 2), vbInformation, "Information"
    Else
        MsgBox "Cette catégorie n'existe pas.", vbInformation, "Information"
    End If
End Sub

 

[MP59]

Bonsoir à tous,
une proposition en nommant les cellules contenant le mois.
si le tableau part sur une autre feuille il faudra y faire référence.