Microsoft 365 Tri et saut de ligne

[homernell]

Bonjour à tous,

Comment beaucoup je refuse chat gpt au profit de vous les humains, et d'ailleurs merci !

J'aimerai dans le fichier joint, faire du tri et éviter un saut de ligne à partir d'une base de données.
Tout est écrit dans le fichier pour les explications.

Merci d'avance.

 

[homernell]

ici cette version pour ajouter le logo PMR sans avoir a copier des images (qui grossissent parfois la taille du fichier)

c'est juste parfait. Merci mille fois

 

[homernell]

Re,
Un essai en PJ. La macro est automatique lorsqu'on sélectionne la feuil2, le tri se fait sur l'horaire de sortie.

Sub Worksheet_Activate()
    Dim DL%, L%, i%, Tablo, Sortie
    DL = Sheets("Data").[D1000].End(xlUp).Row
    Tablo = Sheets("Data").Range("B19:P" & DL)
    ReDim Sortie(1 To 100, 1 To 7)
    [B5:J1000].ClearContents
    L = 1
    For i = 1 To UBound(Tablo)
        If Tablo(i, 1) <> "" Then
            Sortie(L, 1) = Tablo(i, 1)
            Sortie(L, 2) = Right(Tablo(i, 11), 1) ' salle
            Sortie(L, 6) = Sortie(L, 2)
            Sortie(L, 3) = Tablo(i, 15) 'titre
            Sortie(L, 7) = Tablo(i, 15)
            Sortie(L, 5) = Tablo(i, 8)
            L = L + 1
        End If
    Next i
    [B5].Resize(UBound(Sortie, 1), UBound(Sortie, 2)) = Sortie
    Range("B5:H" & L + 4).Sort Key1:=[F5], Order1:=xlAscending, Header:=xlNo
End Sub

j'adore aussi !!! merci

 

[homernell]

ici cette version pour ajouter le logo PMR sans avoir a copier des images (qui grossissent parfois la taille du fichier)

par contre est-il possible d'avoir une case à cocher dans la partie OK de la partie rouge ?

 

[homernell]

Je voulais vous REMERCIER tous pour votre aide dès à présent.

 

[vgendron]

re
avec l'ajout de "case à cocher" ==> ce sont seulement des caractères spéciaux
et une MFC rouge ou verte en fonction du caractères
et un code dans l'évènement "double clic" pour cocher décocher

 

[homernell]

re
avec l'ajout de "case à cocher" ==> ce sont seulement des caractères spéciaux
et une MFC rouge ou verte en fonction du caractères
et un code dans l'évènement "double clic" pour cocher décocher

Alors j'abuse certainement de ta gentillesse mais la feuille sera imprimé serait il possible d'enlever les couleurs des cases cochées, car nous viendrons cocher la case au stylo, il me faudrait juste un carré pour la cocher.

 

[vgendron]

j'ai désactivé le code
je ne l'ai pas supprimé.. au cas ou..
si tu as besoin, vas voir le code (Alt +F11): j'ai mis des commentaires pour l'expliquer

 

[homernell]

j'ai désactivé le code
je ne l'ai pas supprimé.. au cas ou..
si tu as besoin, vas voir le code (Alt +F11): j'ai mis des commentaires pour l'expliquer

Parfait encore merci pour ton aide

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @homernell et @vgendron

J'ai vu ce post un peu tard , la solution étant déjà apportée mais je voulais essayer avec les fonctions matricielles dynamiques d'EXCEL365, alors voilà ma proposition (c'est toujours plus facile quand le boulot à déjà été fait ):
J'ai limité les macros à l'import du fichier de données brutes (j'en profite quand même pour supprimer les mots "SALLE "), les données importées se trouve dans la feuille masquée "Import".
Le reste se fait par formule :
trois noms définis

NomFich	=Accueil!$B$5	Nom du fichier importé
DateJour	=SIERREUR(LET(Col;Import!$B:$B;lgn;MIN(SI(SIERREUR(CNUM(Col)>0;FAUX);LIGNE(Col);LIGNES(Col)+1));INDEX(Col;lgn));"Choisir un fichier dans l'onglet ""Accueil""")	Date des séances ou message d'invite
Liste	=FILTRE(Import!$A:$AG;ESTNUM(Import!$D:$D);"")	liste filtrée des séances

Trois formules
Début des séances

=SIERREUR(INDEX(TRIER(Liste;2);SEQUENCE(LIGNES(Liste));{2.12.16});"")

Fin des séances

=SIERREUR(INDEX(TRIER(Liste;6);SEQUENCE(LIGNES(Liste));{6.12.16});"")

Pictogrammes (case à cocher et PHS)

=SI($F$3="";"";CAR(SEQUENCE(LIGNES($F$3#);2;1;0)*{99.233}))

Mise en forme via des Mises en Forme Conditionnelles (4 au total)

Remarque le tableau des fins de séance est trié dans l'ordre chronologique des fin (et non pas des début de séances.

À bientôt

 

[homernell]

Re,

Désolé pour la réponse tardive mais j'étais en week end
Mais alors la avec le fichier en import c'est juste monstrueux, ou une dinguerie comme dirait mon fils !!

Je vais rajouter une complexité, en tout cas si c'est possible.
En fait j'ai besoin habituellement de la semaine de programmation et non pas que d'un jour, serait il possible de faire pareil avec un fichier complet, voir pj.

Encore mille merci à tous pour votre accompagnement

 

[homernell]

Re,

Désolé pour la réponse tardive mais j'étais en week end
Mais alors la avec le fichier en import c'est juste monstrueux, ou une dinguerie comme dirait mon fils !!

Je vais rajouter une complexité, en tout cas si c'est possible.
En fait j'ai besoin habituellement de la semaine de programmation et non pas que d'un jour, serait il possible de faire pareil avec un fichier complet, voir pj.

Encore mille merci à tous pour votre accompagnement

Avec un onglet pour chaque jour, please

 

[vgendron]

Hello

il aurait été judicieux et bon de donner TOUTE la compléxité dès le début...

 

[AtTheOne]

bonjour à toutes & à tous, bonjour @homernell

En fait j'ai besoin habituellement de la semaine de programmation et non pas que d'un jour, serait il possible de faire pareil avec un fichier complet, voir pj.

Peux tu joindre le l'extraction brute sur une semaine et non pas un fichier retravaillé ...
Merci

Oups pas bien lu le fichier je n'ai rien dit

 

[job75]

Bonsoir à tous,

Le titre du fil c'est Tri et saut de ligne.

Avec cette dernière mouture il n'y a plus de saut de ligne.

Et ce qui est demandé n'est pas un tri mais un filtrage.

A+

 

[vgendron]

Hello @job75
si par dernière mouture tu parles de son fichier post #25, je me suis fait la même réflexion que toi sur les lignes vides.. puis... j'ai vu que ces lignes vides étaient en fait masquées... (genre de piège que j'adore découvrir par moi meme sans que le demandeur ne le signale....)

et pour le filtrage plutot que tri.. j'ai posé la question en #9.... pas eu de réponse...