Recherche date proche d'une autre date avec condition.

Version imprimable

27/06/2014, 09h15
rico63

1 pièce(s) jointe(s)

Recherche date proche d'une autre date avec condition.

Bonjour,

Je cherche à automatiser une recherche de date : voici ci-dessous la problématique du sujet,
Je dois trouver la date de consommation (Située dans l’onglet Données puis colonne F) la plus proche de la date de réception (Onglet Analyse, Colonne B) tout en tenant compte de l’article situé dans la colonne A de l’onglet Analyse, Il faut également que la date trouvée soit supérieure ou égale à la date de réception située dans la colonne B de l’onglet Analyse.

Je mets à disposition un exemple avec le fichier en pièce jointe.
Merci pour votre aide.

Cordialement.

1 pièce(s) jointe(s)

Bonjour,
Proposition avec VBA

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub RechercheDate()
Dim Compteur As Integer, celA As Range, celD As Range, Code As Variant, dateCons As Date, dateRec As Date
Dim premLigne As Integer, derLigneD As Integer, derLigneA As Integer, Analyse As Range, Données As Range
 
Sheets("Analyse").Activate
'Code et dateRec lus dans la plage AnalyseCode de la feuille Analyse
For Each celA In Range("AnalyseCode")
    Code = celA: dateRec = celA.Offset(0, 1)
'Recherche dans la plage nommée DonnéesCode de la feuille Données
    Sheets("Données").Activate
    For Each celD In Range("DonnéesCode")
    dateCons = celD.Offset(0, 5)
        If celD = Code And celD.Offset(0, 5) >= dateRec Then
            Sheets("Analyse").Activate
            celA.Offset(0, 2) = celD.Offset(0, 5)
            Exit For
        End If
    Next celD
Next celA
Sheets("Analyse").Activate
 
End Sub

Une date est différente ???

Bonjour,

Une autre proposition en VBA, avec une fonction personnalisée,

Mets ça dans un module, puis utilise la fonction Date_superieure avec pour arguments
L'article qui fait la condition
La liste des articles dans la table de données
La date que l'on compare
La liste des dates dans la table de données

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Function Date_superieure(Article As Range, Liste_article As Range, Date_comp As Range, Liste_date As Range) As Variant
Dim Col_article As Collection
Dim i, j, Max_i, Max_j As Long
Dim out As String
Dim c As Variant
Dim min_sup_date As Variant
'Détermination du nombre du plus petit nombre de lignes utilisées dans les plages entre les plages liste_articles
'et liste_date
Max_i = Liste_date.Cells(Liste_date.Rows.Count, 1).End(xlUp).Row - Liste_date.Row
If Liste_article.Cells(Liste_article.Rows.Count, 1).End(xlUp).Rows - Liste_article.Row < Max_i Then
    Max_i = Liste_article.Cells(Liste_article.Rows.Count, 1).End(xlUp).Row - Liste_article.Row
End If
Max_i = Max_i + 1
 
Set Col_article = New Collection
For i = 1 To Max_i
    If Liste_article.Cells(i, 1) = Article Then
        Col_article.Add Liste_date.Cells(i, 1)
    End If
Next i
For Each c In Col_article
    out = out & c.Address & vbCrLf
Next c
 
min_sup_date = 1E+28
For Each c In Col_article
    If c > Date_comp And c < min_sup_date Then
        min_sup_date = c
    End If
Next c
If min_sup_date = 1E+28 Then
min_sup_date = -1
End If
Date_superieure = min_sup_date
 
End Function

Mr Poulpe

27/06/2014, 15h00
rico63

Bonjour,

Merci à vous deux : rjamin et Mr Poulpe pour votre aide et votre solution respective.
Je viens d'essayer les 2 solutions et tout fonctionne comme souhaité.
Vraiment un grand merci.

Cordialement.