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

Microsoft 365 Tris spéciaux

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous,
Je vous souhaite une belle fin de dimanche

Je voudrais faire des tris spéciaux.
Par exemple :
Prospect 122550 MATIGNON 1 rue excel-downloads
Trié sur 22550 ou MATIGNON (remarque IMPORTANTE : 22550 et MATIGNON sont dans la même cellule)
Cela me ferait économiser des colonnes ainsi que de la taille fichier.

J'ai tenté et fait des recherches mais je n'y suis pas arrivé.
D'ailleurs, est-ce possible ?
Si oui, auriez-vous le bon code ?
Je joins un petit fichier test.

Avec mes remerciements,
Je continue mes recherches.
Amicalement,
lionel
 

Pièces jointes

  • tri_test.xlsm
    21.9 KB · Affichages: 9
Dernière édition:
Solution
Bonsoir Lionel,

Les codes des 2 boutons :
VB: 
Sub Tri_CP()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    .Columns(.Columns.Count + 1).Resize(, 2).Insert xlToRight '2 colonnes auxiliaires
    With .Columns(.Columns.Count + 1)
        .FormulaR1C1 = "=LEFT(RC[-1],FIND("" "",RC[-1])-1)"
        .Offset(, 1).FormulaR1C1 = "=MID(RC[-2],FIND("" "",RC[-2])+1,999)"
        .EntireRow.Sort .Cells, xlAscending, .Cells(1, 2), , xlAscending, Header:=xlYes
        .Resize(, 2).Delete xlToLeft 'supprime les colonnes auxiliaires
    End With
End With
End Sub

Sub Tri_Ville()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    .Columns(.Columns.Count + 1).Resize(, 2).Insert xlToRight '2 colonnes auxiliaires
    With...
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Bonsoir Lionel,

Les codes des 2 boutons :
VB: 
Sub Tri_CP()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    .Columns(.Columns.Count + 1).Resize(, 2).Insert xlToRight '2 colonnes auxiliaires
    With .Columns(.Columns.Count + 1)
        .FormulaR1C1 = "=LEFT(RC[-1],FIND("" "",RC[-1])-1)"
        .Offset(, 1).FormulaR1C1 = "=MID(RC[-2],FIND("" "",RC[-2])+1,999)"
        .EntireRow.Sort .Cells, xlAscending, .Cells(1, 2), , xlAscending, Header:=xlYes
        .Resize(, 2).Delete xlToLeft 'supprime les colonnes auxiliaires
    End With
End With
End Sub

Sub Tri_Ville()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    .Columns(.Columns.Count + 1).Resize(, 2).Insert xlToRight '2 colonnes auxiliaires
    With .Columns(.Columns.Count + 1)
        .FormulaR1C1 = "=LEFT(RC[-1],FIND("" "",RC[-1])-1)"
        .Offset(, 1).FormulaR1C1 = "=MID(RC[-2],FIND("" "",RC[-2])+1,999)"
        .EntireRow.Sort .Cells(1, 2), xlAscending, .Cells, , xlAscending, Header:=xlYes
        .Resize(, 2).Delete xlToLeft 'supprime les colonnes auxiliaires
    End With
End With
End Sub
A+
 

Pièces jointes

  • tri_test(1).xlsm
    26.6 KB · Affichages: 2
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2021 Fermer et enregistrer avec "NOM DE FICHIER" = contenu de A3
2
Réponses
17
Affichages
1 K
Usine à gaz
  • Résolu(e)
Microsoft 365 boucle difficile pour moi
2
Réponses
22
Affichages
2 K
Usine à gaz
  • Résolu(e)
Microsoft 365 Simuler un double clic avec SendKeys
Réponses
12
Affichages
2 K
dysorthographie
  • Résolu(e)
Microsoft 365 Déplacer un groupe de cellules
2
Réponses
16
Affichages
2 K
Lone-wolf
  • Résolu(e)
Microsoft 365 Espaces dans chaine que je n'arrive pas à supprimer
2
Réponses
19
Affichages
3 K
Usine à gaz
  • Résolu(e)
Microsoft 365 Compter le nombre de lignes masquées (feuille NON filtrée)
2 3 4
Réponses
50
Affichages
4 K
Usine à gaz
  • Résolu(e)
Microsoft 365 Liaisons externes par macro
2 3
Réponses
33
Affichages
2 K
Usine à gaz
  • Question Question
Microsoft 365 InputBox : saisir ou modifier le contenu de la cellule cliquée à l'aide de l'InputBox
4 5 6
Réponses
86
Affichages
6 K
Usine à gaz
  • Résolu(e)
Microsoft 365 Récupérer la date contenue dans le nom du classeur actif
2
Réponses
18
Affichages
1 K
job75
  • Résolu(e)
Microsoft 365 ne pas avoir à modifier mes codes tris qd ajout/supprime une/des colonnes ds feuille
Réponses
6
Affichages
530
Usine à gaz
  • Résolu(e)
Microsoft 365 Boucle ?
Réponses
13
Affichages
739
Usine à gaz
  • Résolu(e)
Microsoft 365 couper/copier/coller le texte en tout ou partie dans le TextBox1 (casse méninges 1 du WE)
10 11 12
Réponses
173
Affichages
10 K
Usine à gaz
  • Résolu(e)
Microsoft 365 Remplacer le 33 du numéro de téléphone (Petite dernière du WE )
2
Réponses
23
Affichages
3 K
Usine à gaz
  • Résolu(e)
Microsoft 365 compter le temps passé sur une ligne et cumuler tous les temps passés
2
Réponses
17
Affichages
2 K
Usine à gaz
  • Résolu(e)
Microsoft 365 Fonction certainement très particulière
Réponses
9
Affichages
714
Usine à gaz
  • Question Question
Autres adobe pdf obligé d'ouvrir d'abord adobe en administrateur
Réponses
4
Affichages
1 K
Usine à gaz
  • Question Question
Microsoft 365 atteindre selon cellule en col A la 1ère cellule vide en J
Réponses
4
Affichages
638
Usine à gaz
  • Question Question
Microsoft 365 fonction qui peut contenir du texte ou une date
2 3
Réponses
43
Affichages
3 K
patricktoulon
  • Question Question
Microsoft 365 Find : si texte recherché n'existe pas alors .....
Réponses
6
Affichages
967
laurent950
  • Résolu(e)
Microsoft 365 Sauvegarder et fermer le fichier et + application si c'est le dernier fichier à fermer
2
Réponses
19
Affichages
2 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…