Améliorer VBA et format date

[JC de Lorient]

Bonjour le forum,
Je relance un post puisque je vais bientôt passer en 2ème page donc mes espoirs s’amenuisent !! concernant le code suivant :

Sub deb()
Set maplage = Sheets("Récap").UsedRange.Rows
madate = Sheets("Edition").Range("I5")
n = 0
For Each i In maplage
If i.Columns(1) = madate Then
a = i.Columns(1).Offset(0, 1)

Sheets("Edition").Range("b8").Offset(n, 0) = i.Columns(1).Offset(0, 0)
Sheets("Edition").Range("b8").Offset(n, 1) = i.Columns(1).Offset(0, 1)
Sheets("Edition").Range("b8").Offset(n, 2) = i.Columns(1).Offset(0, 2)
Sheets("Edition").Range("b8").Offset(n, 3) = i.Columns(1).Offset(0, 3)
Sheets("Edition").Range("b8").Offset(n, 4) = i.Columns(1).Offset(0, 4)
Sheets("Edition").Range("b8").Offset(n, 5) = i.Columns(1).Offset(0, 6)
Sheets("Edition").Range("b8").Offset(n, 6) = i.Columns(1).Offset(0, 8)
Sheets("Edition").Range("b8").Offset(n, 7) = i.Columns(1).Offset(0, 9)
Sheets("Edition").Range("b8").Offset(n, 8) = i.Columns(1).Offset(0, 12)

n = n + 1
End If
Next
End Sub

J’ai 2 questions :
1) est il possible de simplifier cette macro ? si oui comment j’ai pensé à une boucle mais aucune connaissance !
2) dans cette formule : madate = Sheets("Edition").Range("I5")

« I5 » me ramène toujours une date sous la forme du 1er du mois
J’aimerais qu’à partir de cette date ma sélection se fasse sur le mois et l’année en cours ex si date = 01/01/2005 vérifier tous les jours du mois de janvier 2005


Merci a tous et toutes

JC

 

[JC de Lorient]

bsr Robert, le forum

je t'envoie ça de suite

merci bcp
JC

 

[Robert]

Re JC,

Tu as oublié le mot de passe...

À plus,

Robert

 

[JC de Lorient]

re
te l'ai envoyé par mail

merci
JC

 

[Robert]

Re JC, bonsoir le forum

Ton fichier modifié dans ta BAL perso.

À plus,

Robert

 

[JC de Lorient]

re Robert, le forum

Bal perso tu veux dire mon mail je pense

je te remercie bcp j'attends ton mail avec impatience !! 🙂

je te ferai un compte rendu perso ! lol

merci encore
JC