Récupérer données

Le 08/01/2018 à 20:16

Bonjour le forum

Dans le fichier joins j'aimerai récupérer des données (Consignes) en Cellule H7 (fusionné, pour info) qui se trouve en feuille Consigne (colonne B) par rapport à la date, svp.

Soit par formule ou macro, peu importe .. simplement le plus efficace.

Merci

Cdlt pompaero.

7consignes.xlsx (21.04 Ko)

Le 08/01/2018 à 20:28

Bonjour,

un simple RECHERCHEV

=SIERREUR(RECHERCHEV(B2;Consigne!A:B;2;0);"Pas de consigne particulière")

8consignes.xlsx (21.14 Ko)

Le 08/01/2018 à 20:56

Bonsoir Steelson

Merci de ta contribution.

Ok pour le RechercheV, mais le soucis c'est qu'il y peu avoir plusieurs consignes sur une même date et la on en récupère une. Comment peut'on faire ?

Le 09/01/2018 à 04:43

Function consignes(cel As Range) As String
Application.Volatile
consignes = ""
    With Sheets("consigne")
        For i = 2 To .[A1].End(xlDown).Row
            If .Cells(i, 1) = cel.Value Then
                consignes = consignes & .Cells(i, 2) & vbCrLf
            End If
        Next i
    End With
End Function

8consignes.xlsm (27.39 Ko)

Le 09/01/2018 à 11:28

Bonjour Steelson

Merci pour ton code, c'est parfais. J'essai d'adapter tout cela sur mon petit programme que j'eessai de construire.

Je mets résolu pour le moment et si besoin j'ouvrirai un autre post.

Grand merci

Cdlt

pompaero