Probleme avec la methode Find

Version imprimable

Bonjour à tous.

J'aurais besoin d'aide.
J'ai beaucoup de difficultés avec le language VBA.

Merci d'avance à ceux qui pourront m'aider.

J'ai une variable DateValeur contenant une date.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'Je suis sur un classeur. 'Ma colonne A contient des dates. 'Et je me place sur la ligne contenant la date du jour. With Worksheets("Feuil1") .Activate .Columns(1).Find(Date).Select End With 'Je stock le numero de cette ligne dans une variable car j'en aurais besoin. Num_lign = ActiveCell.Row 'Je verifie que c'est bien la date du jour MsgBox Num_lign
Je cherche alors a balayer ma colonne A à partir de la cellule contenant la date du jour avec un pas de -1(Donc jusqu'à la cellule A1) .
Et je veux trouver la cellule ou il y a la date DateVAleur.

Savez vous comment je dois m'y prendre.
J'ai essayé avec ça :
Code:

1 2 ActiveCell.Select Selection.Find(What:=Date_de_Valeur, After:=ActiveCell, LookAt:=xlWhole, SearchDirection:=xlPrevious).Activate
Mais ça ne fonctionne pas.
C'est probablement parce que je ne sais pas utiliser la methode find.

Selection.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection,
MatchCase, MatchByte)

Je commence tout juste a manipuler le language VBA.
Et j'ai plus de difficultés que ce à quoi je m'attendais.

Merci de votre aide et de votre compréhension.
Cordialement.

Bonjour

Une proposition

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim c As Range
Dim Num_Lig As Long
 
With Sheets("Feuil1")
    Set c = .Range("A:A").Find(Date, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        Num_Lig = c.Row
        Set c = Nothing
    End If
    If Num_Lig > 0 Then
        MsgBox Num_Lig
        'Suite de ton code
    Else
        MsgBox "Date inéxistante"
    End If
End With

24/06/2011, 13h48
hortencia

Bonjour mercatog.

Tout d'abord merci de ta réponse.

Mais ce n'est pas ce que je cherche.
Je me suis probablement mal exprimé.

Ce code me trouve la date du jour.
J'ai déjà fais le code pour trouver la date du jour.

J'ai une colonne A ou il y a que des dates.
Je me suis placé dans la cellule contenant la date du jour.
ie : 24/06/2011

Et voila mon problème :
Je voudrais remonter la colonne(car la date à trouver est toujours inférieur à la date du jour) et trouver la cellule ou il y a la date 16/06/2001 par exemple.
Cette date étant contenu dans une variable nommé Date_de_Valaur par exemple.

J'ai essayer de construire ça avec FIND mais je n'y parviens pas.
Pourrais tu m'aider s'il te plaît???

Et merci encore de prendre le temps de me répondre.

Cordialement.
24/06/2011, 13h55
jfontaine

Bonjour,

En te basant sur le code de Mercatog, as-tu essayé de remplacer "Date" (ligne 5) par ta variable "Date_de_Valaur" ?
24/06/2011, 14h13
hortencia

Oui, ça marche très bien.
Merci beaucoup.

Mais dans ce code.
On balaye toute la colonne A.
Est ce que si la date se trouve sur la ligne 60000 par exemple ma macro ramera.

En fait étant donné que la date recherché est toujours très proche de la date du jour et toujours un peu avant, je pensais que partir de la date du jour serait plus rapide et plus judicieux.

Mais je vous avouerais que je n'ai pas assez manipulé VBA pour savoir ce genre de chose.
Est ce que plus les lignes à balayer sont nombreuses et plus la macro met du temps à tourner?????

Cordialement.