Discussion :

[Naaby]

Bonjour,
j'ai un petit problème pour réaliser une fonction VBA,
Je souhaiterais créer une macro affichant TOUS les jours entre deux dates.

Je m'explique, je voudrais par exemple sur une ligne de mon tableau, inscrire la date de tous les MERCREDI dans un intervalle compris entre le 01/09/2012 et le 10/06/2013.

Merci par avance pour votre aide.

[kiki29]

Salut, vite fait, 2 plages nommées Debut et Fin
puis qqch comme ceci qui visualise les dates dans la colonne A , à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Sub Tst()
Dim dDeb As Date
Dim dFin As Date
Dim i As Long, j As Long
    Feuil1.Columns("A:A").ClearContents
    dDeb = Feuil1.Range("Debut")
    dFin = Feuil1.Range("Fin")
    j = 1
    For i = dDeb To dFin
        If Weekday(i) = vbWednesday Then
            Feuil1.Range("A" & j) = Format(i, "ddd dd/mm/yyyy")
            j = j + 1
        End If
    Next i
End Sub

[Naaby]

C'est parfait, merci
J'avais lu quelque part que l'on ne pouvait faire des boucles avec des variables date, d’où mon problème.