Microsoft 365 NBSI date en jour semaine

[leoronaldo]

Bonjour à tous et une bonne année 2022.

je viens vers vous afin de savoir s'il y a un moyen simple de remplir un calendrier en fonction des jours de la semaine par rapport à plusieurs critères.

j'ai une feuille bdd avec:

j'ai une autre feuille avec le nombre de livraison (liv) par personnes en lien avec la bdd sur l'année X (2021 dans l'exemple) et un calendrier a remplir.

et ensuite je souhaite remplir le calendrier par jours et mois et c'est la que j'ai des difficultés.

exemple au dessus Mario = 5 livraison , j'aimerais les identifier sur le tableau

Avez vous une idée ?

merci

 

[leoronaldo]

Bonjour,

Est il possible d'avoir dans la macro compare en plus du NO dans la feuille "test" d'avoir le thème de la feuille "bdd" dans la colonne après le No (F)

si cela n'est pas trop compliqué merci

 

[M12]

Bonsoir,
Rien compris à la demande

avoir le thème de la feuille "bdd" dans la colonne après le No (F)

 

[leoronaldo]

Bonsoir,
dsl c'est mieux je pense avec le fichier.
la ligne en jaune sur l'onglet test en colonne F

 

[M12]

Ok, je regarderai cela

 

[M12]

Bonjour,
A tester

 

[leoronaldo]

Bonjour, un grand merci c'est TOP

 

[leoronaldo]

Bonjour,
je reviens vers vous concernant les doublons en BDD.
je vous joint un fichier avec un code, mais j'aimerais le modifier afin de mettre chaque doublons d'une couleur différente et si possible un msgbox a la fin pour dire si "aucun doublons trouvé" ou "X doublons trouvé".

et je crois pour accéléré la requête (si 10000 lignes) il faut utiliser "Scripting.Dictionary"?

Sub Doublons()
    Dim DL%, L1%, L2%, Doublon%, Trouvé%
    Application.ScreenUpdating = False
    DL = Range("B65500").End(xlUp).Row
    Range("B4:F" & DL).Interior.ColorIndex = xlNone
    Range("G4:G" & DL).ClearContents
    Doublon = 1
    For L1 = 2 To DL
        Trouvé = 0
        For L2 = L1 + 1 To DL
                        If Cells(L2, "B") = Cells(L1, "B") And Cells(L2, "C") = Cells(L1, "C") Then  ' Doublons DATE NOM
                        Range(Cells(L2, "B"), Cells(L2, "F")).Interior.Color = RGB(255, 242, 204)
                        Range(Cells(L1, "B"), Cells(L1, "F")).Interior.Color = RGB(255, 242, 204)
                            If Cells(L2, "G") = "" Then
                                Cells(L1, "G") = Doublon: Cells(L2, "G") = Doublon: Trouvé = 1
                            End If
                End If
        Next L2
        If Trouvé = 1 Then Doublon = Doublon + 1
    Next L1
End Sub