Problème avec la méthode Find

**bboy-eazy** · 01/12/2016, 14h16

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 :

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

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 :

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

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

**Docmarti** · 01/12/2016, 20h48

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 :

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

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

**bboy-eazy** · 02/12/2016, 13h05

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

Invité · 02/12/2016, 13h14

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

Code :

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

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

**bboy-eazy** · 02/12/2016, 13h21

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 :

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

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?