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

problème VBA Tri liste personnalise

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fred94000
  • 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
F

fred94000

XLDnaute Junior
Bonsoir à tous et le forum,
Je me permet de vous sollicité une fois de plus, y a t-il un autre moyen pour trier une liste de nombres. Les nombres entiers en premier et en fin les décimaux?
voir exemple fichier
La macro ci dessous ne fonctionne pas?

Sub tri()
Dim Num_List As Byte
On Error Resume Next
Num_List = Application.GetCustomListNum(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20",, "24", "25", "26", "27", "2 "21", "22", "23"8", "29", "30", _
31, "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", _
100, "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "200", "201", "202", "203", "204", "205", "240", "241", "242", "243", "244", "245"))
If Num_List = 1 Then
Application.AddCustomList ListArray:=Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", _
31, "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", _
100, "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "200", "201", "202", "203", "204", "205", "240", "241", "242", "243", "244", "245")
Num_List = Application.CustomListCount
End If
Feuil1.Range("A4:a600").Select
Selection.Sort Key:=Range("a4"), Order:=xlAscending, Header:=xlGuess, _
OrderCustom:=n, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


Dans l'attente merci
 

Pièces jointes

Trier par date Trier par votes
Re : problème VBA Tri liste personnalise

Bonsoir,
à tester (supprimer les 1ères lignes de manière à avoir l'entête "Services" en A1) :
Code: 
Sub trier()
Dim Pl As Range, i As Long
Application.ScreenUpdating = False
Set Pl = Range("A1").CurrentRegion
Columns(1).Insert
Range("A1").Resize(Pl.Rows.Count) = Pl.Value
For i = 2 To Pl.Rows.Count
If Cells(i, 1).Value <> Int(Cells(i, 1).Value) Then
  Cells(i, 1).Value = 1000000000 + Cells(i, 1).Value
End If
Next i
[A1].Sort key1:=[A1], Order1:=xlAscending, Header:=xlGuess
Columns(1).Delete Shift:=xlToLeft
Application.ScreenUpdating = True
End Sub
A+
 
Vote positif 0 Vote négatif
Re : problème VBA Tri liste personnalise

bonsoir david84 et le forum,

bug sur la ligne en rouge

Sub tri()
Dim Pl As Range, i As Long
Application.ScreenUpdating = False
Set Pl = Range("A1").CurrentRegion
Columns(1).Insert
Range("A1").Resize(Pl.Rows.Count) = Pl.Value
For i = 2 To Pl.Rows.Count
If Cells(i, 1).Value <> Int(Cells(i, 1).Value) Then
Cells(i, 1).Value = 1000000000 + Cells(i, 1).Value
End If
Next i
[A1].Sort key1:=[A1], Order1:=xlAscending, Header:=xlGuess
Columns(1).Delete Shift:=xlToLeft
Application.ScreenUpdating = True
End Sub

merci d'avoir regardé mon post
 
Vote positif 0 Vote négatif
Re : problème VBA Tri liste personnalise

bonsoir staple1600, david84 et le forum,
effectivement après modif, cela fonctionne mais une erreur dans la fin du tri cellule A45
je vous joins le fichier vous n'avez qu'a cliquez sur le bouton.
merci encore
 

Pièces jointes

Vote positif 0 Vote négatif
Re : problème VBA Tri liste personnalise

Re

Non il n'y a pas d'erreur si on traite la colonne A, sans modifier la macro de david
On commence à la ligne 2 (pas à la ligne 5)
Puisque comme déjà signalé!
supprimer les 1ères lignes de manière à avoir l'entête "Services" en A1
Sub tri()
Dim Pl As Range, i As Long
Application.ScreenUpdating = False
Set Pl = Range("A1").CurrentRegion
Columns(1).Insert
Range("A1").Resize(Pl.Rows.Count) = Pl.Value
For i = 2 To Pl.Rows.Count
If Cells(i, 1).Value <> Int(Cells(i, 1).Value) Then
Cells(i, 1).Value = 1000000000 + Cells(i, 1).Value
End If
Next i
[A1].Sort key1:=[A4], Order1:=xlAscending, Header:=xlGuess
Columns(1).Delete Shift:=xlToLeft
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Re : problème VBA Tri liste personnalise

Re staple1600, David84
bien compris exécution impeccable, donc il m'est impossible de rajouter des lignes en début de tableau?
fonctionne très bien.

grand MERCI à vous deux
 
Vote positif 0 Vote négatif
Re : problème VBA Tri liste personnalise

Re

Si. C'est possible.
Le plus simple serait d'ajouter les lignes après avoir exécuter la macro de tri.
ou alors il faut écrire la macro autrement (utiliser une autre syntaxe que CurrentRegion)
 
Vote positif 0 Vote négatif
Re : problème VBA Tri liste personnalise

Bonjour à tous,
donc il m'est impossible de rajouter des lignes en début de tableau?
Cliquez pour agrandir...
si mais après il suffit d'adapter, par exemple :
Code: 
Sub tri()
Dim Pl As Range, i As Long
Application.ScreenUpdating = False
Set Pl = Range("A4").CurrentRegion
Columns(1).Insert
Columns(2).Copy Columns(1)
For i = 2 To Pl.Rows.Count
If Pl(i).Value <> Int(Pl(i).Value) Then
  Pl(i).Value = 1000000000 + Pl(i).Value
End If
Next i
[B4].Sort key1:=[B4], Order1:=xlAscending, Header:=xlGuess
Columns(2).Delete Shift:=xlToLeft
Application.ScreenUpdating = True
End Sub
Il y a bien sûr d'autres possibilités comme celui de passer par deux Arrays (un pour les nombres entiers l'autre pour les nombres décimaux que l'on triera séparément et que l'on replacera ensuite dans la feuille). Traitement sûrement plus rapide sur des données importantes mais plus difficile à comprendre si tu n'es pas familiarisé avec le VBA.
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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)
XL 2013 VBA problème de tri entre versions d'Excel
Réponses
2
Affichages
1 K
Ptrs32
P
L
  • Question Question
