[VBA-E] Find et une partie d'une Date

Version imprimable

Bonjour à tous,

Après moultes recherches sur les aides, tutoriaux et posts passés pas de réponse à cette question :

J'ai une macro toute simple qui recherche un extrait de date dans une colonne de dates :
- l'extrait peut être "01/07"
- et le format de la colonne de dates "jj/mm/aaaa", ex : "01/07/2006"

Voici le code de la macro :
Code:

1 2 3 4 5 6 7 8 9 10 Columns("A:A").Select Set myRange = Selection.Find(What:="01/07", After:=ActiveCell, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False) myRow = myRange.Row myColumn = myRange.Column MsgBox myRow MsgBox myColumn
J'ai fait mumuse avec plein de paramètres, pas moyen d'obtenir une réponse le range renvoyé est nul.

Je pense que la recherche de la séquence texte "01/07" se fait dans la colonne en interprétant chaque cellule comme une cellule au format texte et pas au format Date, contrairement à la recherche manuelle "CTRL + F" qui elle ne se trompe pas.

Quelqu'un aurait-il une idée ?

13/07/2006, 11h54
Coplan

Personne ne connait un moyen de la fonction Find de demander à chercher selon un type de format ?

Merci de votre aide
13/07/2006, 14h39
Coplan

Je n'y arrive pas. Please help !

Au pire si c'est tjrs le même type d'infos que tu cherches tu pourrais mettre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
 
    Dim J As Integer
 
    Do Until left(Worksheets(1).Range("a1").Offset(J, 0).Value,5) = "01/07"
 
        J = J + 1
 
    Loop
 
    MsgBox "L'adresse de la case est :" & Worksheets(1).Range("a1").Offset(J, 0).Address
 
End Sub

13/07/2006, 14h58
Coplan

Bonjour

merci de ta réponse, en effet l'algo est suffisamment le même pour utiliser ta solution qui contourne ma question merci.