Ours masqué
XLDnaute Junior
Bonjour
Je suis en panne de tri.
Je joins la page 1 de mon classeur. Je voudrais, dans une userform qui fonctionne bien par ailleurs, trier ma page 1.
Je voudrais trier l'ensemble de ces données de la façon suivante :
- dans l'ordre des nombres colonne A (pour les nombres <100)
- puis, pour ceux qui n'ont pas de nombre en colonne A, dans l'ordre préférentiel ci-dessous,
- puis remettre en bas les lignes dont le nombre en colonne A est >=100
Jusqu'ici, j'y arrive en mettant en ligne 1 des valeurs dans les cellules A1, D1 et F1. Mais c'est pas très propre et je dois récupérer les cellules A1, D1 et F1 pour éviter que quelqu'un les modifie et pète tout.
Je n'y arrive pas. J'ai cherché dans les AdvancedFilter ou AutoFilter mais sans succès. J'utilise Sort pour l'instant mais je ne sais pas sélectionner la plage de données.
Merci beaucoup pour votre aide.
Ours masqué
Liste pour le deuxième tri :
Application.AddCustomList ListArray:=Array("A8TTC", "A8CR+", "A8CR", "A", _
"B8CR+", "B8CR", "B8PI", "B6CR+", "B6CR", "B6LCR", "B6PI", "B6", "B5CR", "B5LCR", "B5PI", "B5", _
"CLCR", "CPI", "C", "DLCR", "DPI", "D")
Je suis en panne de tri.
Je joins la page 1 de mon classeur. Je voudrais, dans une userform qui fonctionne bien par ailleurs, trier ma page 1.
Je voudrais trier l'ensemble de ces données de la façon suivante :
- dans l'ordre des nombres colonne A (pour les nombres <100)
- puis, pour ceux qui n'ont pas de nombre en colonne A, dans l'ordre préférentiel ci-dessous,
- puis remettre en bas les lignes dont le nombre en colonne A est >=100
Jusqu'ici, j'y arrive en mettant en ligne 1 des valeurs dans les cellules A1, D1 et F1. Mais c'est pas très propre et je dois récupérer les cellules A1, D1 et F1 pour éviter que quelqu'un les modifie et pète tout.
Je n'y arrive pas. J'ai cherché dans les AdvancedFilter ou AutoFilter mais sans succès. J'utilise Sort pour l'instant mais je ne sais pas sélectionner la plage de données.
Merci beaucoup pour votre aide.
Ours masqué
Liste pour le deuxième tri :
Application.AddCustomList ListArray:=Array("A8TTC", "A8CR+", "A8CR", "A", _
"B8CR+", "B8CR", "B8PI", "B6CR+", "B6CR", "B6LCR", "B6PI", "B6", "B5CR", "B5LCR", "B5PI", "B5", _
"CLCR", "CPI", "C", "DLCR", "DPI", "D")