Discussion :

[Coplan]

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 :

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

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 ?

[Coplan]

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

Merci de votre aide

[Coplan]

Je n'y arrive pas. Please help !

[conconbrr]

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

Code :

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

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

[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.