Bonjour à tous !

J'ai tenté de trouver un titre assez explicite : ce que je cherche à faire me parait simple, pourtant après 4 heures de recherches, je suis à bout et je n'ai pas trouvé de solution satisfaisante...

Voilà donc ce que je cherche à faire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim MoisChoisi as Date ' La valeur ici est du type "Juillet 2015"
 
With Worksheets("import_mvt").Columns(4) ' Le contenu de la colonne 4 est constitué de dates (stockées sous forme de n° de série) et affichées avec un format personnalisé "mmmm yyyy" ; soit "Juillet 2015"
Set Rg = .Find(What:=MoisChoisi, LookIn:=xlValues, LookAt:=xlPart)
Le problème bien entendu est que Find ne me retourne aucun résultat.

J'ai essayé déjà un million de choses (au minimum ) donc : help

Merci d'avance