Problème avec la méthode Find

Bonjour à tous,

J'ai un soucis avec la méthode Find.
J'ai dans ma première ligne des dates au format mmm-aa
Je cherche à trouver la colonne qui correspond au mois de la date du jour
j'ai donc ce code:

Code:

---

1 2 3 4 5 6

Sub test() Dim DC As Long Dim C As Range Set C = ThisWorkbook.Worksheets("Test").Range("A1:WW1").Find(Format(Date, "mmm-yy", vbMonday, vbFirstFourDays), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If Not C Is Nothing Then DC = C.Column: Set C = Nothing Else MsgBox "Date non trouvée, Etirer les dates de la feuille Test": Exit Sub End Sub

---

le problème c'est que cela fonctionnait hier mais plus aujourd'hui. J'ai donc cherché a faire

Code:

---

Set C = ThisWorkbook.Worksheets("Test").Range("A1:WW1").Find(Format(Date -1, "mmm-yy", vbMonday, vbFirstFourDays), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

---

et la ca trouve bien novembre
ca marche aussi pour octobre mais pas pour septembre par exemple alors que le texte est exactement le même....

Savez-vous pourquoi svp?
merci d'avance

Bonjour.

Si tu cherches une date dans des cellules qui contiennent des valeurs de type Date, il faut chercher une valeur de type date.

Voici 2 methodes:

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 25 26 27 28 29 30 31 32 33 34

Sub test() Dim DC As Long Dim C As Range Dim what As Date 'Rechercher une valeur de type date Dim r As Range   what = Date Set C = ThisWorkbook.Worksheets("Test").Range("A1:WW1").Find(what, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)   If Not C Is Nothing Then DC = C.Column: Set C = Nothing Else MsgBox "Date non trouvée, Etirer les dates de la feuille Test": Exit Sub End Sub   Sub Boucle()   Dim DC As Long Dim C As Range Dim what As Date Dim r As Range Set r = ThisWorkbook.Worksheets("Test").Range("A1:WW1")   what = Date For Each C In r   If IsDate(C.Value) Then If CDate(C.Value) = what Then Exit For End If End If Next   If Not C Is Nothing Then DC = C.Column: Set C = Nothing Else MsgBox "Date non trouvée, Etirer les dates de la feuille Test": Exit Sub     End Sub

---

Bonjour Docmarti,

merci pour ta réponse.

Hélas cela ne fonctionne pas car je m'explique:
en plage ("A1:WW1"), il y a des dates au format mmm-yy or l'affichage affiche par exemple déc-16 mais la valeur de la cellule est égale à 01/12/2016
donc ton code nommé boucle avec une boucle for each ne fonctionne pas aujourd'hui par exemple car what prend la valeur 02/12/2016 et le match ne se fait pas sur 01/12/2016

idem pour le code via un find en mettant une variable date

Le truc que je ne comprends pas c'est que le find se fait via mon code pour novembre et octobre par exemple mais pas pour les autres dates alors que tous les formats sont les mêmes

Bonjour,
si je comprends bien tes cellules contiennent des dates et le format de tes cellules est "mmm-yy"

Code:

---

Set C = ThisWorkbook.Worksheets("Test").Range("A1:WW1").Find(Format(Date -1, "mmm-yy", vbMonday, vbFirstFourDays), LookIn:=xlText

---

Bonjour dysorthographie,

C'est exactement ca. Et je pense que le xlText est le plus adapté mais cela ne fonctionne pas avec xltext. J'ai un message d'erreur: l'indice n'appartient pas à la sélection. Je ne sais pas si on peux donner cette valeur à lookin

Mais pourtant c'est exactement ca qu'il me faut car ca fonctionne avec ce code:

Code:

---

1 2 3

For Each C In ThisWorkbook.Worksheets("Test").Range("A1:WW1") If C.Text = Format(Date, "mmm-yy", vbMonday, vbFirstFourDays) Then DC = C.Column: Exit For Next

---

C'est donc bien le ".text" qu'il me faut mais comment l'inclure dans un find?

Code:

---

what = Date

---

C'est uniquement pour rechercher la date du jour.


Pour trouver une autre date, c'est ceci :

Code:

---

what = CDate("01/12/2016")

---