Discussion :

[jackborogar]

Bonjour à tous,

J'aimerai rechercher juste le mois se trouvant dans cette liste de date ci joint sans me préoccuper du jour.
De plus j'aimerai prendre la derniere valeur du mois par exemple pour le mois d'octobre j'aimerai prendre le 25/10/2009.

27/08/2009
27/08/2009
27/08/2009
22/09/2009
25/09/2009
09/10/2009
12/10/2009
25/10/2009
05/11/2009

Bien Cordialement,

EDIT: recherche mois + année de ma colonne A de ma feuille

[Jean-Philippe André]

salut,

la fonction Month() correspond à ce que tu recherches, aussi bien sous forme de formule que de fonction VBA

[Invité]

Bonjour,
Tu cherches qq chose comme recherchev(Date ;Mois) ?

[jackborogar]

Je pense qu'il faut que je sois plus précis car c'est pas si simple, du moins je pense

Enfaite dans un Userform l'utilisateur à le choix de choisir son mois (de janvier à février) ainsi que l'année. Une fois la saisie effectué, je dois rechercher dans ma feuille la cellule du mois + année .

Enfaite je recherche une date de fin par exemple utilisateur choisis : février + 2011 alors dans ma feuille je dois prendre la cellule du 29/02/2011

Voici les tests que j'effectue mais j'ai des erreurs.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim x As Date
x = "09/10/2009"
'myMonth = DatePart("m", x)
'myYear = DatePart("yyyy", x)
'total = myMonth & "/" & myYear
mois = Month(x)
 
MsgBox (mois)
Set valeur = Sheets("BDD 2010-2011").Range("A:A").Find(What:=mois, LookAt:=xlWhole)
valeur = valeur.Row
MsgBox (valeur)

edit: de janvier à décembre pardon

[Guiiand]

Bonjour,

Au lieu de rechercher

Code :

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

What:=mois

je te conseille de rechercher

Code :

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

What:="*/" & mois & "/*"

Ca marche chez mois.

Apres il te faudra boucler pour trouver la dernière date du mois.

PS : si tu veux aussi l'année, je conseille dans ce cas de rechercher

Code :

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

What:="*/" & mois & "/" & annee

avec 'annee' que tu as bien entendu defini auparavant de la meme manière que 'mois', avec

Code :

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

annee = Year(x)

[jackborogar]

Nop j'ai une erreur

Je vous drop des pictures afin que vous puissiez mieux interpréter .

[Guiiand]

Re,

Oublie mon truc avec les annee, je ne sais pas pourquoi, mais la concatenation avec le "/" : VBA il aime pas.

Par contre si tu te contente de rechercher le mois, j'ai trouve le truc :

Code :

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

LookAt:=xlPart

a la place de

Code :

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

LookAt:=xlWhole