Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Tri et saut de ligne

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

homernell

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

Pièces jointes

Bonsoir Homernell, Vgendron,
Un essai en PJ avec :
VB:
=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.
 

Pièces jointes

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

Pièces jointes

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

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
182
Réponses
22
Affichages
878
Réponses
5
Affichages
283
Réponses
4
Affichages
221
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…