Bonjour
Ceci est mon premier poste sur ce forum
Je débute avec VBA et en ce moment j'essaye d'automatiser un planning avec une date de début et date de fin(j'utilise calendar dans un userform pour avoir les dates)
mais voila j'ai un problème avec ma funtion "datesuivant" et la boucle "for" pour ajouter les jours dans mon fichier excel.
funtion JourSuivant:
et ma boucle for:
le problème c'est qu'il fait une fois le jour suivant, donc sur l'affichage je me retrouve toujours avec des mardi(enfin si datedeb=lundi)
En gros sur ma ligne j'aurai un lundi puis que des Mardi
Bref je demande votre aide pour me dire ou est ce que je me suis trompé.
Cordialement
Ceci est mon premier poste sur ce forum
Je débute avec VBA et en ce moment j'essaye d'automatiser un planning avec une date de début et date de fin(j'utilise calendar dans un userform pour avoir les dates)
mais voila j'ai un problème avec ma funtion "datesuivant" et la boucle "for" pour ajouter les jours dans mon fichier excel.
funtion JourSuivant:
Code:
Function JourSuivant(Unedate As Date) As Variant
'Application.Volatile
Dim DD As Variant
DD = Unedate + 1
JourSuivant = Format(DD, "dd/mm/YYYY")
End Function
Code:
For compteur = 1 To DateDiff("d", datedeb, datefin)
Datesuivant = JourSuivant(datedeb)
'MsgBox Datesuivant
ActiveCell.Offset(0, compteur) = Format(Datesuivant, "ddd")
Next compteur
le problème c'est qu'il fait une fois le jour suivant, donc sur l'affichage je me retrouve toujours avec des mardi(enfin si datedeb=lundi)
En gros sur ma ligne j'aurai un lundi puis que des Mardi
Bref je demande votre aide pour me dire ou est ce que je me suis trompé.
Cordialement
Dernière édition: