Discussion :

[adv75]

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 :

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

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.

[gFZT82]

Bonjour adv75 ,

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

Essaie avec

Code :

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

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.

[jfontaine]

Bonjour,

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 :

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

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