Discussion :

[CodeFacile]

Je ne cherche pas à polémiquer , mais ...

Je ne sais pas qui préconise de ne pas utiliser les Do Loop alors qu'il y a forcement une utilité ou un choix judicieux pour chaque commande.

Par contre le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If Weekday(datef, vbFriday) = 1 Then
    Vendr = DateSerial(annee, mois, 15)
Else
    Vendr = DateAdd("d", datef, 22 - Weekday(datef, vbFriday))
End If

C'est le type de code que je refuse en entreprise. On demande une maintenance à quelqu'un d'autre , c'est confus dans la façon de traiter le problème posé. Un débutant qui ne connait pas les fonctions ....
Un bon code , c'est un code concis , avec un algorithme clair. C'est ma préconisation.

[ucfoutu]

C'est ton choix !
1) Le code (celui de Mercatog) que tu trouves "curieux" colle pourtant parfaitement à la peau de VB et je l'applaudis.
2) il appelle une fonction. Une ligne de commentaire en haut de cette fonction suffit à renseigner celui qui maintient l'application (il apprend ainsi qu'elle retourne le 3ème vendredi du mois traité )
3) une boucle est une boucle ==>> elle parcourt (elle se promène et promène ton appli. Lorsqu'une boucle est utilisée, elle doit être nécessaire ou à éviter)

La tienne, de boucle, se promène en plus de 15 à 22 fois (selon le mois) à chaque mois, alors que, même avec une boucle, elle n'aurait pas à le faire plus de 6 fois par mois (6 dans le pire des cas).