Tri des données Macros

Résolu/Fermé

adum - 5 févr. 2021 à 13:16
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 9 févr. 2021 à 12:54

Bonjour,
Sur ma macros, j'aimerai faire un tri des données plus rapide que cette formule :

'tri des donnees
k = Worksheets("IMPORT").Range("A1").End(xlDown).Row
For i = 0 To k
j = 2
While j < endLine
m = Len(Worksheets("IMPORT").Cells(j, 1))
l = Len(Worksheets("IMPORT").Cells(j + 1, 1))
If (l < m) Then
Sheets("IMPORT").Rows(j + 1).Cut
Sheets("IMPORT").Rows(j).Insert
End If
j = j + 1
Wend
Next i

Avez-vous une idée ?
Merci d'avance

Cordialement,

Configuration: Windows / Chrome 88.0.4324.150

A voir également:

Tri des données Macros
Tri excel - Guide
Validation des données excel - Guide
Effacer les données de navigation - Guide
Reinstaller windows sans perte de données - Guide
Sauvegarde des données - Guide

5 réponses

Réponse 1 / 5

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461
5 févr. 2021 à 13:33

Bonjour,
Un exemple de votre fichier avec explications serait le bienvenu.
Pour transmettre un fichier,
Veillez à ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Cordialement

Réponse 2 / 5

adum
7 févr. 2021 à 21:18

Merci pour votre aide, le lien est crée le voici : https://www.cjoint.com/c/KBhupi41roE

Cordialement,

Réponse 3 / 5

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
8 févr. 2021 à 00:57

Bonjour,

tu aurais pu mettre les explication en clair.
Fais selon ce que j'ai compris :

Sub trier()
    Dim nblig As Long
    nblig = Cells(Rows.Count, 2).End(xlUp).Row
    Columns(1).Insert Shift:=xlToRight
    Range("A1").Resize(nblig).FormulaR1C1 = "=LEN(RC[1])"
    [A:C].Resize(nblig).Sort Key1:=[A1], Order1:=xlAscending, Header:=xlNo
    Columns(1).EntireColumn.Delete
End Sub

eric

Réponse 4 / 5

adum
9 févr. 2021 à 10:59

Merci pour votre réponse, j'ai juste une question : nblig et Resize, cela signifie quoi ? Merci

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
9 févr. 2021 à 12:54

Bonjour,

nbliog est un nom de variable que tu choisis.
Pour Resize faire F1 dessus et consulter l'aide.
eric

Discussions similaires

Reporter valeur sur autre feuille avec critere

Germain

liste de noms par ordre alphabétique

Exemple de base de données access

je tombe sur le service de diffusion des donnees?que faire?

Discussions similaires

Newsletters