Bonjour wrndid,
A l'ouverture il y a message:
Ensuite dans les modifs effectuées on retrouve de nombreuses fois :
VB:
For a = 3 To 33
Cells(5, a).Value = IIf(a <> 33, Sheets(FNomDuMois$(i - 1)).Cells(f, a).Value, Sheets(FNomDuMois$(i - 1)).Cells(f - 1, a).Value)
If a = 33 Then
f = f - 1
End If
Next a
Sauf pour la cellule "Cells(4, 3)" où on trouve
VB:
If Cells(4, 3).Value = "" Then
For a = 3 To 33
Cells(4, 4).Value = IIf(a <> 33, Sheets(FNomDuMois$(i - 1)).Cells(f, a).Value, Sheets(FNomDuMois$(i - 1)).Cells(f - 1, a).Value)
If a = 33 Then
f = f - 1
End If
Next a
End If
Cells(4, 4).Value au lieu de Cells(4, a).Value, Ceci explique, peut-être, cela.....
Cordialement
EDIT : Je me bat avec l'insertion d'image....
bonjour
les modification sont pour recuperer le manque de la semaine
si on prend mars S9 il manque lundi ect
je controle que la colone C de ma feuille semaine pour allez chercher les donnée dans autre feuille du mois mois
j ai mis le fichier sur ce lien