Choose avec recherche verticale

Bonjour à tous,

j'ai un choose correspondant aux nombre de jours des mois de l'année.

For mois = 1 To 7

moisA = Choose(mois, "pl07", "pl08", "pl10", "pl12", "pl01", "pl03", "pl05")

moisF = Choose(mois, "juil", "aou", "oct", "dec", "jan", "mar", "mai")

If ActiveSheet.Name = moisF Then Exit For

Next mois

je voudrais faire une recherche verticale dans les moisA qui correspondent au moisF, mais le code avec moisF ne fonctionne pas:

(ex: si je mets juil!, çà fonctionne, mais il me faut une variable qui repmlace tous les mois en 31, ici moisF.

Range("AI3").Select

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-33],moisF!R12C3:R37C34,33,FALSE)"

merci au caï qui me trouvera la bonne ponctuation de la variable.

Fronck

Bonjour.

Excel interprète ce qui est entre "" comme du texte, pour qu'il comprenne que tu veux la variable il faut l'en sortir.

Range("AI3").Select

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-33]," & moisF & "!R12C3:R37C34,33,FALSE)"

Ceci devrait fonctionner (j'espère )

Bonne journée.

Cà marche nickel helevan,

et merci pour l'explication, çà m'évitera de revenir vous c... les c...