comment trouver le mois suivant

[hugues]

Bonjour Le Forum,

Je souhaiterais connaître le code afin de trouver le mois suivant.
Dans un userform, j'ai 2 textbox
Le premier est alimenté par une valeur trouvée dans une cellule du classeur, qui est égal à un mois (janvier février, ...décembre.
Le deuxiéme textbox doit être égal au mois suivant celui qui est indiqué dans le 1er textbox
J'ai commencé mais je n'arrive pas à trouver le code pour le deuxieme textbox (mois suivant):

Private Sub UserForm_Activate()
mois_cloture = Sheets('facturation_usagers').Range('n2').Value
mois_suivant = ??????
End Sub

Merci d'avance pour votre aide.

Hugues

 

[ERIC S]

bonsoir et meilleurs voeux

si dans ton tableau les mois sont du texte, il te reste la solution :

if mois_cloture = 'janvier then mois_suivant = 'février'
if mois_cloture = 'février'....

A+

 

[Hugues]

Merci Eric pour le tuyau
Je te preésente en retour ainsi qu'à tout le Forum mes bons voeux