Microsoft 365 Problème erreur range
Réponses
11
Affichages
2 K
LaSimonerie
L
  • Question Question
XL 2010 Une fonction qui sature
Réponses
8
Affichages
2 K
Magic_Doctor
  • Suggestion Suggestion
Date et heure NomJourSemaineTrip
Réponses
9
Affichages
2 K
Magic_Doctor
L
  • Question Question
XL 2013 Aide VBA
Réponses
4
Affichages
1 K
LAC736
L
  • Question Question
simplifier une longue...très longue formule
Réponses
4
Affichages
1 K
halecs93
  • Question Question
[RESOLUTO]Simplifier un code
Réponses
2
Affichages
827
Ilino
R
  • Question Question
Macro masquant automatiquement lignes f(x) des cellules nulles (0) d'1 autre colonne
Réponses
6
Affichages
1 K
rendan2
R
T
  • Question Question
Afficher valeur selon la valeur de la cellule de gauche
Réponses
12
Affichages
1 K
titom59280
T
M
  • Question Question
Macro trop longue
Réponses
6
Affichages
2 K
Tirou
T
  • Question Question
boucle pour numéroter ligne si elle contien des infos et commencer num depuis une val
Réponses
9
Affichages
2 K
iStarOSX
B
  • Question Question
Extension macro
Réponses
10
Affichages
3 K
Benwill153
B
R
  • Question Question
VBA Problème de macro en changeant le nom du fichier
Réponses
3
Affichages
7 K
phlaurent55
T
  • Question Question
Insérer une formule dans une macro
Réponses
4
Affichages
2 K
Titi91
T
S
  • Question Question
Une erreur VBA très bizarre
Réponses
11
Affichages
3 K
solobomb
S
J
  • Question Question
Filtres Tableau Croisé TCD sur Table Source
Réponses
0
Affichages
20 K
JPDDN
J
C
  • Question Question
Ajout de lignes vides
Réponses
2
Affichages
949
clood
C
T
  • Question Question
interface utilisateur
Réponses
6
Affichages
1 K
Eliane22
E
D
  • Question Question
comment faire une boucle
Réponses
5
Affichages
1 K
deeppurple
D
P
  • Question Question
Nettoyage de macro
Réponses
12
Affichages
2 K
patbeu
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…