Discussion :

[Gunsx]

Bonsoir tout le monde,

J'utilise Windows XP Pro 32 Packs 2, Excel est Excel 2003 et Microsoft Visual Basic est de 2001 (version 6.3).

Donc voici le souci : j'utilise la fonction .find et elle ne trouve pas l'expression que je lui demande. Alors qu'elle existe dans la feuille.
J'ai testé avec une autre expression, ça fonctionne bien.

Je cherche une date (juste le mois en fait, écrit en chiffre).

Je ne sais pas comment faire. J'ai lu l'aide de Excel, mais je n'arrive pas à résoudre le souci.

Merci pour les conseils.

[ouskel'n'or]

Bonsoir Gunsx, bienvenue sur le forum.
Quand j'ai un problème de recherche avec les dates, je les transforme en N° de série aussi bien dans la feuille que dans l'écriture de la requête
En supposant tes dates en colonne B, ça donnerait ça :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim LaDate As Date
    Worksheets("Feuil1").Columns(2).EntireColumn.NumberFormat = "0"
    LaDate = "01/02/2009" 'date cherchée
    With Worksheets("Feuil1").Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
        Set c = .Find(CDbl(LaDate), LookIn:=xlValues)
        If Not c Is Nothing Then NoLigne = c.Row
    End With
End Sub

Bonne nuit

[Gunsx]

Salux ouskel'n'or,

merci pour l'aide. Ça fonctionne. Mais le souci :
- je souhaite utiliser la fonction recherche mais pas uniquement pour les dates. Je souhaite aussi l'utiliser pour rechercher des dates (aussi bien que des jours que des mois), des chaines de caractères ainsi que des soldes.
- si c'est possible d'utiliser une seule fonction recherche pour tout. Ça fonctionnait bien jusqu'au jour où j'ai voulu trouver uniquement le mois.

Est-ce possible de le faire sans modifier le format des cellules (ou juste en instantané) ?

dans la ligne "If Not c Is Nothing Then NoLigne = c.Row", c.Row représente c.Address ?

quand je désactive la mise en forme, la recherche ne fonctionne plus. Pourquoi ?

Merci pour les réponses.