Fonction excel: trouver un numéro de ligne

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

J'ai un problème un peu simiaire que celui là et malgré les réponses proposées je n'arrive pas à le résoudre.

Depuis l'onglet "Depletion Forecast Week" j'ai des dates (en ligne) qui correspondent à des lundis et j'ai besoin d'obtenir le numéro de la ligne correspondant à ces date dans l'onglet "Calendar" (dates en colonnes et il y a tous les jours). J'ai essayé un peu dans tous les sens la fonction Find mais je n'y arrive vraiment pas.

Voila ce que j'ai pour l'instant:
Code:

1 2 3 4 5 Dim Dat As Variant Dim cell As Range Dat = Worksheets("Depletion Forecast Week").Range("F3") Set cell = Application.Find(Worksheets("Calendar"), Range("A1:A500"), Dat) Worksheets("Depletion Forecast Week").Cells(4, 6) = cell.Row
Le but étant ensuite de faire une boucle sur tous les lundi de l'onglet Depletion Forecast Week.

Si quelqu'un peut me sauver la vie ou presque...

Un très grand merci d'avance.

Bonjour adv75 ,

Il aurait été préférable que tu ouvres une nouvelle discussion.

Essaie avec

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim Dat As Variant
Dim c As Range
    Dat = Worksheets("Depletion Forecast Week").Range("F3")
    With Worksheets("Calendar").Range("A1:A500")
        Set c = .Find(Format(Dat, "dd/mm/yy;@"), LookIn:=xlValues)
        If Not c Is Nothing Then
            Worksheets("Depletion Forecast Week").Cells(4, 6) = c.Row
        End If
    End With
End Sub

Cordialement.

18/07/2011, 22h37
jfontaine

Bonjour,

Citation:

Le but étant ensuite de faire une boucle sur tous les lundi de l'onglet Depletion Forecast Week.

Tu peux le faire sans macro avec la formule suivante ( a mettre en F4 et faire glisser jusqu'en R4)

Code:

=RECHERCHEV(F$3;Calendar!$A:$C;1;0)-Calendar!$B$2+2