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.

 

[vgendron]

Bonjour

ta feuille DATA: comment est elle générée? extraction ? ou c'est toi qui la fais à la main?

 

[homernell]

oui c'est une extraction

 

[vgendron]

un début de réponse par macro

 

[homernell]

ça m'a l'air magique

 

[sylvanu]

Bonsoir Homernell, Vgendron,
Un essai en PJ avec :

=INDIRECT("DATA!B"&2*LIGNE()+9)

Par contre pour le tri il faudra passer par du VBA.
NB : Pour les icones "handicapés" vous avez à chaque fois 4 icones identiques superposés.

 

[homernell]

un début de réponse par macro

Déjà le principe de la macro est magique par contre je n'ai plus la mise en forme, est ce normal ?

 

[homernell]

Bonsoir Homernell, Vgendron,
Un essai en PJ avec :

=INDIRECT("DATA!B"&2*LIGNE()+9)

Par contre pour le tri il faudra passer par du VBA.
NB : Pour les icones "handicapés" vous avez à chaque fois 4 icones identiques superposés.

Pour les 4 handicapes ca sent du copier coller sorry !
Ca marche très bien aussi par contre en effet je ne maitrise pas la macro, et le tri est assez important

 

[vgendron]

pour la mise en forme, oui c'est normal, il faut la remettre avec la macro
ici, j'ai juste remis
1) la police et la taille, et en gras
2) le quadrillage bleu avec les bordures
3) le quadrillage rouge avec les bordures

tu parles de tri.. sur quel critère?
les séances sont déjà triées par heure de début.. ne parles tu pas plutot de filtre?

 

[vgendron]

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

 

[job75]

Bonsoir à tous,

Pas vraiment compris, puisque la feuille DATA est une extraction on peut en faire ce qu'on veut non ?

Alors sélectionnez la colonne B => touche F5 => Cellules => Cellules vides => OK

Clic droit sur la sélection => Supprimer => Ligne entière

Sélectionnez la colonne L et avec les touches Ctrl+H supprimez "SALLE ".

Pour finir il suffit ensuite de copier les colonne B F L P vers Feuil2. et trier manuellement.

A+

 

[homernell]

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

Trop hâte de regarder dès que j’arrive chez moi.

Merci vous êtes trop gentil.

 

[homernell]

Bonsoir à tous,

Pas vraiment compris, puisque la feuille DATA est une extraction on peut en faire ce qu'on veut non ?

Alors sélectionnez la colonne B => touche F5 => Cellules => Cellules vides => OK

Clic droit sur la sélection => Supprimer => Ligne entière

Sélectionnez la colonne L et avec les touches Ctrl+H supprimez "SALLE ".

Pour finir il suffit ensuite de copier les colonne B F L P vers Feuil2. et trier manuellement.

A+

Oui mais je voulais que la feuille soit retravaillé dans une mise en forme particulière et sans action à part l’extraction.
Désolé

 

[job75]

En Feuil2 créez un tableau structuré et choisissez le style de mise en forme qui vous plaît.

 

[sylvanu]

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