XL 2019 Les mois changeant

Gok73 · 23 Mars 2021

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 !

Jacky67 · 23 Mars 2021

Gok73 à dit:
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

VB:

Sub DatesEvaluation()
    Dim categorie  As String
    categorie = InputBox("Quelle est votre catégorie ?", "Catégorie")
    If Len(categorie) = 0 Then...

sylvanu · 23 Mars 2021

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

VB:

reponse = message & Range("B4")

sousou · 23 Mars 2021

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

Jacky67 · 23 Mars 2021

Gok73 à dit:
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

VB:

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 · 23 Mars 2021

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.

XL 2019 Les mois changeant

Gok73

XLDnaute Nouveau

Pièces jointes

Jacky67

sylvanu

XLDnaute Barbatruc

Pièces jointes

sousou

XLDnaute Barbatruc

Pièces jointes

Jacky67

XLDnaute Barbatruc

MP59

XLDnaute Occasionnel

Pièces jointes

Discussions similaires