Vba date manquante et ajout de dates
Bonjour bonjour, me revoici avec un nouveau probleme sur les bras,
Imaginer, je possede différentes dates :
mercredi 1 juin 2011
jeudi 2 juin 2011
vendredi 3 juin 2011
lundi 6 juin 2011
mardi 7 juin 2011
mercredi 8 juin 2011
jeudi 9 juin 2011
vendredi 10 juin 2011
lundi 13 juin 2011
mardi 14 juin 2011
mercredi 15 juin 2011
jeudi 16 juin 2011
vendredi 17 juin 2011
lundi 20 juin 2011
et je voudrais grace a une macro ajouter les dates manquantes jusqu'a la fin du mois, et aussi prendre en compte le fait qu'il soit possible qu'une date manque dans les données présentes, tels qu'un mercredi entre mardi et jeudi.
J'ai ce code pour m'aider
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Sub jour()
Dim i As Integer
Dim R As Integer
Dim x As Integer
x = 1
While x < 5
Sheets("4158").Select
i = 12
For i = 12 To Range("A" & Rows.Count).End(xlUp).Row
While Weekday(Cells(i, 1)) <= 5 And Day(Cells(i, 1)) <= 31
If i = Range("A" & Rows.Count).End(xlUp).Row Then Exit Sub
If Weekday(Cells(i + 1, 1)) - Weekday(Cells(i, 1)) <> 1 And Cells(i, 1) <> 0 Then
Rows(i + 1).Insert Shift:=xlDown
Cells(i + 1, 1).Value = (Cells(i, 1)) + 1
i = i + 1
Else
i = i + 1
End If
Wend
Next
x = x + 1
Wend
End Sub |
en effet, il ne me faut que les 5 jours de la semaine, le code fonctionne bien, mais s'arrete si il constate qu'il n'y a pas de lundi apres un vendredi.
Quelqu'un aurait une idée ?
