XL 2010 suivi de production en fonction d'une date

psc · 9 Mai 2021

Bonjour,

Je suis à la recherche d'une astuce pour afficher des données en fonction d'une date.
Je m'explique:
Dans un tableau qui me sert de base de donnée je renseigne des dates de livraison de pièces qui arrivent à différentes date.

Comme vous pouvez le voir dans mon fichier, onglet BDD, ma colonne A renseigne ces pièces et la colonne B renseigne les dates de livraison.
Info: il arrive que plusieurs pièces arrivent le même jour, j'ai donc besoin d'afficher toutes les pièces qui arrivent en fonction de la date selectionnée et non juste la première.

Dans mon deuxieme onglet calendrier j'ai donc le calendrier où je souhaites afficher ces informations.
Je veux donc afficher sur ce calendrier, en placant mon curseur sur une date, les pièces qui seront livrer ce jour la. Grâce à cela je peux avoir une vue d'ensemble des pièces qui vont arriver, et voir quand elles vont arriver.

J'ai deja essayé avec la fonction hyperlink, mais je ne peux afficher qu'une seule pièce et non la totalité des pièces qui vont être livrées le jour selectionnée.
Une autre astuce serait d'afficher les pi7ces qui vont être livrées en celulle N12 par exemple, mais je n'ai pas trouvé d'astuce pour le faire.

Je vous remercie grandement pour votre aide, et vous souhaites une bonne fin de dimanche,

Pierre

sylvanu · 9 Mai 2021

Bonsoir Psc,
Un essai en PJ avec une macro événementielle :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:L32")) Is Nothing Then
        If Target = "" Then Exit Sub
        Range("N1:N1000").ClearContents
        [N1] = Format(Target, "dddd dd mmm"): Ind = 2
        Application.ScreenUpdating = False
        Range("A2:L32").Interior.Color = xlNone
        Target.Interior.Color = RGB(200, 255, 200)
        With Sheets("bbd")
            For L = 2 To .Range("A65500").End(xlUp).Row
                If .Cells(L, "B") = Target Then
                    Cells(Ind, "N") = .Cells(L, "A")
                    Ind = Ind + 1
                End If
            Next L
        End With
    End If
Fin:
End Sub

Il suffit de cliquer sur une date pour que les commandes du jour s'affichent en colonne N.

psc · 10 Mai 2021

Merci pour ta réponse et ta solution qui semble marcher!
J'ai juste un probleme, la macro ne change pas chez moim sais tu me dire pourquoi? la date ne change pas en colonne N lorsque je clique dessus,

En tout cas merci pour ton aide!!!

sylvanu · 10 Mai 2021

Bonjour,
Il ne faut pas cliquer sur la colonne N mais sur un jour du calendrier.
Par ex cliquez sur Dimanche 09 (mai) alors la colonne N se remet à jour.
( j'espère avoir bien compris la demande )

psc · 10 Mai 2021

C'est magnifique !

Ca amrche super merci merci merci!!!!!

sylvanu · 10 Mai 2021

J'ai changé la version. J'espère que vous avez pris la dernière, plus lisible.
Normalement la cellule cliquée devient verte, si ce n'est pas le cas rechargez la version du post #2.

XL 2010 suivi de production en fonction d'une date

psc

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

psc

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

psc

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires