XL 2019 Afficher un texte avec conditions multiples

Yassin9 · 22 Septembre 2022

Bonjour,

J'ai un fichier qui se met à jour automatiquement comme celui-ci ;

8d91d1b6	22/09/2022	2704	PM 05 : MT des soudures	Gwen	10:50:00	boni.gwenael@gmail.com
cbc8e5c1	22/09/2022	2712	Fin	Clement	10:51:00	clemdups98@gmail.com
de35ca3e	22/09/2022	2722	PM 98/99 : Reception des S/E+ DQ234	Gwen	11:31:00	boni.gwenael@gmail.com
415c2329	22/09/2022	2716	PM 98/99 : Reception des S/E+ DQ234	Clement	11:36:00	clemdups98@gmail.com
8b8bc937	22/09/2022	2716	Fin	Clement	12:07:00	clemdups98@gmail.com
bc6e8646	22/09/2022	2704	PM 07 : PA Salle haute	Mathieu	13:38:00	mathieujozwiak59@gmail.com
26cd0f38	22/09/2022	2704	Fin	Mathieu	13:47:00	mathieujozwiak59@gmail.com
9e80d975	22/09/2022	2704	Fin	Gwen	14:04:00	boni.gwenael@gmail.com

Et j'aimerais à coté de "fin" que j'ai par exemple :
Fin PM 07 : PA Salle haute
Pour une tache effectué pour chaque personne, concrètement :

Clément à effectué le "PM 98/99 Réception des S/E + DQ234" à 11h31 et à mis ''fin'' à 12h07 mais j'aimerais afficher ''Fin PM 98/99 Reception des S/E + DQ34'' et pour autre exemple Mathieu à lancer le "PM 07 : Salle haute" à 13h38 et à mis ''fin'' à 13h47 mais j'aimerais afficher ''Fin PM 07 : Salle haute'' et cela pour chaque ligne si l'operateur commence une étape il soit marqué fin + nom de cette étape lorsque qu'il y'a fin.

Ce que j'imagine :

Si on a "fin" + "clément" prendre la dernière tache lancée par clément pour la coller à coté de "fin".

Merci beaucoup : )

sylvanu · 22 Septembre 2022

Bonsoir Yassin,
En PJ un essai avec cette macro :

VB:

Sub FinPlus()
    Application.ScreenUpdating = False
    For L = Range("C65500").End(xlUp).Row To 2 Step -1
        If Cells(L, "C") = "Fin" Then
            Ref = Cells(L, "B")
            For L2 = L - 1 To 1 Step -1
                If Cells(L2, "B") = Ref Then
                    Cells(L, "C") = Cells(L, "C") & " " & Cells(L2, "C")
                    Exit For
                End If
            Next L2
        End If
    Next L
End Sub

Lancer la macro par Alt + F8 puis exécuter FinPlus.
Pensez à valider les macros si ce n'est déjà fait.

PS: Petit problème à la fin car 2 Fin se suivent.

XL 2019 Afficher un texte avec conditions multiples

Yassin9

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes