Microsoft 365 Tri et saut de ligne

homernell · Jeudi à 16:20

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.

vgendron · Vendredi à 12:00

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 · Jeudi à 23:48

vgendron à dit:
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 · Jeudi à 23:51

sylvanu à dit:

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

VB:

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 · Jeudi à 23:52

vgendron à dit:
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 · Jeudi à 23:54

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

vgendron · Vendredi à 10:39

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 · Vendredi à 11:43

vgendron à dit:
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 · Vendredi à 12:00

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 · Vendredi à 18:18

vgendron à dit:
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 · Hier à 17:26

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

VB:

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

Fin des séances

VB:

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

Pictogrammes (case à cocher et PHS)

VB:

=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 · Aujourd'hui à 13:36

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 · Aujourd'hui à 13:36

homernell à dit:
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 · Aujourd'hui à 14:38

Hello

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

AtTheOne · Aujourd'hui à 16:41

bonjour à toutes & à tous, bonjour @homernell

homernell à dit:
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 · Aujourd'hui à 19:27

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 · Aujourd'hui à 20:09

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...

Microsoft 365 Tri et saut de ligne

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Accro

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires