XL 2021 tri par lignes

rastafouette · Dimanche à 10:25

Bonjour à tous,

Voilà, j'ai une macro qui remplit un tableau avec les noms sur la ligne 5 et en dessous de chaque nom, ce que chacun a selectionné, ou pas (=> certaines colonnes ont un nom mais sont vides)
=> Je voudrais trier comme ça : que les colonnes non vides se regroupent sur la gauche, en ordre alphabetique, et les autres ensuite.
Le tout dans une macro

Pour le detail supplémentaire, dans le deroulement de ma macro, lorsqu'un nom s'ajoute, je voudrais l'ajouter en fin de ligne 5, sur la dernière cellule vide, avec ses choix en dessous, Puis ensuite, trier comme ci-dessus. Et ça je tourne autour sans y arriver : simplement trouver la dernière cellule vide de la ligne.

Merci d'avance de votre aide !

job75 · Mercredi à 01:03

Bonsoir,

rastafouette à dit:
Ce que je cherche à faire, que je voudrais automatique (via une formule(?) mais je ne trouve pas), c'est le fait de passer du tableau bleu au tableau vert en dessous ( que je mets dans un autre onglet, dans les faits), c'est à dire, qque soit ce qu'on modifie/rajoute dans le bleu, le vert se mets à jour (ordre alphabetique des personnes).

Cette macro fait cela après le tri :

VB:

Sub Trier()
Dim dercol%, P As Range, derlig&, lig&, j%, i&
Application.ScreenUpdating = False
With Sheets("aaaa")
    dercol = .Cells(5, .Columns.Count).End(xlToLeft).Column
    Set P = .Range("F4", .[F:F].SpecialCells(xlCellTypeFormulas)).Offset(, 1).Resize(, dercol - 6)
End With
derlig = P.Row + P.Rows.Count - 1
P.Rows(1) =...

job75 · Mercredi à 11:13

Il faut étudier chaque colonne du tableau, c'est peut être possible par formule mais ce sera très lourd.

rastafouette · Mercredi à 14:36

job75 à dit:
Il faut étudier chaque colonne du tableau, c'est peut être possible par formule mais ce sera très lourd.

Lourd même si on limite le tableau à 15 lignes et 30 colonnes ? Et au grand max 3 sélections "1" par colonne ?

rastafouette · Mercredi à 18:13

Re
@job75 , j'ai adapté la macro sur mon fichier.

Pourquoi, après exécution, le undo ne fonctionne plus ?

job75 · Mercredi à 20:34

rastafouette à dit:
Pourquoi, après exécution, le undo ne fonctionne plus ?

Voyez l'Aide Excel :

Méthode Application.Undo (Excel)

07/04/2023

Cette méthode annule la dernière opération commandée à partir de l'interface utilisateur.

Syntaxe
expression. Annuler

expressionUne variable qui représente un objetApplication.

Remarques
Cette méthode n'annule que la dernière opération commandée par l'utilisateur avant l'exécution de la macro et doit figurer en première ligne dans la macro. Elle ne peut être utilisée pour annuler des commandes Visual Basic.

rastafouette · Hier à 17:09

job75 à dit:
Voyez l'Aide Excel :

Merci. Je n'avais jamais fait gaffe à ça en fait, et je pensais que c'était un bug.

XL 2021 tri par lignes

rastafouette

XLDnaute Occasionnel

Pièces jointes

job75

job75

XLDnaute Barbatruc

rastafouette

XLDnaute Occasionnel

rastafouette

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Méthode Application.Undo (Excel)

Syntaxe

Remarques

rastafouette

XLDnaute Occasionnel

Discussions similaires

XL 2021 tri par lignes

rastafouette

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

rastafouette

XLDnaute Occasionnel

rastafouette

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Méthode Application.Undo (Excel)​

Syntaxe​

Remarques​

rastafouette

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency

Méthode Application.Undo (Excel)

Syntaxe

Remarques