onglet récapitulatif

[cedryyk]

Bonjour,

je vous expose mon petit problème en espérant que vous trouverez une solution.

Voilà, j'ai un fichier avec plusieurs onglets, chaque onglet correspond à un service avec des taches à effectuer. Je souhaiterai créer une feuille récapitulative où il apparaitrai les taches qui ne sont pas encore effectuées. En effet dans chaque feuille, une case "effectué le" est présente, ce qui permet de savoir si la commande est faite ou pas.
De plus, je souhaiterai que dans ce récapitulatif les taches en cours soient classées par date (de la plus proche à la plus lointaine) et non pas par service.
J’espère que mes explications sont assez claires, sinon, n'hésitez pas à me demander plus d'informations, je vous joint mon fichier à ce message.

En vous remerciant par avance de votre précieuse aide, je vous souhaite à tous une bonne journée.

Cédric

 

[Papou-net]

Re : onglet récapitulatif

Bonsoir cedryyk,

Ci-joint une copie de ton fichier avec un bouton de Mise-à-jour sur la feuille "Récap".

Le tri se fait par date en colonne A puis en colonne C.

Espérant avoir répondu.

Cordialement.

 

[cedryyk]

Re : onglet récapitulatif

Bonjour Papou-net,

déjà un grand merci pour ton aide.
Ce que tu as fait correspond totalement à ma demande, par contre, et c'est ma faute, en l'utilisant je m’aperçois qu'il me manque une donnée importante sur mon récap. En effet, dans la feuille de récap il me semble important de savoir à quel espace est dédié la commande (Accueil, Ados, ELC, Famille, Médiation, PIJ, Socialisation).
J'ai donc rajouté une colonne dans le récap, mais je ne sais pas comment faire pour que le nom des espaces s'inscrivent. J'ai joint ton fichier retouché.

Encore merci pour ton aide...

Cédric

 

[cedryyk]

Re : onglet récapitulatif

Ah oui, j'avais oublié... pour le tri par date j'aurai souhaité un tri par rapport à la colonne "retour souhaité le".

Cordialement

Cédric

 

[CHALET53]

Re : onglet récapitulatif

bonjour,

j'avais préparé ceci. Comme Papounet avait été plus rapide que moi, je ne l'avais pas envoyé
Améliorable

 

[Papou-net]

Re : onglet récapitulatif

Bonjour cedryyk, CHALET53,

Re cedryyk,

Pour répondre à tes demandes, modifie la macro comme suit :

Private Sub CommandButton1_Click()
Dim sh As Worksheets, n As Byte, Cel As Range
On Error Resume Next
Sheets("Récap").Range("A5:D40").ClearContents
For n = 1 To Sheets.Count - 1
  With Sheets(n)
    For Each Cel In .Range("A5:A40").SpecialCells(xlCellTypeConstants)
      If .Cells(Cel.Row, 4) = "" Then
        lg = Sheets("Récap").Range("A65536").End(xlUp).Row + 1
        Sheets("Récap").Range("A" & lg).Value = .Range("A" & Cel.Row).Value
        Sheets("Récap").Range("B" & lg).Value = .Name
        Sheets("Récap").Range("C" & lg & ":D" & lg).Value = .Range("B" & Cel.Row & ":D" & Cel.Row).Value
      End If
    Next
  End With
Next
Range("A4:D40").Sort Key1:=Range("D5"), Order1:=xlAscending, Key2:=Range("A5") _
  , Order2:=xlAscending, Key3:=Range("B5"), Order3:=xlAscending, Header:= _
  xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
End Sub

Bonne journée.

Cordialement.

 

[cedryyk]

Re : onglet récapitulatif

re bonjour, à tout les deux,

Papou-net ta macro correspond exactement à ce que je souhaitais, mieux, je ne l'aurai pas supporté... 😉

Merci beaucoup à vous deux pour votre aide rapide et précieuse.

Je vous souhaite une bonne journée et de bonnes fêtes de fin d'année.

Cédric