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

AtTheOne · Hier à 20:34

bonsoir à toutes & à tous, bonsoir @job75 et @vgendron

vgendron à dit:
puis... j'ai vu que ces lignes vides étaient en fait masquées

d'où le

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

et ..

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

un filtre pour exclure les lignes vides mais aussi un tri sur les horaires de sortie (pas dans le même ordre que les horaires d'entrée) pour cela il faut aller piocher dans un encart dans un des fichiers fournis

Bon je me suis attaqué au problème du tableau hebdomadaire toujours dans le même esprit :
Fonctions matricielles dynamiques et une macro juste pour l'import du fichier de données brutes.

C'est un peu plus coton que la demande initiale mais ça fonctionne !

Voir le fichier joint

job75 · Hier à 23:01

Pour la mise en forme on peut se contenter de copier les formats de la feuille "Sheet1".

C'est alors très simple :

VB:

Sub Creer_jours()
Dim w As Worksheet, i&, lig&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("Sheet1")
    For Each w In Worksheets
        If w.Name <> .Name Then w.Delete
    Next w
    For i = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row
        If .Cells(i, 2).Text Like "##/##/####" Then
            Set w = Sheets.Add(After:=Sheets(Sheets.Count))
            ActiveWindow.DisplayGridlines = False 'masque le quadrillage
            w.Name = Format(CDate(.Cells(i, 2)), "dd-mm-yy")
            .Columns("B:AG").Copy w.Cells(1): w.Cells.Clear 'copie les largeurs des colonnes
            .Range("B12:AG12").Copy w.Cells(1)
            lig = 2
        ElseIf .Cells(i, 2).Text Like "##:##" Then
            .Range("B" & i & ":AG" & i).Copy w.Cells(lig, 1)
            lig = lig + 1
        End If
    Next i
    .Activate
End With
End Sub

Edit : ajouté le masquage du quadrillage.

Microsoft 365 Tri et saut de ligne

homernell

XLDnaute Occasionnel

Pièces jointes

vgendron

AtTheOne

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires