Rechercher le mois suivant et le précédent par VBA
l
bonjour
je suis nouvelle parmi vous je cherche de l'aide
est il possible de réaliser un code vba qui me permettre de trouver le mois suivant et le mois précédent
et le mois de janvier de chaque année
exemple
août
septembre
octobre
le résultat c mois d'août
et octobre
merci beaucoup
s
Bonjour Linda
Quelques fonctions utiles, il suffit d'enchainer les bonnes fonctions pour avoir le résultat escompté
Const CST_MONTHS = ",Janvier,Fevrier,Mars,Avril,Mai,Juin,Juillet,Aout,Septembre,Octobe,Novembre,Decembre,"
Function GetMonthLetter(Mois As Integer)
GetMonthLetter = Split(CST_MONTHS, ",")(Mois)
End Function
Function GetPreviousMonth()
Dim m
m = VBA.month(VBA.date)
If m = 1 Then m = 12 Else m = m - 1
GetPreviousMonth = m
End Function
Function GetNextMonth()
Dim m
m = VBA.month(VBA.date)
If m = 12 Then m = 1 Else m = m + 1
GetNextMonth = m
End Functionl
au fait je connais pas le vba je suis débutante
si c possible de me montrer comme j'appel ses fonction merci beaucoup
s
Msgbox GetMonthLetter(GetPreviousMonth)
devrait t'afficher un popup avec Le libellé Aout