Tri de plage

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion m@tix
  • Date de début Date de début

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 !

S'inscrire
M

m@tix

XLDnaute Occasionnel
Bonjour,

Dans mon code VBA, je souhaiterais trier une plage par ordre alphabétique, que j'affiche par la suite dans une liste déroulante sur une cellule. Après une recherche sur le forum, je suis tombé sur une réponse de Pierrot93 (ici), qui semblait convenir à mon cas. En essayant de l'adapter à mon coder, j'ai placé le code suivant :

Code: 
With Sheets("Feuil1")
        Dim pl As Range, g As Byte
        For g = 9 To 8 + indiceR
            Set pl = .Range("F9:F" & 8 + indiceR)
            pl.Sort key1:=Range("F9"), order1:=xlAscending, Header:=xlNo, Orientation:=xlTopToBottom
        Next g
        pl.Name = "thePlage"
End With

ActiveWorkbook.Sheets("Feuil2").Cells(1, 1).Validation.Delete
ActiveWorkbook.Sheets("Feuil2").Cells(1, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=thePlage"
Sans succès... Les noms s'affichent dans la liste selon l'ordre dans lequel ils apparaissent sur la plage.
Voyez-vous d'où peut venir le problème ?

Merci d'avance.
 
Trier par date Trier par votes
Re : Tri de plage

Si tu nous donnais un bout de fichier pour tester en montrant un exemple significatif des difficultés qui peuvent se rencontrer, ce serait beaucoup plus constructif pour tout le monde. Je ne viens que maintenant de comprendre vraiment (enfin je crois !) ce que tu veux.

je te joins un classeur exemple pour illustrer comment par formule générer une liste d'éléments uniques triés par ordre alpha et l'utiliser dans une liste de validation.

Sans fichier exemple de ta part, en ce qui me concerne je m'arrête là.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Tri de plage

Bonjour le fil, le forum,

J'ai bien compris que vous voulez faire un tri uniquement pour obtenir la liste de validation.

Alors pourquoi ne pas utiliser une colonne A masquée qui ne servira qu'à ça ?

Code: 
Sub tri()
Dim n As Long, pl As Range
n = 4 'à adapter, doit être > 0
With Sheets("Feuil1")
  Set pl = .Range("A1").Resize(n)
  .Columns(1).ClearContents 'RAZ
  .Range("B1").Resize(n).Copy pl 'copier-coller
  pl.Sort pl, xlAscending, Header:=xlNo 'tri
  pl.Name = "thePlage"
  .Cells(1, 3).Validation.Delete
  .Cells(1, 3).Validation.Add xlValidateList, Formula1:="=thePlage"
End With
End Sub
Ensuite on ne touche plus à la colonne A.

Fichier joint.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Tri de plage

Re,

Dans la liste que construit la macro de pierrejean, la virgule est indispensable comme séparateur.

Comme il y en a dans vos noms, ça met le pataquès bien sûr.

Mais il suffit de les remplacer par de "fausses" virgules, de code 130 :

Code: 
Sub tri1()
pl = ActiveSheet.Range("A1:A4")
For n = LBound(pl) To UBound(pl)
  For m = LBound(pl) To UBound(pl)
     If pl(m, 1) > pl(n, 1) Then
        temp = pl(m, 1)
        pl(m, 1) = pl(n, 1)
        pl(n, 1) = temp
     End If
  Next
Next
For n = LBound(pl) To UBound(pl)
 liste = liste & Replace(pl(n, 1), ",", Chr(130)) & ","
Next n
Sheets("Feuil1").Cells(1, 2).Validation.Delete
Sheets("Feuil1").Cells(1, 2).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Left(liste, Len(liste) - 1)
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Tri de plage

Re,

Il faut savoir encore une chose, classique avec les listes de validation.

La liste construite par la macro de pierrejean est limitée à un certain nombre de caractères (environ 200).

Essayez avec une liste un peu longue...

A+
 
Vote positif 0 Vote négatif
Re : Tri de plage

Re
le probleme est du au fait que la liste est delimitée par des , (virgules) et s'il y en a dans les termes qui la composent elles s'ajoutent
une solution consiste a les eliminer au préalable ce qui donnerait

Code: 
[FONT=monospace]Sub tri1()
pl = ActiveSheet.Range("A1:A4")
For n = LBound(pl) To UBound(pl)
  For m = LBound(pl) To UBound(pl)
     If pl(m, 1) > pl(n, 1) Then
        temp = pl(m, 1)
        pl(m, 1) = pl(n, 1)
        pl(n, 1) = temp
     End If
  Next
Next
For n = LBound(pl) To UBound(pl)
 liste = liste & replace(pl(n, 1),"," " ") & ","
Next n
Sheets("Feuil1").Cells(1, 2).Validation.Delete
Sheets("Feuil1").Cells(1, 2).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Left(liste, Len(liste) - 1)
End Sub[/FONT]

A l'utilisation il conviendra de la restituer par un replace(valeur," ", ",") si necessaire
Si la valeur comporte deja des espaces revient avec des exemples et on regardera ce qu'il convient de faire
La solutionde David est effectivement meilleure (elimination des doublons et rapidité d'execution) mais elle pose le même probleme

Edit: Salut ami Job
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Tri de plage

Bonjour,
pour gérer cette histoire de noms et prénoms séparés par une virgule, remplacer simplement
MonDico(c.Value) = ""
Cliquez pour agrandir...
par
MonDico(Replace(c.Value, ",", "")) = ""
Cliquez pour agrandir...
@M@tix : avec plus de 100 message à ton actif, je trouve dommage que tu ne sois pas capable de comprendre par toi-même de la nécessité pour toi et les bénévoles qui tentent de t'aider de placer un fichier exemple explicite.
A+
 
Vote positif 0 Vote négatif
Re : Tri de plage

Re, salut à vous pierrejean et David 🙂

Pour compléter la solution de mon post #18...

Si l'on ne veut pas de colonne auxiliaire en Feuil1, mettons-la en Feuil2 :

Code: 
Sub tri()
Dim n As Long, pl As Range
n = 4 'à adapter, doit être > 0
Set pl = Sheets("Feuil2").Range("A1").Resize(n)
pl.EntireRow.ClearContents 'RAZ
With Sheets("Feuil1")
  .Range("A1").Resize(n).Copy pl 'copier-coller
  pl.Sort pl, xlAscending, Header:=xlNo 'tri
  pl.Name = "thePlage"
  .Cells(1, 2).Validation.Delete
  .Cells(1, 2).Validation.Add xlValidateList, Formula1:="=thePlage"
End With
End Sub
Fichier (2).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Tri de plage

Re,

Noter qu'à la place du Copier-Coller on peut entrer une formule de liaison :

Code: 
Sub tri()
Dim n As Long, pl As Range
n = 4 'à adapter, doit être > 0
Set pl = Sheets("Feuil2").Range("A1").Resize(n)
pl.EntireRow.ClearContents 'RAZ
With Sheets("Feuil1")
  pl.FormulaR1C1 = "='" & .Name & "'!RC" 'formule de liaison
  pl.Sort pl, xlAscending, Header:=xlNo 'tri
  pl.Name = "thePlage"
  .Cells(1, 2).Validation.Delete
  .Cells(1, 2).Validation.Add xlValidateList, Formula1:="=thePlage"
End With
End Sub
Edit : guillemets anglais dans la formule au cas où il y a des espaces dans le nom de la feuille.

Fichier (3).

Avec toutes ces solutions on devrait avoir fait le tour de la question, non ?

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Tri de plage

Et non ce n'est pas fini 🙂

Sans passer par une autre colonne, cette méthode qui utilise les collections
-récupère les éléments de la plage de départ, qui peut contenir des doublons
- élimine les doublons
- trie la liste par ordre alphabétique
- injecte les éléments de la liste triée dans une listbox
Y'a pu qu'à appuyer sur le bouton pour choisir un élément dans la liste triée et sans doublon et le réinjecter dans la feuille à l'endroit de son choix.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Tri de plage

Re
@Misange : par formule, proposition pour un tri multicolonne trié sans doublon :
Code: 
=INDEX(produit;EQUIV(PETITE.VALEUR(SI(EQUIV(produit&Qté;produit&Qté;0)=LIGNE(INDIRECT("1:"&LIGNES(Qté)));NB.SI(produit;"<"&produit)+NB.SI(Qté;"<"&Qté)*10^2);LIGNE(1:1));NB.SI(produit;"<"&produit)+NB.SI(Qté;"<"&Qté)*10^2;0))
Code: 
=INDEX(Qté;EQUIV(PETITE.VALEUR(SI(EQUIV(produit&Qté;produit&Qté;0)=LIGNE(INDIRECT("1:"&LIGNES(Qté)));NB.SI(produit;"<"&produit)+NB.SI(Qté;"<"&Qté)*10^2);LIGNE(1:1));NB.SI(produit;"<"&produit)+NB.SI(Qté;"<"&Qté)*10^2;0))
A+
 
Vote positif 0 Vote négatif
Re : Tri de plage

Re David
OK !
en fait c'est la notion de "doublon" qui m'avait échappé 🙂
en effet ta formule renvoie plusiers produits identiques, plusieurs quantités identiques mais un seul type de couple (produit,quantité)
Je peux ajouter au classeur (avec auteur cité bien sur) avant de mettre en ligne sur excelabo ?
 
Vote positif 0 Vote négatif
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

P
  • Résolu(e)
Microsoft 365 Validation des données avec VBA
2
Réponses
16
Affichages
343
pat66
P
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
K
  • Question Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
375
vgendron
vgendron
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
459
Abi23
A
Y
  • Résolu(e)
XL 2013 Surligner une ligne si curseur sur la ligne et dans une zone définie
Réponses
2
Affichages
509
Yvan1
Y
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
Dranreb
R
  • Question Question
XL 2019 Demande à la macro de chercher et de remplir automatiquement jusqu'à la dernière valeur
Réponses
1
Affichages
551
Aya_flo
A
P
  • Résolu(e)
Microsoft 365 Cellule avec liste déroulante ou pas, sous condition par macro
Réponses
5
Affichages
609
pat66
P
C
  • Résolu(e)
XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés
2
Réponses
18
Affichages
1 K
Phil69970
Phil69970
D
  • Résolu(e)
Microsoft 365 Validation des données avec formule + liste déroulante dans la même cellule
Réponses
8
Affichages
995
de_hanstrapp
D
E
  • Question Question
XL 2013 sélection plage de cellule en fonction de valeur
Réponses
3
Affichages
604
erics83
E
FRYS
  • Question Question
Microsoft 365 Retrouver les dépendants de cellules nommées
Réponses
6
Affichages
575
crocrocro
C
Y
  • Question Question
Microsoft 365 récupérer données de tableau structuré sur une plage
Réponses
2
Affichages
638
jpb388
jpb388
M
  • Résolu(e)
XL 2016 comment créer une Barre de défilement ou faire simplement défiler son texte ?
2
Réponses
25
Affichages
2 K
melltel
M
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
AtTheOne
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
925
oguruma
oguruma
T
  • Question Question
XL 2019 VBA: Effacer le contenu de plages de cellules avec critères
Réponses
5
Affichages
2 K
tiitii60
T
N
  • Question Question
XL 2016 Recherche dans une macro pour changer la plage de données où importer
Réponses
5
Affichages
671
vgendron
vgendron
I
  • Question Question
XL 2019 (RESOLU) Date de dernière modification d'une plage de cellule
Réponses
3
Affichages
1 K
patricktoulon
patricktoulon
cathodique
  • Résolu(e)
XL 2010 CountA par ligne d'une plage
Réponses
6
Affichages
718
cathodique
cathodique
Retour